[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.216, Sat Feb 12 03:00:57 2005 UTC revision 1.217, Sat Feb 12 03:50:04 2005 UTC
# Line 6732  Line 6732 
6732      return @exchangable;      return @exchangable;
6733  }  }
6734    
6735    =pod
6736    
6737    =head1 all_subsystems
6738    
6739    Return a list of all subsystems.
6740    
6741    =cut
6742    
6743  sub all_subsystems {  sub all_subsystems {
6744      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
6745    
# Line 6744  Line 6752 
6752      return @subsystems;      return @subsystems;
6753  }  }
6754    
6755    =pod
6756    
6757    =head1 all_constructs
6758    
6759    Hmmm...
6760    
6761    =cut
6762    
6763  sub all_constructs {  sub all_constructs {
6764      my($self) = @_;      my($self) = @_;
6765    
# Line 6789  Line 6805 
6805      return @c;      return @c;
6806  }  }
6807    
6808    =pod
6809    
6810    =head1 subsystem_version
6811    
6812     my $version=subsystem_version($subsystem_name)
6813    
6814     returns the current version of the subsystem.
6815    
6816    =cut
6817    
6818  sub subsystem_version :scalar {  sub subsystem_version :scalar {
6819      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
6820      my $ssa = (@_ == 1) ? $_[0] : $_[1];      my $ssa = (@_ == 1) ? $_[0] : $_[1];

Legend:
Removed from v.1.216  
changed lines
  Added in v.1.217

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3