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

Diff of /FigKernelPackages/Stats.pm

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

revision 1.1, Fri Jan 6 20:42:40 2006 UTC revision 1.2, Tue Feb 6 16:25:18 2007 UTC
# Line 208  Line 208 
208    
209  C<< my $dataList = $stats->Show(); >>  C<< my $dataList = $stats->Show(); >>
210    
211  Display the statistics and messages in this object.  Display the statistics and messages in this object as a series of lines of text.
212    
213  =cut  =cut
214  #: Return Type $;  #: Return Type $;
# Line 232  Line 232 
232      return $retVal;      return $retVal;
233  }  }
234    
235    =head3 Display
236    
237    C<< my $dataList = $stats->Display(); >>
238    
239    Display the statistics in this object as a single line of text.
240    
241    =cut
242    #: Return Type $;
243    sub Display {
244        # Get the parameters.
245        my ($self) = @_;
246        # Create the return variable.
247        my $retVal = "";
248        # Loop through the statistics.
249        for my $statKey (sort keys %{$self}) {
250            # Only proceed if this is not the message queue.
251            if ($statKey ne "Messages") {
252                # Add the statistic and its value.
253                my $statValue = $self->{$statKey};
254                $retVal .= " $statKey = $statValue;";
255            }
256        }
257        # Return the result.
258        return $retVal;
259    }
260    
261  1;  1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3