Branch Coverage

blib/lib/VMS/FileUtils/SafeName.pm
Criterion Covered Total %
branch 69 76 90.7


line true false branch
106 867 1017 if (/[a-z]/) { }
797 220 elsif (/[A-Z]/) { }
12 208 elsif (/[0-9\-_]/) { }
1 207 elsif ($_ eq '$') { }
17 190 elsif ($_ eq '.') { }
1 189 elsif (ord $_ == 0) { }
1 188 elsif ($_ eq ' ') { }
1 187 elsif (ord $_ == 64) { }
1 186 elsif (ord $_ == 96) { }
26 160 elsif (ord $_ <= 26) { }
5 155 elsif (ord $_ <= 31) { }
13 142 elsif (ord $_ <= 58) { }
5 137 elsif (ord $_ <= 63) { }
4 133 elsif (ord $_ <= 94) { }
5 128 elsif (ord $_ <= 127) { }
107 866 1 $shift == 0 ? :
110 540 257 $shift == 1 ? :
117 11 6 $dots ? :
154 128 321 if ($in =~ /\$([0-7]{3,3})/) { }
64 257 elsif ($in =~ /\$([4-9])([A-Z])/) { }
159 26 38 if ($1 == 4) { }
15 23 elsif ($1 == 5) { }
6 17 elsif ($1 == 6) { }
6 11 elsif ($1 == 7) { }
5 6 elsif ($1 == 8) { }
6 0 elsif ($1 == 9) { }
164 5 1 $i ? :
166 5 1 $i ? :
168 4 1 $i ? :
170 5 1 $i ? :
182 257 257 if ($in =~ /\$([A-Z\$])/i)
183 1 256 if ($1 eq '$') { }
189 256 0 $shift ? :
190 256 0 $shift ? :
203 3 2 unless (defined $dolast)
211 1 4 $isadir ? :
223 0 0 if ($name =~ /\.([\w\-\$]+)\.(gz|Z|zip|gzip)\Z/i) { }
0 0 elsif ($name =~ /\.([\w\-\$]+)\Z/i) { }