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

Diff of /FigKernelPackages/Tracer.pm

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

revision 1.28, Tue Oct 18 17:42:48 2005 UTC revision 1.29, Wed Nov 23 17:53:52 2005 UTC
# Line 1159  Line 1159 
1159  C<< Assert($condition1, $condition2, ... $conditionN); >>  C<< Assert($condition1, $condition2, ... $conditionN); >>
1160    
1161  Return TRUE if all the conditions are true. This method can be used in conjunction with  Return TRUE if all the conditions are true. This method can be used in conjunction with
1162  the OR operator and the L</Confess> method, B<Assert> can function as a debugging assert.  the OR operator and the L</Confess> method as a debugging assert.
1163  So, for example  So, for example
1164    
1165  C<< Assert($recNum >= 0) || Confess("Invalid record number $recNum."); >>  C<< Assert($recNum >= 0) || Confess("Invalid record number $recNum."); >>
# Line 1372  Line 1372 
1372  sub Strip {  sub Strip {
1373      # Get a copy of the parameter string.      # Get a copy of the parameter string.
1374      my ($string) = @_;      my ($string) = @_;
1375      my $retVal = $string;      my $retVal = (defined $string ? $string : "");
1376      # Strip the line terminator characters.      # Strip the line terminator characters.
1377      $retVal =~ s/(\r|\n)+$//g;      $retVal =~ s/(\r|\n)+$//g;
1378      # Return the result.      # Return the result.
# Line 1440  Line 1440 
1440      return $retVal;      return $retVal;
1441  }  }
1442    
1443    =head3 EOF
1444    
1445    This is a constant that is lexically greater than any useful string.
1446    
1447    =cut
1448    
1449    sub EOF {
1450        return "\xFF\xFF\xFF\xFF\xFF";
1451    }
1452    
1453  =head3 TICK  =head3 TICK
1454    
1455  C<< my @results = TICK($commandString); >>  C<< my @results = TICK($commandString); >>

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3