Branch Coverage

blib/lib/Treex/PML/IO.pm
Criterion Covered Total %
branch 0 276 0.0


line true false branch
59 0 0 if ($role eq 'IO' or $role eq 'Treex::PML::IO') { }
130 0 0 @_ > 0 ? :
161 0 0 if (ref $handler eq 'CODE' or ref $handler eq 'ARRAY') { }
162 0 0 if (exists $input_protocol_handler{$proto})
208 0 0 if (defined $fh and defined $encoding and $] >= 5.008)
212 0 0 if $@
233 0 0 if (&blessed($uri) and $uri->isa('URI'))
236 0 0 if ($uri =~ /^\s*([[:alnum:]][[:alnum:]]+):/) { }
269 0 0 unless $uri->scheme
270 0 0 if ($uri->scheme eq 'file')
288 0 0 if $^O eq 'VMS'
290 0 0 unless substr($cwd, -1, 1) eq '/'
303 0 0 if &blessed($url) and $url->isa('URI')
304 0 0 if ($uri eq $url || URI::Escape::uri_unescape($uri) eq $url and $url =~ m[^\s*[[:alnum:]]+://]) { }
322 0 0 unless &blessed($href) and $href->isa('URI')
339 0 0 unless $uri->scheme
340 0 0 if ($uri->scheme eq 'file')
354 0 0 $_[0] =~ /.gz~?$/ ? :
369 0 0 if $f1 eq $f2
370 0 0 &blessed($f1) && $f1->isa('URI') ? :
371 0 0 &blessed($f2) && $f2->isa('URI') ? :
372 0 0 if $u1 eq $u2
373 0 0 if $u1->canonical eq $u2->canonical
374 0 0 if (not ref $f1 || ref $f2 and $^O ne 'MSWin32' and -f $f1 and -f $f2)
390 0 0 if $f1 eq $f2
393 0 0 $d1 == $d2 && $i1 != 0 && $i1 == $i2 ? :
417 0 0 if (_is_gzip($file)) { }
418 0 0 if (-x $Treex::PML::IO::gzip and -x $Treex::PML::IO::zcat) { }
419 0 0 if ($rw eq 'w') { }
428 0 0 if ($rw eq 'w') { }
451 0 0 if (_is_gzip($file)) { }
452 0 0 if (-x $Treex::PML::IO::gzip)
454 0 0 if ($rw eq 'w') { }
455 0 0 unless $fh->writer("$Treex::PML::IO::gzip $Treex::PML::IO::gzip_opts > " . quote_filename($file))
457 0 0 unless $fh->reader("$Treex::PML::IO::zcat $Treex::PML::IO::zcat_opts < " . quote_filename($file))
460 0 0 unless ($fh)
461 0 0 unless eval { do { require IO::Zlib; $fh = 'IO::Zlib'->new } }
465 0 0 unless $fh->open($file, $rw . 'b')
469 0 0 unless $fh->open($file, $rw)
485 0 0 if (_is_gzip($file)) { }
489 0 0 if $@
490 0 0 unless $fh
491 0 0 if ($rw eq 'w') { }
492 0 0 if $Treex::PML::IO::Debug
496 0 0 unless eval { do { require IO::Zlib; $tmp = 'IO::Zlib'->new } } and $tmp
500 0 0 unless $tmp->open($file, 'rb')
512 0 0 unless $fh->open($file, $rw)
519 0 0 if (ref $callback eq 'CODE') { }
0 0 elsif (ref $callback eq 'ARRAY') { }
530 0 0 if ($proto eq 'file') { }
0 0 elsif ($proto eq 'ntred' or $proto =~ /$Treex::PML::IO::reject_proto/) { }
0 0 elsif (exists $input_protocol_handler{$proto}) { }
532 0 0 if $Treex::PML::IO::Debug
533 0 0 unless -e $file
534 0 0 unless -r $file
535 0 0 if -z $file
542 0 0 if ($new_proto ne $proto) { }
548 0 0 if ($^O eq 'MSWin32') { }
572 0 0 if (get_protocol($file) eq 'file' and _is_gzip($uri)) { }
577 0 0 unless $fh
579 0 0 unless eval { do { require IO::Zlib; $tmp = 'IO::Zlib'->new } } and $tmp
583 0 0 unless $tmp->open($file, 'rb')
591 0 0 if $unlink
601 0 0 if $Treex::PML::IO::Debug
602 0 0 if (system($cmd . ' > ' . $filename) == 0) { }
613 0 0 if ($status and $status->is_error and $status->code == 401)
618 0 0 if ($status->is_success) { }
631 0 0 _is_gzip($uri) ? :
636 0 0 if $Treex::PML::IO::Debug
637 0 0 if ($proto =~ /^https?|ftp|gopher|news/)
645 0 0 if $Treex::PML::IO::Debug
646 0 0 _is_gzip($uri) ? :
651 0 0 if $Treex::PML::IO::Debug
652 0 0 if ($proto =~ /^https?|ftp|gopher|news/)
656 0 0 if ($Treex::PML::IO::ssh and -x $Treex::PML::IO::ssh and $proto =~ /^(ssh|fish|sftp)$/)
657 0 0 if $Treex::PML::IO::Debug
658 0 0 if ($uri =~ m[^\s*(?:ssh|sftp|fish):(?://)?([^-/][^/]*)(/.*)$]) { }
660 0 0 if $Treex::PML::IO::Debug
668 0 0 if ($Treex::PML::IO::kioclient and -x $Treex::PML::IO::kioclient)
669 0 0 if $Treex::PML::IO::Debug
671 0 0 if ($proto eq 'ssh')
677 0 0 if ($Treex::PML::IO::curl and -x $Treex::PML::IO::curl and $proto =~ /^(?:https?|ftps?|gopher)$/)
687 0 0 if defined $user_pipe and not $user_pipe =~ /^\|/
690 0 0 if ($need_gzip) { }
691 0 0 if (-x $Treex::PML::IO::gzip) { }
699 0 0 if $Treex::PML::IO::Debug
711 0 0 if $Treex::PML::IO::Debug
712 0 0 if $proto eq 'http' or $proto eq 'https'
713 0 0 if ($Treex::PML::IO::ssh and -x $Treex::PML::IO::ssh and $proto =~ /^(ssh|fish|sftp)$/)
714 0 0 if $Treex::PML::IO::Debug
715 0 0 if ($uri =~ m[^\s*(?:ssh|sftp|fish):(?://)?([^-/][^/]*)(/.*)$]) { }
724 0 0 if ($Treex::PML::IO::kioclient and -x $Treex::PML::IO::kioclient)
725 0 0 if $Treex::PML::IO::Debug
727 0 0 if ($proto eq 'ssh')
733 0 0 if ($Treex::PML::IO::curl and -x $Treex::PML::IO::curl and $proto =~ /^(?:ftps?)$/)
756 0 0 if ($proto eq 'file') { }
0 0 elsif ($proto eq 'ntred' or $proto =~ /$Treex::PML::IO::reject_proto/) { }
758 0 0 if ($user_pipe) { }
766 0 0 if ($^O eq 'MSWin32') { }
782 0 0 $^O eq 'MSWin32' ? :
788 0 0 if ($proto eq 'file') { }
798 0 0 if ($proto eq 'file')
801 0 0 if $Treex::PML::IO::Debug
802 0 0 if ($Treex::PML::IO::ssh and -x $Treex::PML::IO::ssh and $proto =~ /^(ssh|fish|sftp)$/)
803 0 0 if $Treex::PML::IO::Debug
804 0 0 if ($uri =~ m[^\s*(?:ssh|sftp|fish):(?://)?([^-/][^/]*)(/.*)$]) { }
806 0 0 system("$Treex::PML::IO::ssh $Treex::PML::IO::ssh_opts " . quote_filename($host) . ' /bin/rm ' . quote_filename(quote_filename($file))) == 0 ? :
812 0 0 if ($Treex::PML::IO::kioclient and -x $Treex::PML::IO::kioclient)
814 0 0 if ($proto eq 'ssh')
817 0 0 system("$Treex::PML::IO::kioclient $Treex::PML::IO::kioclient_opts rm " . quote_filename($uri)) == 0 ? :
831 0 0 if $Treex::PML::IO::Debug
832 0 0 $^O eq 'MSWin32' ? :
840 0 0 if ($proto1 eq 'file' and $proto2 eq 'file') { }
842 0 0 unless -f $uri1
853 0 0 if ($proto ne $proto2)
856 0 0 if ($proto eq 'file')
858 0 0 unless -f $uri1
861 0 0 if $Treex::PML::IO::Debug
862 0 0 if ($Treex::PML::IO::ssh and -x $Treex::PML::IO::ssh and $proto =~ /^(ssh|fish|sftp)$/)
863 0 0 if $Treex::PML::IO::Debug
864 0 0 if ($uri1 =~ m[^\s*(?:ssh|sftp|fish):(?://)?([^-/][^/]*)(/.*)$]) { }
866 0 0 if ($uri2 =~ m[^\s*(?:ssh|sftp|fish):(?://)?([^-/][^/]*)(/.*)$] and $1 eq $host) { }
868 0 0 system("$Treex::PML::IO::ssh $Treex::PML::IO::ssh_opts " . quote_filename($host) . ' /bin/mv ' . quote_filename(quote_filename($file)) . ' ' . quote_filename(quote_filename($file2))) == 0 ? :
878 0 0 if ($Treex::PML::IO::kioclient and -x $Treex::PML::IO::kioclient)
880 0 0 if ($proto eq 'ssh')
884 0 0 system("$Treex::PML::IO::kioclient $Treex::PML::IO::kioclient_opts mv " . quote_filename($uri1) . ' ' . quote_filename($uri2)) == 0 ? :
909 0 0 if ($rw eq 'r') { }
0 0 elsif ($rw eq 'w') { }
930 0 0 if (ref $fh eq 'File::Temp')
932 0 0 if ($filename ne '')
933 0 0 if $Treex::PML::IO::Debug
937 0 0 unless $tmp->open($filename, 'wb')
946 0 0 if (&blessed($fh) and $fh->isa('IO::Zlib')) { }
952 0 0 if ($unlink)
975 0 0 if ($is_temporary and $local_file ne $uri)
976 0 0 unless (unlink $local_file)
1001 0 0 unless my $in = open_uri($src_uri)
1003 0 0 unless my $out = open_backend($target_uri, 'w')