| line |
true |
false |
branch |
|
79
|
193 |
10117 |
if @_ > 1 |
|
99
|
604 |
941 |
if (defined $new_value) { } |
|
103
|
236 |
705 |
unless defined $self->{'_current_name'} |
|
110
|
64 |
182 |
@_ == 1 ? : |
|
227
|
1 |
245 |
if (exists $props->{'as'}) |
|
241
|
7 |
239 |
defined $props->{'output'} ? : |
|
249
|
19 |
746 |
unless exists $core_options{$key} |
|
258
|
246 |
4 |
if (@_ > 1) |
|
269
|
241 |
5 |
if (not $ref and exists $targets{lc $output}) { } |
|
|
3 |
2 |
elsif ($ref and $ref eq 'GLOB' or not $ref and (\$output) =~ /GLOB\([^()]+\)$/) { } |
|
|
2 |
0 |
elsif (not $ref or $ref eq 'SCALAR') { } |
|
280
|
2 |
0 |
if (open my $fh, '>>', $output) { } |
|
291
|
0 |
246 |
if ($error) |
|
306
|
246 |
69 |
if (defined $value) |
|
308
|
209 |
37 |
if ($value) { } |
|
312
|
0 |
209 |
if exists $self->{'_original_index'} |
|
314
|
0 |
209 |
if exists $self->{'_original_separator'} |
|
316
|
0 |
209 |
if exists $self->{'_original_array_overflow'} |
|
318
|
0 |
209 |
if exists $self->{'_original_hash_overflow'} |
|
320
|
0 |
209 |
if exists $self->{'_original_string_overflow'} |
|
342
|
246 |
0 |
if (defined $value) |
|
344
|
0 |
246 |
if ($value) { } |
|
354
|
0 |
246 |
if exists $self->{'_original_string_max'} |
|
356
|
0 |
246 |
if exists $self->{'_original_array_max'} |
|
358
|
0 |
246 |
if exists $self->{'_original_hash_max'} |
|
373
|
39 |
207 |
if (exists $props->{'filters'}) |
|
374
|
0 |
39 |
if (ref $props->{'filters'} eq 'HASH') { } |
|
|
39 |
0 |
elsif (ref $props->{'filters'} eq 'ARRAY') { } |
|
390
|
26 |
15 |
if (not defined $filter_reftype) { } |
|
|
15 |
0 |
elsif ($filter_reftype eq 'HASH') { } |
|
395
|
0 |
47 |
if ($k eq "-external") |
|
404
|
47 |
0 |
if (&Scalar::Util::reftype($filter->{$k}) eq 'CODE') { } |
|
427
|
0 |
2732 |
if ($error) |
|
446
|
241 |
5 |
if (not $colored or $colored eq 'auto' and exists $ENV{'ANSI_COLORS_DISABLED'} || $self->output eq 'handle' || $self->output eq 'file') { } |
|
460
|
0 |
5 |
if ($ENV{'COLORTERM'} and $ENV{'COLORTERM'} eq 'truecolor') { } |
|
|
0 |
5 |
elsif ($ENV{'TERM_PROGRAM'} and $ENV{'TERM_PROGRAM'} eq 'iTerm.app') { } |
|
|
0 |
5 |
elsif ($ENV{'TERM_PROGRAM'} and $ENV{'TERM_PROGRAM'} eq 'Apple_Terminal') { } |
|
|
0 |
5 |
elsif ($ENV{'TERM'} and $ENV{'TERM'} =~ /\-256(?:color)?\z/i) { } |
|
|
5 |
0 |
elsif ($ENV{'TERM'} and $ENV{'TERM'} =~ /\A(?:screen|xterm|vt100|rxvt)/i || $ENV{'TERM'} =~ /color|ansi|cygwin|linux/i) { } |
|
|
0 |
0 |
elsif ($ENV{'COLORTERM'}) { } |
|
465
|
0 |
0 |
$major_version >= 3 ? : |
|
483
|
0 |
0 |
$colored eq 'auto' ? : |
|
503
|
0 |
246 |
unless ($theme_object) |
|
504
|
0 |
0 |
if ($theme_name ne $default_theme) |
|
512
|
0 |
0 |
unless $theme_object |
|
519
|
681 |
0 |
exists $self->{'type_filters'}{$type} ? : |
|
524
|
133 |
750 |
exists $self->{'class_filters'}{$type} ? : |
|
533
|
0 |
642 |
unless $ref_kind |
|
536
|
5 |
637 |
if $ref_kind eq "REGEXP" |
|
545
|
5 |
637 |
if (defined $class and $class eq "Regexp") |
|
546
|
5 |
0 |
if ($ref_kind eq "Regexp" or $] < "5.011" and $ref_kind eq "SCALAR") |
|
551
|
94 |
548 |
if (defined $class) |
|
552
|
93 |
1 |
if ($self->class->parent_filters) { } |
|
590
|
2 |
712 |
unless ref $data |
|
592
|
639 |
73 |
unless (exists $self->{'_seen'}{$id}) |
|
593
|
74 |
565 |
$self->show_refcount ? : |
|
604
|
635 |
4 |
unless $options{'tied_parent'} |
|
607
|
40 |
33 |
if $options{'seen_override'} |
|
619
|
0 |
20 |
unless ref $data and keys %{$$self{"_seen"};} |
|
632
|
25 |
49 |
if (ref $data eq "REF" and ref $$data) |
|
638
|
0 |
74 |
unless $rv->can("REFCNT") |
|
664
|
33 |
681 |
if (my $name = $seen->{'name'}) |
|
665
|
0 |
33 |
ref $data eq 'SCALAR' && $self->resolve_scalar_refs ? : |
|
684
|
39 |
642 |
exists $options{'force_type'} ? : |
|
689
|
681 |
1 |
if (defined(my $result = &$filter($data, $self))) |
|
699
|
613 |
68 |
if ref $data ne "REF" |
|
702
|
20 |
54 |
if ($self->show_refcount and ref $data ne "SCALAR" and $seen->{'refcount'} > 1) |
|
706
|
305 |
376 |
if (--$self->{'_position'} == 0) |
|
719
|
681 |
0 |
unless $self->show_memsize and $self->show_memsize eq 'all' || $self->show_memsize >= $self->{'_position'} |
|
726
|
0 |
0 |
if ($unit eq 'M' or $unit eq 'AUTO' and $size > 1048576) { } |
|
|
0 |
0 |
elsif ($unit eq 'K' or $unit eq 'AUTO' and $size > 1024) { } |
|
738
|
0 |
0 |
if ($error) |
|
739
|
0 |
0 |
if ($error =~ m[locate Devel/Size.pm]) { } |
|
741
|
0 |
0 |
if $self->{'_position'} == 1 |
|
748
|
0 |
0 |
unless $size |
|
749
|
0 |
0 |
$size < 0 ? : |
|
755
|
38 |
676 |
unless $self->show_weak |
|
759
|
440 |
236 |
if ($realtype and $realtype eq 'REF' || $realtype eq 'SCALAR') { } |
|
765
|
659 |
17 |
unless $isweak |
|
771
|
59 |
2 |
unless $self->caller_info |
|
780
|
0 |
2 |
$self->caller_message_newline ? : |
|
782
|
1 |
1 |
$self->caller_message_position eq 'before' ? : |
|
792
|
3 |
1844 |
if ($self->{'_output_color_level'} and defined $color_type) |
|
795
|
1 |
2 |
if (not defined $sgr_color and defined $default_color) |
|
798
|
1 |
2 |
if ($sgr_color) |
|
799
|
0 |
1 |
defined $end_color ? : |
|
812
|
7 |
674 |
if $self->show_readonly and &Internals::SvREADONLY($_[1]) |