Branch Coverage

blib/lib/Portable/FileSpec.pm
Criterion Covered Total %
branch 14 36 38.8


line true false branch
19 0 3 if ($nofile) { }
46 0 3 if (not $directories =~ m[[\\/]\Z(?!\n)]) { }
66 0 24 if ($v) = $volume =~ m[^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)]s and $directory =~ m[^[^\\/]]s
75 21 3 if (not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] and $file =~ m[[^\\/]])
80 21 0 $1 ? :
91 0 24 unless @_
92 24 0 if $_[0] eq ''
96 0 0 if $_[0] =~ /^$DRIVE_RX\z/o
104 0 0 if $_[0] eq ''
109 0 0 if $_[0] =~ /^$DRIVE_RX\z/o
118 0 0 $2 ? :
0 0 defined $2 ? :
24 0 $first =~ s[ \A [\\/] ][]x ? :
0 24 $first =~ s[ \A (?:\\\\|//) ([^\\/]+) (?: [\\/] ([^\\/]+) )? [\\/]? ][]sx ? :
0 24 $first =~ s[ \A ([A-Za-z]:) ([\\/]?) ][]x ? :
164 24 0 if ($volume =~ /\\\z/)
172 0 24 if $path eq '' and $volume =~ /\A(\\\\.*)\\\z/s
176 24 0 $path ne '' || $volume ? :