Changeset 22727 for lang/perl/App-Benchmark

Timestamp:

11/05/08 02:35:01 (5 years ago)

Author:

hanekomu

Message:

export benchmark_diag() by default now

Location:

lang/perl/App-Benchmark/trunk

Files:

• Changes (modified) (1 diff)
• lib/App/Benchmark.pm (modified) (4 diffs)

lang/perl/App-Benchmark/trunk/Changes

@@ -3 +3 @@
 0.02  Sun Nov  2 23:55:40 CET 2008 (Marcel Gruenauer <marcel@cpan.org>)
      - documented that rjbs came up with the idea
+     - export benchmark_diag() by default now
 
 0.01  Sun Nov  2 21:31:53 CET 2008 (Marcel Gruenauer <marcel@cpan.org>)

lang/perl/App-Benchmark/trunk/lib/App/Benchmark.pm

@@ -14 +14 @@
 
 
-our %EXPORT_TAGS = (
-    util => [ qw/benchmark_diag/ ],
-);
-
-our @EXPORT_OK = @{ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ] };
+our @EXPORT = ('benchmark_diag');
 
 
@@ -58 +54 @@
     # This is t/benchmark.t:
 
-    use App::Benchmark ':all';
+    use App::Benchmark;
 
     benchmark_diag(2_000_000, {
@@ -74 +70 @@
 Ricardo Signes came up with the idea.
 
-=head1 EXPORTS
-
-Nothing is exported automatically. The function can be exported using its name
-or the C<:all> tag.
+=head1 FUNCTIONS
 
 =over 4
@@ -87 +80 @@
 them, each line prefixed by a hash sign so it doesn't mess up the TAP output.
 Also, a pseudotest is being generated to keep the testing framework happy.
+
+This function is exported automatically.
 
 =back