Branch Coverage

blib/lib/Treex/PML.pm
Criterion Covered Total %
branch 59 110 53.6


line true false branch
64 0 6 $^O eq 'MSWin32' ? :
168 82 0 if (ref $what) { }
170 82 0 if (defined $old) { }
171 0 82 unless defined $new
173 82 0 if (UNIVERSAL::can('Data::Dumper', 'init_refaddr_format'))
180 82 63 ref $old->[$_] && defined $new->[$_] ? :
185 0 82 if $@
201 0 0 if $ar->[$n] eq $i
207 129 175 $_[0] =~ m[^\s*[[:alnum:]]+://] ? :
211 2 153 $uri->path =~ m[(/|^)\.\.($|/)] ? :
220 0 0 unless (_is_absolute($filename) or _is_updir($filename))
223 0 0 if -d $f
236 43 33 unless (_is_absolute($filename) or _is_updir($filename))
239 22 21 if (-f $f)
240 22 0 unless $all
245 12 42 $all || ref $opts && $opts->{'strict'} ? :
252 6 43 unless defined $Treex::PML::resourcePath
253 43 0 wantarray ? :
258 0 7 if (defined $Treex::PML::resourcePath and length $Treex::PML::resourcePath)
265 0 0 $Treex::PML::resourcePath ne '' ? :
271 0 0 unless defined $Treex::PML::resourcePath
282 112 0 &blessed($url) && $url->isa('URI') && ($url->scheme || 'file') eq 'file' || $url =~ m[^file:/] ? :
286 0 0 if (_is_local($url)) { }
299 0 116 if $Treex::PML::Debug
302 4 112 if (_is_absolute($rel_uri)) { }
2 110 elsif (_is_updir($rel_uri)) { }
305 2 0 _is_url($base) ? :
309 110 0 if (_is_local($base_uri))
310 86 24 if (-f $abs_f) { }
0 24 elsif (not _is_url($base)) { }
311 0 86 if $Treex::PML::Debug
312 81 5 _is_url($base) ? :
314 0 0 if $Treex::PML::Debug
315 0 0 if -f $rel_f
318 22 2 if ($use_resources)
320 22 0 if ($res)
321 0 22 if $Treex::PML::Debug
325 0 2 if $Treex::PML::Debug
330 2 0 _is_local($base) ? :
337 0 14 if $Treex::PML::Debug
342 14 0 if (eval { do { require $file } } or $INC{$file})
347 14 0 if ($b) { }
350 0 0 if $@
359 8 0 @_ == @Treex::PML::BACKENDS ? :
0 8 wantarray ? :
373 0 0 @new == @imported ? :
0 0 wantarray ? :
379 11 38 $backend =~ /:/ ? :
0 49 $backend =~ /^([^:]+)Backend$/ ? :
11 38 $backend =~ /^Treex::PML::Backend::/ ? :
11 38 $backend =~ /:/ ? :
390 24 0 if (UNIVERSAL::can($try, 'open_backend'))
395 24 0 if $b and UNIVERSAL::can($b, 'test') and UNIVERSAL::can($b, 'read')
403 11 0 if (UNIVERSAL::can($try, 'open_backend'))
408 11 0 if $b and UNIVERSAL::can($b, 'write')