diff options
| author | Barrie Slaymaker <barries@slaysys.com> | 2001-11-13 06:34:45 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-13 15:46:07 +0000 |
| commit | 143930339ff3a9946b6ec472c899e691369d4e09 (patch) | |
| tree | d34da59fc78126e3a38b203b3918fd45212e5815 /lib | |
| parent | e3751d82ab424ea356f7b822ac173dabf670d6d2 (diff) | |
| download | perl-143930339ff3a9946b6ec472c899e691369d4e09.tar.gz | |
docco tweaks
Message-Id: <20011113113442.B24305@sizzle.whoville.com>
p4raw-id: //depot/perl@12974
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Benchmark.pm | 36 |
1 files changed, 23 insertions, 13 deletions
diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm index 51ff8b3a88..b39ec461d9 100644 --- a/lib/Benchmark.pm +++ b/lib/Benchmark.pm @@ -305,29 +305,39 @@ accuracy and does not usually noticably affect runtimes. For example, - use Benchmark;$x=3;cmpthese(-5,{a=>sub{$x*$x},b=>sub{$x**2}}) + use Benchmark qw( cmpthese ) ; + $x = 3; + cmpthese( -5, { + a => sub{$x*$x}, + b => sub{$x**2}, + } ); outputs something like this: Benchmark: running a, b, each for at least 5 CPU seconds... - a: 10 wallclock secs ( 5.14 usr + 0.13 sys = 5.27 CPU) @ 3835055.60/s (n=20210743) - b: 5 wallclock secs ( 5.41 usr + 0.00 sys = 5.41 CPU) @ 1574944.92/s (n=8520452) - Rate b a - b 1574945/s -- -59% - a 3835056/s 144% -- + Rate b a + b 1559428/s -- -62% + a 4152037/s 166% -- + while - use Benchmark; - $x=3; - $r=timethese(-5,{a=>sub{$x*$x},b=>sub{$x**2}},'none'); - cmpthese($r); + use Benchmark qw( timethese cmpthese ) ; + $x = 3; + $r = timethese( -5, { + a => sub{$x*$x}, + b => sub{$x**2}, + } ); + cmpthese $r; outputs something like this: - Rate b a - b 1559428/s -- -62% - a 4152037/s 166% -- + Benchmark: running a, b, each for at least 5 CPU seconds... + a: 10 wallclock secs ( 5.14 usr + 0.13 sys = 5.27 CPU) @ 3835055.60/s (n=20210743) + b: 5 wallclock secs ( 5.41 usr + 0.00 sys = 5.41 CPU) @ 1574944.92/s (n=8520452) + Rate b a + b 1574945/s -- -59% + a 3835056/s 144% -- =head1 INHERITANCE |