This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Benchmark.pm suggestion
authorThomas Bowditch <bowditch@inmet.com>
Fri, 20 Nov 1998 17:43:46 +0000 (12:43 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 21 Nov 1998 10:44:01 +0000 (10:44 +0000)
To: jhi@iki.fi, Tim.Bunce@ig.co.uk
Message-Id: <199811202243.RAA26252@harp.camb.inmet.com>

Added timesum().

p4raw-id: //depot/cfgperl@2256

lib/Benchmark.pm

index a28f510..ef12d02 100644 (file)
@@ -124,6 +124,11 @@ The COUNT can be zero or negative, see timethis().
 Returns the difference between two Benchmark times as a Benchmark
 object suitable for passing to timestr().
 
+=item timesum ( T1, T2 )
+
+Returns the sum of two Benchmark times as a Benchmark object suitable
+for passing to timestr().
+
 =item timestr ( TIMEDIFF, [ STYLE, [ FORMAT ] ] )
 
 Returns a string that formats the times in the TIMEDIFF object in
@@ -293,6 +298,15 @@ sub timediff {
     bless \@r;
 }
 
+sub timesum {
+     my($a, $b) = @_;
+     my @r;
+     for (my $i=0; $i < @$a; ++$i) {
+       push(@r, $a->[$i] + $b->[$i]);
+     }
+     bless \@r;
+}
+
 sub timestr {
     my($tr, $style, $f) = @_;
     my @t = @$tr;