[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.710, Thu Jul 17 18:44:30 2008 UTC revision 1.711, Mon Jul 28 15:27:11 2008 UTC
# Line 16928  Line 16928 
16928      my($self,$sub,$no_cluster_based) = @_;      my($self,$sub,$no_cluster_based) = @_;
16929    
16930      my $cat = $self->subsystem_classification($sub);      my $cat = $self->subsystem_classification($sub);
16931      return (defined($cat->[0]) &&      return (defined($cat->[0]) && $cat->[0] ne '' &&
16932              ($cat->[0] !~ /experimental/i) &&              ($cat->[0] !~ /experimental/i) &&
16933              ((! $no_cluster_based) || ($cat->[0] !~ /Clustering-based/)) &&              ((! $no_cluster_based) || ($cat->[0] !~ /Clustering-based/)) &&
16934              ($cat->[0] !~ /delete/i)              ($cat->[0] !~ /delete/i)
16935             );             );
16936  }  }
16937    
16938    
16939    =head3 is_experimental_subsystem
16940    
16941    This states if a subsystem is experimental, what would be the
16942    opposite of usable.
16943    
16944    =cut
16945    
16946    sub is_experimental_subsystem {
16947        my ( $self, $sub ) = @_;
16948    
16949        my $is_usable = $self->usable_subsystem( $sub );
16950        return 0 if ( $is_usable );
16951        return 1;
16952    }
16953    
16954  sub is_exchangable_subsystem :Scalar {  sub is_exchangable_subsystem :Scalar {
16955      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
16956      my $ssa = (@_ == 1) ? $_[0] : $_[1];      my $ssa = (@_ == 1) ? $_[0] : $_[1];
# Line 16949  Line 16965 
16965          }          }
16966          close(TMP);          close(TMP);
16967      }      }
16968        else {
16969            return 1;
16970        }
16971      return 0;      return 0;
16972  }  }
16973    
16974    =head3 is_private_subsystem
16975    
16976    This states if a subsystem is private, meaning that it cannot be be exported.
16977    This is just the opposite of exchangable.
16978    
16979    =cut
16980    
16981    sub is_private_subsystem :Scalar {
16982        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
16983        my $ssa = (@_ == 1) ? $_[0] : $_[1];
16984    
16985        if ( is_exchangable_subsystem( $ssa ) ) {
16986            return 0;
16987        }
16988        return 1;
16989    }
16990    
16991  sub all_exchangable_subsystems {  sub all_exchangable_subsystems {
16992      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
16993    

Legend:
Removed from v.1.710  
changed lines
  Added in v.1.711

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3