File Coverage

blib/lib/CPAN/DeferredCode.pm
Criterion Covered Total %
statement 10 11 90.9
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 13 16 81.2


line stmt bran cond sub pod time code
1             package CPAN::DeferredCode;
2              
3 22     22   162 use strict;
  22         69  
  22         1145  
4 22     22   165 use vars qw/$VERSION/;
  22         44  
  22         1802  
5              
6 22         48 use overload fallback => 1, map { ($_ => 'run') } qw/
  66         296  
7             bool "" 0+
8 22     22   161 /;
  22         64  
9              
10             $VERSION = "5.50";
11              
12             sub run {
13 0     0 0   $_[0]->();
14             }
15              
16             1;