File Coverage

blib/lib/Method/Cached/KeyRule/Base.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 34 35 97.1


line stmt bran cond sub pod time code
1             package Method::Cached::KeyRule::Base;
2              
3 2     2   9 use strict;
  2         2  
  2         41  
4 2     2   6 use warnings;
  2         3  
  2         38  
5 2     2   5 use base qw/Exporter/;
  2         2  
  2         185  
6              
7             sub export_rule {
8 2     2 0 5 my $class = shift;
9 2     2   10 no strict 'refs';
  2         2  
  2         61  
10 2     2   5 no warnings 'redefine';
  2         3  
  2         223  
11 2         7 for my $rule (@_) {
12 4         11 my $name = $class . '::' . $rule;
13 4         3 my $code = \&{$name};
  4         15  
14 4     14   20 *{$name} = sub { return $code };
  4         11  
  14         3852  
15 4         7 push @{$class . '::EXPORT'}, $rule;
  4         16  
16 4         4 push @{$class . '::EXPORT_OK'}, $rule;
  4         17  
17             }
18             }
19              
20             1;
21              
22             __END__