File Coverage

blib/lib/Attribute/Attempts.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Attribute::Attempts;
2              
3 1     1   39253 use strict;
  1         2  
  1         38  
4 1     1   6 use warnings;
  1         2  
  1         27  
5              
6 1     1   867 use Sub::Attempts ();
  1         5  
  1         25  
7 1     1   30 use Attribute::Handlers;
  1         2  
  1         86  
8              
9             our $VERSION = "1.00";
10              
11             sub UNIVERSAL::attempts :ATTR(CODE)
12             {
13 1     1 0 11262 my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
14 1         4 Sub::Attempts::_attempts($referent,$symbol,@{$data});
  1         6  
15 1     1   100 }
  1         1  
  1         9  
16              
17             1;
18              
19             __END__