File Coverage

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


line stmt bran cond sub pod time code
1 1     1   16436 use 5.006;
  1         3  
  1         32  
2 1     1   5 use strict;
  1         1  
  1         30  
3 1     1   4 use warnings;
  1         2  
  1         81  
4              
5             package Sub::ArgShortcut::Attr;
6             $Sub::ArgShortcut::Attr::VERSION = '1.021';
7 1     1   372 use Sub::ArgShortcut;
  1         3  
  1         7  
8 1     1   1690 use Attribute::Handlers;
  1         8543  
  1         9  
9              
10             sub UNIVERSAL::ArgShortcut : ATTR(CODE) {
11 1     1 0 1662 my ( $package, $symbol, $referent, $attr, $data, $phase ) = @_;
12 1     1   94 { no warnings 'redefine'; *$symbol = argshortcut \&$referent; }
  1         3  
  1         91  
  1         3  
  1         6  
13 1         4 return;
14 1     1   7 }
  1         2  
  1         8  
15              
16             1;