From 143930339ff3a9946b6ec472c899e691369d4e09 Mon Sep 17 00:00:00 2001
From: Barrie Slaymaker <barries@slaysys.com>
Date: Tue, 13 Nov 2001 06:34:45 -0500
Subject: [PATCH] docco tweaks Message-Id:
 <20011113113442.B24305@sizzle.whoville.com>

p4raw-id: //depot/perl@12974
---
 lib/Benchmark.pm | 36 +++++++++++++++++++++++-------------
 1 file changed, 23 insertions(+), 13 deletions(-)

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index 51ff8b3..b39ec46 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
-- 
2.7.4