File Coverage

blib/lib/Attribute/Benchmark.pm
Criterion Covered Total %
statement 23 26 88.4
branch 2 6 33.3
condition n/a
subroutine 8 9 88.8
pod 0 1 0.0
total 33 42 78.5


line stmt bran cond sub pod time code
1 1     1   981 use 5.008;
  1         4  
  1         43  
2 1     1   5 use strict;
  1         3  
  1         39  
3 1     1   17 use warnings;
  1         2  
  1         48  
4              
5             package Attribute::Benchmark;
6              
7 1     1   10403 use Attribute::Handlers ();
  1         7222  
  1         25  
8 1     1   1123 use Benchmark ();
  1         787745  
  1         505  
9              
10             our $AUTHORITY = 'cpan:TOBYINK';
11             our $VERSION = '0.001';
12              
13             my %cmp = ();
14             my $iter = -3;
15 1 50   1   594 END { Benchmark::cmpthese($iter, \%cmp) if keys %cmp };
16              
17             sub import
18             {
19 1     1   9 shift;
20 1 50       5 $iter = $_[0] if @_;
21 1         16 strict->import;
22 1         33 warnings->import(FATAL => 'all');
23             }
24              
25             sub UNIVERSAL::Benchmark :ATTR()
26             {
27 0 0   0 0 0 (my $name = $_[4] ? $_[4][0] : substr(*{$_[1]}, 1))
  0         0  
28             =~ s/\Amain:://;
29 0         0 $cmp{$name} = $_[2];
30 1     1   11 }
  1         1  
  1         9  
31              
32             1;
33              
34             __END__