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   15 use strict;
  2         4  
  2         141  
4 2     2   11 use warnings;
  2         4  
  2         52  
5 2     2   11 use base qw/Exporter/;
  2         5  
  2         211  
6              
7             sub export_rule {
8 2     2 0 6 my $class = shift;
9 2     2   17 no strict 'refs';
  2         11  
  2         65  
10 2     2   11 no warnings 'redefine';
  2         5  
  2         502  
11 2         8 for my $rule (@_) {
12 4         13 my $name = $class . '::' . $rule;
13 4         9 my $code = \&{$name};
  4         16  
14 4     7   96 *{$name} = sub { return $code };
  4         18  
  7         80  
15 4         9 push @{$class . '::EXPORT'}, $rule;
  4         21  
16 4         7 push @{$class . '::EXPORT_OK'}, $rule;
  4         28  
17             }
18             }
19              
20             1;
21              
22             __END__