Branch Coverage

blib/lib/Test/ModuleVersion.pm
Criterion Covered Total %
branch 31 920 3.3


line true false branch
23 0 1 if ((my $flag = $methods[0] || '') eq '-base') { }
31 0 0 if (my $module = $methods[1]) { }
33 0 0 unless $module->can('new')
45 0 0 if $] >= 5.01
57 0 0 unless $exports{$method}
69 0 0 @_ > 1 ? :
0 2 @_ ? :
78 1 9 if @args % 2
84 10 0 unless ref $attrs eq 'ARRAY'
91 0 10 unless not ref $default or ref $default eq 'CODE'
97 7 3 if (defined $default and ref $default) { }
2 1 elsif (defined $default and not ref $default) { }
102 20 3 if (@_ == 1)
103 5 15 unless exists $_[0]{$attr}
116 4 0 if (@_ == 1)
117 2 2 unless exists $_[0]{$attr}
132 0 0 if @_ == 1
163 0 0 @_ > 1 ? :
177 0 0 if exists $args{$key}
181 0 0 if (not exists $$self{'proxy'} and my $http_proxy = $ENV{'http_proxy'})
182 0 0 if ($http_proxy =~ m[\Ahttp://[^/?#:\@]+:\d+/?\z]) { }
197 0 0 unless @_ == 2 or @_ == 3 and ref $args eq 'HASH'
0 0 unless @_ == 2 or @_ == 3 and ref $args eq 'HASH'
0 0 unless @_ == 2 or @_ == 3 and ref $args eq 'HASH'
0 0 unless @_ == 2 or @_ == 3 and ref $args eq 'HASH'
0 0 unless @_ == 2 or @_ == 3 and ref $args eq 'HASH'
210 0 0 unless @_ == 3 or @_ == 4 and ref $args eq 'HASH'
214 0 0 unless $$args{'headers'}
233 0 0 unless @_ == 3 or @_ == 4 and ref $args eq 'HASH'
235 0 0 if (-e $file and my $mtime = (stat $file)[9])
239 0 0 unless open my $fh, '>', $tempfile
244 0 0 unless close $fh
246 0 0 if ($$response{'success'})
247 0 0 unless rename $tempfile, $file
250 0 0 if ($lm and my $mtime = $self->_parse_http_date($lm))
264 0 0 unless @_ == 3 or @_ == 4 and ref $args eq 'HASH'
272 0 0 unless $@ and $idempotent{$method} and $@ =~ /^(?:Socket closed|Unexpected end)/
276 0 0 if (my $e = "$@")
294 0 0 unless @_ == 2 and ref $data
296 0 0 unless ref $data eq 'HASH' or ref $data eq 'ARRAY'
299 0 0 ref $data eq 'HASH' ? :
300 0 0 unless @params % 2 == 0
306 0 0 if (ref $value eq 'ARRAY') { }
331 0 0 $port == $DefaultPort{$scheme} ? :
341 0 0 if ($$self{'proxy'}) { }
343 0 0 if $$request{'scheme'} eq 'https'
358 0 0 if (my(@redir_args) = $self->_maybe_redirect($request, $response, $args))
363 0 0 if ($method eq 'HEAD' or $$response{'status'} =~ /^[23]04/) { }
380 0 0 unless defined $_
389 0 0 if (defined $$args{'content'})
391 0 0 if (ref $$args{'content'} eq 'CODE') { }
392 0 0 unless $$request{'headers'}{'content-length'} or $$request{'headers'}{'transfer-encoding'}
399 0 0 if ($] ge '5.008')
400 0 0 unless utf8::downgrade($content, 1)
403 0 0 unless $$request{'headers'}{'content-length'} or $$request{'headers'}{'transfer-encoding'}
408 0 0 if ref $$args{'trailer_callback'} eq 'CODE'
419 0 0 unless ($data_cb and $$response{'status'} =~ /^2/)
420 0 0 if (defined $$self{'max_size'}) { }
423 0 0 if length $_[1]{'content'} > $$self{'max_size'}
438 0 0 if ($status eq '303' || $status =~ /^30[127]/ && $method =~ /^GET|HEAD$/ and $$headers{'location'} and ++$$args{'redirects'} <= $$self{'max_redirect'})
442 0 0 $$headers{'location'} =~ m[^/] ? :
445 0 0 $status eq '303' ? :
454 0 0 unless my($scheme, $authority, $path_query) = $url =~ m[\A([^:/?#]+)://([^/?#]*)([^#]*)]
458 0 0 unless $path_query =~ m[\A/]
460 0 0 length $authority ? :
463 0 0 $scheme eq 'https' ? :
0 0 $scheme eq 'http' ? :
0 0 $host =~ s/:([0-9]*)\z// && length $1 ? :
487 0 0 if ($str =~ /^[SMTWF][a-z]+, +(\d{1,2}) ($MoY) +(\d\d\d\d) +(\d\d):(\d\d):(\d\d) +GMT$/) { }
0 0 elsif ($str =~ /^[SMTWF][a-z]+, +(\d\d)-($MoY)-(\d{2,4}) +(\d\d):(\d\d):(\d\d) +GMT$/) { }
0 0 elsif ($str =~ /^[SMTWF][a-z]+ +($MoY) +(\d{1,2}) +(\d\d):(\d\d):(\d\d) +(?:[^0-9]+ +)?(\d\d\d\d)$/) { }
497 0 0 @tl_parts ? :
498 0 0 $t < 0 ? :
511 0 0 if ($] ge '5.008') { }
516 0 0 if length $str == do { use bytes; length $str }
562 0 0 unless @_ == 4
565 0 0 if ($scheme eq 'https') { }
0 0 elsif ($scheme ne 'http') { }
566 0 0 unless exists $INC{'IO/Socket/SSL.pm'}
568 0 0 unless $INC{'IO/Socket/SSL.pm'}
575 0 0 unless $$self{'fh'} = 'IO::Socket::INET'->new('PeerHost', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1, 'Timeout', $$self{'timeout'})
583 0 0 unless binmode $$self{'fh'}
586 0 0 if ($scheme eq 'https')
588 0 0 unless ref $$self{'fh'} eq 'IO::Socket::SSL'
590 0 0 unless $$self{'fh'}->verify_hostname($host, $ssl_verify_args)
601 0 0 unless @_ == 1
603 0 0 unless CORE::close $$self{'fh'}
608 0 0 unless @_ == 2
611 0 0 if ($] ge '5.008')
612 0 0 unless utf8::downgrade($buf, 1)
622 0 0 unless $self->can_write
625 0 0 if (defined $r) { }
0 0 elsif ($! == 32) { }
0 0 elsif ($! != 4) { }
628 0 0 unless $len > 0
641 0 0 unless @_ == 2 or @_ == 3
647 0 0 if ($got)
648 0 0 $got < $len ? :
654 0 0 unless $self->can_read
657 0 0 if (defined $r) { }
0 0 elsif ($! != 4) { }
658 0 0 unless $r
665 0 0 if ($len and not $allow_partial)
672 0 0 unless @_ == 1
676 0 0 if ($$self{'rbuf'} =~ s/\A ([^\x0D\x0A]* \x0D?\x0A)//x)
679 0 0 if (length $$self{'rbuf'} >= $$self{'max_line_size'})
683 0 0 unless $self->can_read
685 0 0 if (defined $r) { }
0 0 elsif ($! != 4) { }
686 0 0 unless $r
696 0 0 unless @_ == 1 or @_ == 2
705 0 0 if (++$lines >= $$self{'max_header_lines'}) { }
0 0 elsif ($line =~ /\A ([^\x00-\x1F\x7F:]+) : [\x09\x20]* ([^\x0D\x0A]*)/x) { }
0 0 elsif ($line =~ /\A [\x09\x20]+ ([^\x0D\x0A]*)/x) { }
0 0 elsif ($line =~ /\A \x0D?\x0A \z/x) { }
710 0 0 if (exists $$headers{$field_name}) { }
712 0 0 unless ref $_ eq 'ARRAY'
722 0 0 unless $val
724 0 0 unless length $1
725 0 0 if length $$val
739 0 0 unless @_ == 2
742 0 0 if $$request{'cb'}
755 0 0 unless @_ == 2 and ref $_[1] eq 'HASH'
761 0 0 if (exists $HeaderCase{$field_name}) { }
765 0 0 unless $field_name =~ /\A $Token+ \z/ox
770 0 0 ref $v eq 'ARRAY' ? :
771 0 0 unless /[^\x0D\x0A]/
781 0 0 unless @_ == 3
784 0 0 ref $te eq 'ARRAY' ? :
0 0 if (grep {/chunked/i;} ref $te eq 'ARRAY' ? @$te : $te) { }
794 0 0 unless @_ == 2
796 0 0 if ($$request{'headers'}{'content-length'}) { }
805 0 0 unless @_ == 3 or @_ == 4
809 0 0 if ($content_length) { }
812 0 0 $len > 32768 ? :
826 0 0 unless @_ == 2
833 0 0 unless defined $data and length $data
836 0 0 if ($] ge '5.008')
837 0 0 unless utf8::downgrade($data, 1)
844 0 0 unless $len == $content_length
851 0 0 unless @_ == 3
857 0 0 unless $head =~ /\A ([A-Fa-f0-9]+)/x
860 0 0 unless my $len = hex $1
865 0 0 unless $self->read(2) eq "\r\n"
873 0 0 unless @_ == 2
880 0 0 unless defined $data and length $data
883 0 0 if ($] ge '5.008')
884 0 0 unless utf8::downgrade($data, 1)
898 0 0 if ref $$request{'trailer_cb'} eq 'CODE'
904 0 0 unless @_ == 1
909 0 0 unless $line =~ m[\A (HTTP/(0*\d+\.0*\d+)) [\x09\x20]+ ([0-9]{3}) [\x09\x20]+ ([^\x0D\x0A]*) \x0D?\x0A]x
914 0 0 unless $version =~ /0*1\.0*[01]/
926 0 0 unless @_ == 4
935 0 0 unless defined $timeout and $timeout >= 0
939 0 0 unless defined $fd and $fd >= 0
949 0 0 $type eq 'read' ? :
952 0 0 if ($nfound == -1)
953 0 0 unless $! == 4
955 0 0 if not $timeout or ($pending = $timeout - (time - $initial)) > 0
965 0 0 unless @_ == 1 or @_ == 2
971 0 0 unless @_ == 1 or @_ == 2
1018 0 1 $] < 5.008 ? :
1032 0 1 if ($] < 5.008)
1033 0 0 $] >= 5.006 ? :
1035 0 0 if ($@)
1041 0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 $_[0]{'PROPS'}[14] ? :
0 0 $_[0]{'PROPS'}[13] ? :
0 0 $_[0]{'PROPS'}[9] ? :
0 0 $_[0]{'PROPS'}[7] ? :
0 0 $_[0]{'PROPS'}[15] ? :
0 0 $_[0]{'PROPS'}[18] ? :
0 0 $_[0]{'PROPS'}[17] ? :
0 0 $_[0]{'PROPS'}[0] ? :
0 0 $_[0]{'PROPS'}[4] ? :
0 0 $_[0]{'PROPS'}[10] ? :
0 0 $_[0]{'PROPS'}[16] ? :
0 0 $_[0]{'PROPS'}[3] ? :
0 0 $_[0]{'PROPS'}[1] ? :
0 0 $_[0]{'PROPS'}[12] ? :
0 0 $_[0]{'PROPS'}[11] ? :
0 0 $_[0]{'PROPS'}[8] ? :
0 0 $_[0]{'PROPS'}[6] ? :
0 0 $_[0]{'PROPS'}[5] ? :
0 0 $_[0]{'PROPS'}[2] ? :
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
0 0 defined $_[1] ? :
0 0 if ($enable) { }
1139 0 0 defined $v ? :
1141 0 0 if ($enable) { }
1154 0 0 defined $_[1] ? :
1164 0 0 defined $_[1] ? :
1174 0 0 defined $_[1] ? :
1175 0 0 $_[0]{'cb_object'} || $_[0]{'cb_sk_object'} ? :
1180 0 0 if (@_ > 1)
1183 0 0 $_[0]{'cb_object'} || $_[0]{'cb_sk_object'} ? :
1188 0 0 if (not defined $_[1] or $_[1] > 15 or $_[1] < 0) { }
1202 0 0 defined $_[1] ? :
1256 0 0 $canonical ? :
1258 0 0 if ($$self{'sort_by'})
1261 0 0 $$self{'sort_by'} =~ /\D+/ ? :
0 0 ref $$self{'sort_by'} eq 'CODE' ? :
1264 0 0 unless ref $obj or $$idx[7]
1269 0 0 if $indent
1271 0 0 unless ($ascii or $latin1 or $utf8)
1275 0 0 if ($$idx[8])
1287 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type) { }
1294 0 0 if (&blessed($obj)) { }
1296 0 0 if $obj->isa('Test::ModuleVersion::JSON::PP::Boolean')
1298 0 0 if ($convert_blessed and $obj->can('TO_JSON'))
1300 0 0 if (defined $result and ref $result)
1301 0 0 if (&refaddr($obj) eq &refaddr($result))
1312 0 0 if $bignum and _is_bignum($obj)
1313 0 0 if $allow_blessed and $as_nonblessed
1315 0 0 unless $allow_blessed
1335 0 0 if ++$depth > $max_depth
1338 0 0 $indent ? :
1339 0 0 $space_before ? :
0 0 $space_after ? :
1349 0 0 if $indent
1351 0 0 @res ? :
0 0 @res ? :
1359 0 0 if ++$depth > $max_depth
1362 0 0 $indent ? :
1369 0 0 if $indent
1371 0 0 @res ? :
0 0 @res ? :
1378 0 0 unless defined $value
1383 0 0 if $flags & 12288 and not $flags & 16384
1388 0 0 if (not $type) { }
0 0 elsif (&blessed($value) and $value->isa('Test::ModuleVersion::JSON::PP::Boolean')) { }
0 0 elsif ($type) { }
1392 0 0 $$value == 1 ? :
1395 0 0 if ((overload::StrVal($value) =~ /=(\w+)/)[0])
1399 0 0 if ($type eq 'SCALAR' and defined $$value)
1400 0 0 $$self{'PROPS'}[18] ? :
0 0 $$value eq '0' ? :
0 0 $$value eq '1' ? :
1406 0 0 if ($$self{'PROPS'}[18]) { }
1410 0 0 if ($type eq 'SCALAR' or $type eq 'REF') { }
1420 0 0 if $$self{'fallback'} and ref $$self{'fallback'} eq 'CODE'
1444 0 0 if $escape_slash
1447 0 0 if ($ascii)
1451 0 0 if ($latin1)
1455 0 0 if ($utf8)
1465 0 0 if ($reftype eq 'HASH') { }
0 0 elsif ($reftype eq 'ARRAY') { }
1484 0 0 defined $keysort ? :
1518 0 0 $_ <= 65535 ? :
0 0 $_ <= 127 ? :
1530 0 0 $_ <= 65535 ? :
0 0 $_ <= 255 ? :
1548 0 0 unless $_[0]->isa('Math::BigInt')
1564 1 16 if ($int =~ /[eE]/)
1619 0 0 if (not defined $text or ref $text)
1628 0 0 if ($utf8) { }
1629 0 0 unless utf8::downgrade($text, 1)
1640 0 0 if ($max_size > 1)
1643 0 0 if $bytes > $max_size
1652 0 0 !$octets[2] ? :
0 0 $octets[2] ? :
0 0 !($octets[0] || $octets[1]) ? :
0 0 !$octets[0] && $octets[1] ? :
0 0 $octets[0] && $octets[1] ? :
1665 0 0 if not $result and $opt & 268435456
1667 0 0 unless $valid_start
1669 0 0 unless ($$idx[7] or ref $result)
1675 0 0 if $len < $at
1677 0 0 defined $ch ? :
1681 0 0 if ($ch)
1682 0 0 if $opt & 1
1686 0 0 $opt & 1 ? :
1691 0 0 if $at >= $len
1698 0 0 unless defined $ch
1699 0 0 if $ch eq '{'
1700 0 0 if $ch eq '['
1701 0 0 if $ch eq '"' or $singlequote and $ch eq q[']
1702 0 0 if $ch =~ /[0-9]/ or $ch eq '-'
1715 0 0 if ($ch eq '"' or $singlequote and $ch eq q['])
1720 0 0 if ($ch eq $boundChar) { }
0 0 elsif ($ch eq '\\') { }
1723 0 0 if ($utf16)
1727 0 0 if $is_utf8
1733 0 0 if (exists $escapes{$ch}) { }
0 0 elsif ($ch eq 'u') { }
1741 0 0 unless $ch =~ /[0-9a-fA-F]/
1746 0 0 if ($u =~ /^[dD][89abAB][0-9a-fA-F]{2}/) { }
0 0 elsif ($u =~ /^[dD][c-fC-F][0-9a-fA-F]{2}/) { }
1751 0 0 unless (defined $utf16)
1759 0 0 if (defined $utf16)
1763 0 0 if ((my $hex = hex $u) > 127) { }
1774 0 0 unless ($loose)
1783 0 0 if (ord $ch > 127)
1784 0 0 if ($utf8) { }
1785 0 0 if (not $ch = is_valid_utf8($ch)) { }
1800 0 0 unless ($loose)
1801 0 0 if ($ch =~ /[\x00-\x1f\x22\x5c]/)
1818 0 0 if ($ch le ' ') { }
0 0 elsif ($ch eq '/') { }
1823 0 0 if (defined $ch and $ch eq '/') { }
0 0 elsif (defined $ch and $ch eq '*') { }
1829 0 0 if (defined $ch) { }
1830 0 0 if ($ch eq '*') { }
1831 0 0 if (defined next_chr() and $ch eq '/')
1852 0 0 if ($relaxed and $ch eq '#')
1869 0 0 if ++$depth > $max_depth
1875 0 0 if (defined $ch and $ch eq ']') { }
1886 0 0 unless (defined $ch)
1890 0 0 if ($ch eq ']')
1896 0 0 if ($ch ne ',')
1903 0 0 if ($relaxed and $ch eq ']')
1920 0 0 if ++$depth > $max_depth
1925 0 0 if (defined $ch and $ch eq '}') { }
1928 0 0 if ($F_HOOK)
1935 0 0 $allow_barekey && $ch ne '"' && $ch ne q['] ? :
1938 0 0 if (not defined $ch or $ch ne ':')
1947 0 0 unless defined $ch
1949 0 0 if ($ch eq '}')
1952 0 0 if ($F_HOOK)
1958 0 0 if ($ch ne ',')
1965 0 0 if ($relaxed and $ch eq '}')
1968 0 0 if ($F_HOOK)
1996 0 0 if ($word eq 'true') { }
0 0 elsif ($word eq 'null') { }
0 0 elsif ($word eq 'fals') { }
2008 0 0 if (substr($text, $at, 1) eq 'e')
2017 0 0 if $word =~ /^n/
2018 0 0 if $word =~ /^t/
2019 0 0 if $word =~ /^f/
2029 0 0 if ($ch eq '0')
2033 0 0 if ($hex) { }
2039 0 0 if (defined $n and length $n > 1)
2044 0 0 if (defined $n and length $n)
2045 0 0 if (not $hex and length $n == 1)
2050 0 0 $hex ? :
2054 0 0 if ($ch eq '-')
2057 0 0 unless (defined $ch and $ch =~ /\d/)
2067 0 0 if (defined $ch and $ch eq '.')
2071 0 0 if (not defined $ch && $ch =~ /\d/) { }
2083 0 0 if (defined $ch and $ch eq 'e' || $ch eq 'E')
2087 0 0 if (defined $ch and $ch eq '+' || $ch eq '-') { }
0 0 elsif (defined $ch and $ch =~ /\d/) { }
2090 0 0 if (not defined $ch or $ch =~ /\D/)
2110 0 0 if (not $v =~ /[.eE]/ and length $v > $max_intsize) { }
0 0 elsif ($allow_bigint) { }
2111 0 0 if ($allow_bigint) { }
2130 0 0 $_[0] =~ /[\xF0-\xF4]/ ? :
0 0 $_[0] =~ /[\xE0-\xEF]/ ? :
0 0 $_[0] =~ /[\xC2-\xDF]/ ? :
0 0 $_[0] =~ /[\x00-\x7F]/ ? :
2137 0 0 unless $utf8_len
2141 0 0 $is_valid_utf8 =~ /^(?: [\x00-\x7F] |[\xC2-\xDF][\x80-\xBF] |[\xE0][\xA0-\xBF][\x80-\xBF] |[\xE1-\xEC][\x80-\xBF][\x80-\xBF] |[\xED][\x80-\x9F][\x80-\xBF] |[\xEE-\xEF][\x80-\xBF][\x80-\xBF] |[\xF0][\x90-\xBF][\x80-\xBF][\x80-\xBF] |[\xF1-\xF3][\x80-\xBF][\x80-\xBF][\x80-\xBF] |[\xF4][\x80-\x8F][\x80-\xBF][\x80-\xBF] )$/x ? :
2158 0 0 defined $text ? :
2160 0 0 utf8::is_utf8($str) ? :
0 0 $] < 5.006 ? :
0 0 $] >= 5.008 ? :
2167 0 0 $c < 128 ? :
0 0 $c == 92 ? :
0 0 $c < 32 ? :
0 0 $c == 12 ? :
0 0 $c == 13 ? :
0 0 $c == 10 ? :
0 0 $c == 9 ? :
0 0 $c == 7 ? :
2177 0 0 if (length $mess >= 20)
2183 0 0 unless (length $mess)
2188 0 0 $no_rep ? :
2198 0 0 if ($cb_sk_object and @ks == 1 and exists $$cb_sk_object{$ks[0]} and ref $$cb_sk_object{$ks[0]})
2200 0 0 if (@val == 1)
2205 0 0 if $cb_object
2206 0 0 if (@val == 0 or @val > 1) { }
2250 0 1 unless (defined &utf8::is_utf8)
2255 1 0 if ($] >= 5.008)
2262 0 1 if ($] >= 5.008 and $] < 5.008003)
2293 1 0 if $] >= 5.006
0 0 if ($_[0]{'_incr_parser'}{'incr_parsing'})
2313 1 0 if (not $@) { }
2323 0 0 ref $_[0] ? :
2337 0 0 unless length ref $r
2342 0 0 length ref $$r ? :
0 0 exists $tmap{$t} ? :
2347 0 0 unless length ref $_[0]
2350 0 0 if (defined(my $pkg = blessed($_[0]))) { }
2372 0 0 if defined $_[0]
2422 0 0 unless defined $$self{'incr_text'}
2424 0 0 if (defined $text)
2425 0 0 if (utf8::is_utf8($text) and not utf8::is_utf8($$self{'incr_text'}))
2435 0 0 if (defined wantarray)
2437 0 0 unless defined $$self{'incr_mode'}
2439 0 0 if (wantarray) { }
2447 0 0 unless (not $$self{'incr_nest'} and $$self{'incr_mode'} == 3)
2448 0 0 if $$self{'incr_mode'} != 1
2460 0 0 if defined $obj
2461 0 0 $obj ? :
2477 0 0 if ($$self{'incr_mode'} == 0)
2480 0 0 if 32 >= unpack($unpack_format, $s)
2489 0 0 if ($s eq '"')
2490 0 0 if (substr($text, $p - 2, 1) eq '\\')
2494 0 0 if ($$self{'incr_mode'} != 1) { }
2499 0 0 unless ($$self{'incr_nest'})
2505 0 0 if ($$self{'incr_mode'} == 3)
2507 0 0 if ($s eq '[' or $s eq '{') { }
0 0 elsif ($s eq ']' or $s eq '}') { }
0 0 elsif ($s eq '#') { }
2508 0 0 if (++$$self{'incr_nest'} > $coder->get_max_depth)
2513 0 0 if --$$self{'incr_nest'} <= 0
2517 0 0 if substr($text, $p++, 1) eq "\n"
2527 0 0 if $$self{'incr_mode'} == 1 and not $$self{'incr_nest'}
2528 0 0 if $$self{'incr_mode'} == 3 and $$self{'incr_nest'} > 0
2530 0 0 unless length substr($$self{'incr_text'}, 0, $p)
2542 0 0 unless return $obj
2547 0 0 if ($_[0]{'incr_parsing'})
2592 0 0 if defined $$distnames{$module}
2596 0 0 if ($url = $$privates{$module}) { }
2608 0 0 if ($lwp eq 'use' or $lwp eq 'auto' and eval { do { require LWP::UserAgent; 'LWP::UserAgent'->VERSION(5.802) } }) { }
2634 0 0 if ($$res{'success'} and not $ENV{'TEST_MODULEVERSION_REQUEST_FAIL'}) { }
2637 0 0 unless defined $url
2673 0 0 if grep {$module eq $_;} @$ignore
2675 0 0 if length $version
2688 4 0 ref $self->lib ? :
2800 0 4 if (my $file = $opts{'output'})
2801 0 0 unless open my $fh, '>', $file
2816 0 4 unless open my $fh, '<', $path
2820 4 11308 if $line =~ /^=head1/