File Coverage

blib/lib/Sub/ArgShortcut/Attr.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 32 33 96.9


line stmt bran cond sub pod time code
1 1     1   72774 use 5.006; use strict; use warnings;
  1     1   3  
  1     1   5  
  1         1  
  1         21  
  1         4  
  1         2  
  1         40  
2              
3             package Sub::ArgShortcut::Attr;
4              
5             our $VERSION = '1.022';
6              
7 1     1   319 use Sub::ArgShortcut;
  1         2  
  1         4  
8 1     1   803 use Attribute::Handlers;
  1         4978  
  1         5  
9              
10             sub UNIVERSAL::ArgShortcut : ATTR(CODE) {
11 1     1 0 2355 my ( $package, $symbol, $referent, $attr, $data, $phase ) = @_;
12 1     1   49 { no warnings 'redefine'; *$symbol = argshortcut \&$referent; }
  1         1  
  1         53  
  1         2  
  1         3  
13 1         3 return;
14 1     1   6 }
  1         1  
  1         4  
15              
16             1;