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   2374936 use strict;
  20         260  
  20         641  
4 20     20   138 use warnings;
  20         45  
  20         683  
5 20     20   6794 use namespace::autoclean;
  20         354197  
  20         109  
6              
7             our $VERSION = '0.01';
8              
9 20     20   2742 use Path::Tiny qw( path );
  20         14595  
  20         1510  
10              
11 20     20   600 use parent 'Path::Iterator::Rule';
  20         374  
  20         193  
12              
13             ## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
14             sub _iter {
15 67     67   350773 my $self = shift;
16              
17 67         368 my $iter = $self->SUPER::_iter(@_);
18              
19             return sub {
20 386     386   11020 my $item = $iter->();
21 385 100       109606 return unless $item;
22 319         970 return path($item);
23 67         8122 };
24             }
25              
26             1;
27              
28             # ABSTRACT: Path::Iterator::Rule subclass that returns Path::Tiny objects
29              
30             __END__