File Coverage

testdir/lib/File/Find/Rule/Test/ATeam.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 1 0.0
total 12 18 66.6


line stmt bran cond sub pod time code
1             package File::Find::Rule::Test::ATeam;
2 1     1   6 use strict;
  1         2  
  1         31  
3 1     1   6 use File::Find::Rule;
  1         2  
  1         9  
4 1     1   5 use base 'File::Find::Rule';
  1         3  
  1         148  
5              
6             sub File::Find::Rule::ba {
7 0     0 0   my $self = shift()->_force_object;
8 0     0     $self->exec( sub { die "I pity the fool who uses this in production" });
  0            
9             }
10              
11             1;