File Coverage

blib/lib/Path/Tiny/Rule.pm
Criterion Covered Total %
statement 21 21 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Path::Tiny::Rule;
2              
3 20     20   2169157 use strict;
  20         199  
  20         469  
4 20     20   102 use warnings;
  20         25  
  20         456  
5 20     20   8383 use namespace::autoclean;
  20         345047  
  20         68  
6              
7             our $VERSION = '0.02';
8              
9 20     20   2047 use Path::Tiny qw( path );
  20         10638  
  20         904  
10              
11 20     20   465 use parent 'Path::Iterator::Rule';
  20         271  
  20         124  
12              
13             ## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
14             sub _iter {
15 67     67   221882 my $self = shift;
16              
17 67         250 my $iter = $self->SUPER::_iter(@_);
18              
19             return sub {
20 386     386   9212 my $item = $iter->();
21 385 100       97393 return unless $item;
22 319         759 return path($item);
23 67         5741 };
24             }
25              
26             1;
27              
28             # ABSTRACT: Path::Iterator::Rule subclass that returns Path::Tiny objects
29              
30             __END__