[Bio] / Sprout / BaseSaplingLoader.pm Repository:
ViewVC logotype

Diff of /Sprout/BaseSaplingLoader.pm

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

revision 1.1, Mon Jan 19 21:43:05 2009 UTC revision 1.2, Thu Feb 5 06:47:03 2009 UTC
# Line 96  Line 96 
96    
97  =head3 Starless  =head3 Starless
98    
99      my $adjusted = $sl->Starless($codeString);      my $adjusted = BaseSaplingLoader::Starless($codeString);
100    
101  Remove any spaces and leading or trailing asterisks from the incoming string and  Remove any spaces and leading or trailing asterisks from the incoming string and
102  return the result.  return the result.
# Line 118  Line 118 
118    
119  sub Starless {  sub Starless {
120      # Get the parameters.      # Get the parameters.
121      my ($self, $codeString) = @_;      my ($codeString) = @_;
122      # Declare the return variable.      # Declare the return variable.
123      my $retVal = $codeString;      my $retVal = $codeString;
124      # Remove the spaces.      # Remove the spaces.
125      $retVal =~ s/ //g;      $retVal =~ s/\s+//g;
126      # Trim the asterisks.      # Trim the asterisks.
127      $retVal =~ s/^\*+//;      $retVal =~ s/^\*+//;
128      $retVal =~ s/\*+$//;      $retVal =~ s/\*+$//;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3