File Coverage

blib/lib/Data/Hash/Diff/Smart/Path.pm
Criterion Covered Total %
statement 8 8 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 13 14 92.8


line stmt bran cond sub pod time code
1             package Data::Hash::Diff::Smart::Path;
2              
3 10     10   64 use strict;
  10         46  
  10         433  
4 10     10   50 use warnings;
  10         32  
  10         1317  
5              
6             sub join {
7 42     42 0 98 my ($base, $part) = @_;
8 42 100       214 return $base eq '' ? "/$part" : "$base/$part";
9             }
10              
11             1;
12