| line | % | coverage | branch |
|---|
| 19 | 50 | T | F | if ($^O =~ /Win32/i) |
| 118 | 50 | T | F | if (scalar @_) |
| 119 | 50 | T | F | @_ == 1 ? : |
| 120 | 50 | T | F | unless ref $args and ref $args eq 'HASH' |
| 126 | 50 | T | F | unless (exists $$properties{'_initialized'}) |
| 132 | 50 | T | F | if ($args) |
| 136 | 50 | T | F | $$properties{'use_prototypes'} ? : |
| 157 | 0 | T | F | if (not ref $item and @_ == 0) |
| 168 | 50 | T | F | if ($$p{'return_value'} eq 'pass') { } |
| 50 | T | F | elsif ($$p{'return_value'} eq 'void') { } |
| 172 | 0 | T | F | if ($ref eq 'ARRAY') { } |
| 0 | T | F | elsif ($ref eq 'HASH') { } |
| 0 | T | F | elsif (grep {$ref eq $_;} 'REF', 'SCALAR', 'CODE', 'Regexp', 'GLOB', 'VSTRING') { } |
| 190 | 50 | T | F | unless defined wantarray |
| 198 | 50 | T | F | unless ref $_[0] |
| 205 | 50 | T | F | unless ($$p{'multiline'}) |
| 216 | 50 | T | F | if (not $$p{'colored'} or $$p{'colored'} eq 'auto' and exists $ENV{'ANSI_COLORS_DISABLED'} || $wantarray || !(-t $$p{'_output'})) { } |
| 232 | 50 | T | F | if ($$p{'caller_info'} and $$p{'_depth'} == 0) |
| 243 | 50 | T | F | defined $$p{'_reftype'} ? : |
| 250 | 50 | T | F | if (exists $$p{'_seen'}{$id}) { } |
| 50 | T | F | elsif (not exists $$p{'_seen_override'}{$ref}) { } |
| 251 | 0 | T | F | unless (defined $$p{'_reftype'}) |
| 263 | 50 | T | F | if "$item" =~ /GLOB\([^()]+\)$/ |
| 268 | 50 | T | F | if (exists $$p{'filters'}{$ref}) |
| 270 | 50 | T | F | if (defined(my $result = &$filter($item, $p))) |
| 278 | 50 | T | F | if (not $found and &Scalar::Util::blessed($item)) |
| 281 | 0 | T | F | if (defined(my $result = &$filter($item, $p))) |
| 289 | 50 | T | F | unless ($found) |
| 293 | 0 | T | F | if (defined(my $result = &$filter($item, $p))) |
| 300 | 50 | T | F | if ($$p{'show_tied'} and $$p{'_tie'}) |
| 318 | 0 | T | F | if (not defined $$item) { } |
| 0 | T | F | elsif (&Scalar::Util::looks_like_number($$item)) { } |
| 330 | 0 | T | F | if $$p{'show_tainted'} and &Scalar::Util::tainted($$item) |
| 335 | 0 | T | F | if ($$p{'show_readonly'} and &Internals::SvREADONLY($item)) |
| 348 | 0 | T | F | if ($$p{'print_escapes'}) |
| 375 | 0 | T | F | if ($$p{'max_depth'} and $$p{'_depth'} > $$p{'max_depth'}) { } |
| 0 | T | F | elsif (not @$item) { } |
| 390 | 0 | T | F | if ($$p{'index'}) |
| 401 | 0 | T | F | if (not $ref or $ref eq 'SCALAR') { } |
| 407 | 0 | T | F | if $ref and &Scalar::Util::isweak($$item[$i]) and $$p{'show_weak'} |
| 411 | 0 | T | F | if $i < $#{$item;} or $$p{'end_separator'} |
| 434 | 50 | T | F | if (my $ref_ahead = ref $$item) |
| 435 | 50 | T | F | if grep {$_ eq $ref_ahead;} 'SCALAR', 'CODE', 'Regexp', 'ARRAY', 'HASH', 'GLOB', 'REF' |
| 440 | 50 | T | F | if &Scalar::Util::isweak($$item) and $$p{'show_weak'} |
| 452 | 50 | T | F | if ($$p{'deparse'}) |
| 466 | 0 | T | F | if ($$p{'max_depth'} and $$p{'_depth'} > $$p{'max_depth'}) { } |
| 0 | T | F | elsif (not keys %$item) { } |
| 485 | 0 | T | F | $$p{'sort_keys'} ? : |
| 491 | 0 | T | F | if ($quote_keys and $quote_keys ne 'auto' || ($key eq '' || $new_key ne $key || $new_key =~ /\s|\n|\t|\r/)) |
| 510 | 0 | T | F | if ($multiline) |
| 512 | 0 | T | F | if $l > $len |
| 531 | 0 | T | F | if (not $ref or $ref eq 'SCALAR') { } |
| 538 | 0 | T | F | if $ref and $$p{'show_weak'} and &Scalar::Util::isweak($$item{$raw_key}) |
| 543 | 0 | T | F | if --$total_keys > 0 or $$p{'end_separator'} |
| 569 | 0 | T | F | if ($val =~ /\(\?\^?([uladxismpogce]*)(?:\-[uladxismpogce]+)?:(.*)\)/s) { } |
| 572 | 0 | T | F | if ($modifiers) |
| 599 | 0 | T | F | if $$p{'show_lvalue'} |
| 618 | 0 | T | F | if ($flags) |
| 619 | 0 | T | F | $flags & 2 ? : |
| 0 | T | F | $flags & 1 ? : |
| 635 | 0 | T | F | if (my(@flags) = grep({$flags & $flags{$_};} keys %flags)) |
| 642 | 0 | T | F | unless ($@) |
| 645 | 0 | T | F | if $extra |
| 666 | 0 | T | F | if ($$p{'class_method'} and my $method = $item->can($$p{'class_method'})) |
| 675 | 0 | T | F | if ($$p{'class'}{'show_reftype'}) |
| 682 | 0 | T | F | if ($$p{'class'}{'expand'} eq 'all' or $$p{'class'}{'expand'} >= $$p{'class'}{'_depth'}) |
| 689 | 0 | T | F | if ($] >= 5.01) { } |
| 698 | 0 | T | F | unless $stash->get_symbol('@ISA') |
| 0 | T | F | if (my(@superclasses) = @{[] unless $stash->get_symbol('@ISA');}) |
| 699 | 0 | T | F | if ($$p{'class'}{'parents'}) |
| 707 | 0 | T | F | if ($$p{'class'}{'linear_isa'} and $$p{'class'}{'linear_isa'} eq 'auto' && @superclasses > 1 || $$p{'class'}{'linear_isa'} ne 'auto') |
| 722 | 0 | T | F | if $$p{'class'}{'show_methods'} and $$p{'class'}{'show_methods'} ne 'none' |
| 725 | 0 | T | F | if ($$p{'class'}{'internals'}) |
| 759 | 50 | T | F | if exists $IDs{$self} |
| 781 | 0 | T | F | if ($_ and $m = B::svref_2object($_) and $m->isa('B::CV') and not $m->GV->isa('B::Special')) { } |
| 796 | 0 | T | F | $$p{'class'}{'universal'} ? : |
| 802 | 0 | T | F | if $seen_method_name{$method_string}++ |
| 804 | 0 | T | F | substr($method_string, 0, 1) eq '_' ? : |
| 806 | 0 | T | F | if ($package_string ne $ref) |
| 807 | 0 | T | F | unless $inherited ne 'none' and $inherited eq 'all' || $type eq $inherited |
| 818 | 0 | T | F | unless $show_methods eq 'all' or $show_methods eq $type |
| 821 | 0 | T | F | $$p{'class'}{'sort_methods'} ? : |
| 826 | 0 | T | F | @list ? : |
| 864 | 50 | T | F | if ($p) |
| 866 | 100 | T | F | if ($key eq 'color' or $key eq 'colour') { } |
| 50 | T | F | elsif ($key eq 'class') { } |
| 100 | T | F | elsif ($key eq 'filters') { } |
| 50 | T | F | elsif ($key eq 'output') { } |
| 868 | 50 | T | F | if (not ref $color or ref $color ne 'HASH') { } |
| 890 | 50 | T | F | if ($item eq '-external') { } |
| 891 | 50 | T | F | ref $filters ? : |
| 896 | 50 | T | F | if ($@) { } |
| 905 | 50 | T | F | if $extras{$k}{'show_repeated'} |
| 912 | 0 | T | F | ref $filters eq 'CODE' ? : |
| 929 | 0 | T | F | if (not $ref and exists $output_target{lc $out}) { } |
| 0 | T | F | elsif ($ref and $ref eq 'GLOB' or not $ref and (\$out) =~ /GLOB\([^()]+\)$/) { } |
| 0 | T | F | elsif (not $ref or $ref eq 'SCALAR') { } |
| 938 | 0 | T | F | if (open my $fh, '>>', $out) { } |
| 949 | 0 | T | F | if ($error) |
| 967 | 50 | T | F | exists $ENV{'DATAPRINTERRC'} ? : |
| 50 | T | F | exists $$args{'rc_file'} ? : |
| 971 | 50 | T | F | unless -e $file |
| 974 | 50 | T | F | if (not $^O =~ /Win32/i and $mode & 16 || $mode & 2) |
| 979 | 50 | T | F | if (-l $file or not -f _ or -p _ or -S _ or -b _ or -c _) |
| 984 | 50 | T | F | unless (-O $file) |
| 989 | 50 | T | F | if (open my $fh, '<', $file) { } |
| 994 | 50 | T | F | if (${^TAINT} != 0) |
| 995 | 0 | T | F | if ($$args{'allow_tainted'}) { } |
| 1007 | 50 | T | F | if ($@) { } |
| 50 | T | F | elsif (not ref $config or ref $config ne 'HASH') { } |