| line |
true |
false |
branch |
|
79
|
193 |
10464 |
if @_ > 1
|
|
99
|
612 |
964 |
if (defined $new_value) { }
|
|
103
|
245 |
719 |
unless defined $self->{'_current_name'}
|
|
110
|
64 |
191 |
@_ == 1 ? :
|
|
227
|
1 |
254 |
if (exists $props->{'as'})
|
|
241
|
7 |
248 |
defined $props->{'output'} ? :
|
|
249
|
20 |
763 |
unless exists $core_options{$key}
|
|
258
|
255 |
4 |
if (@_ > 1)
|
|
269
|
250 |
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 |
255 |
if ($error)
|
|
306
|
255 |
71 |
if (defined $value)
|
|
308
|
218 |
37 |
if ($value) { }
|
|
312
|
0 |
218 |
if exists $self->{'_original_index'}
|
|
314
|
0 |
218 |
if exists $self->{'_original_separator'}
|
|
316
|
0 |
218 |
if exists $self->{'_original_array_overflow'}
|
|
318
|
0 |
218 |
if exists $self->{'_original_hash_overflow'}
|
|
320
|
0 |
218 |
if exists $self->{'_original_string_overflow'}
|
|
342
|
255 |
0 |
if (defined $value)
|
|
344
|
0 |
255 |
if ($value) { }
|
|
354
|
0 |
255 |
if exists $self->{'_original_string_max'}
|
|
356
|
0 |
255 |
if exists $self->{'_original_array_max'}
|
|
358
|
0 |
255 |
if exists $self->{'_original_hash_max'}
|
|
373
|
44 |
211 |
if (exists $props->{'filters'})
|
|
374
|
0 |
44 |
if (ref $props->{'filters'} eq 'HASH') { }
|
|
|
44 |
0 |
elsif (ref $props->{'filters'} eq 'ARRAY') { }
|
|
390
|
31 |
15 |
if (not defined $filter_reftype) { }
|
|
|
15 |
0 |
elsif ($filter_reftype eq 'HASH') { }
|
|
395
|
0 |
47 |
if ($k eq "-external")
|
|
404
|
47 |
0 |
if (builtin::reftype($filter->{$k}) eq 'CODE') { }
|
|
427
|
0 |
2836 |
if ($error)
|
|
446
|
250 |
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 |
255 |
unless ($theme_object)
|
|
504
|
0 |
0 |
if ($theme_name ne $default_theme)
|
|
512
|
0 |
0 |
unless $theme_object
|
|
519
|
703 |
0 |
exists $self->{'type_filters'}{$type} ? :
|
|
524
|
146 |
777 |
exists $self->{'class_filters'}{$type} ? :
|
|
533
|
0 |
661 |
unless $ref_kind
|
|
536
|
5 |
656 |
if $ref_kind eq "REGEXP"
|
|
545
|
5 |
656 |
if (defined $class and $class eq "Regexp")
|
|
546
|
5 |
0 |
if ($ref_kind eq "Regexp" or $] < "5.011" and $ref_kind eq "SCALAR")
|
|
551
|
102 |
559 |
if (defined $class)
|
|
552
|
101 |
1 |
if ($self->class->parent_filters) { }
|
|
590
|
2 |
734 |
unless ref $data
|
|
592
|
658 |
76 |
unless (exists $self->{'_seen'}{$id})
|
|
593
|
74 |
584 |
$self->show_refcount ? :
|
|
604
|
654 |
4 |
unless $options{'tied_parent'}
|
|
607
|
43 |
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 |
703 |
if (my $name = $seen->{'name'})
|
|
665
|
0 |
33 |
ref $data eq 'SCALAR' && $self->resolve_scalar_refs ? :
|
|
684
|
42 |
661 |
exists $options{'force_type'} ? :
|
|
689
|
703 |
1 |
if (defined(my $result = &$filter($data, $self)))
|
|
699
|
635 |
68 |
if ref $data ne "REF"
|
|
702
|
20 |
54 |
if ($self->show_refcount and ref $data ne "SCALAR" and $seen->{'refcount'} > 1)
|
|
706
|
318 |
385 |
if (--$self->{'_position'} == 0)
|
|
719
|
703 |
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 |
698 |
unless $self->show_weak
|
|
759
|
452 |
246 |
if ($realtype and $realtype eq 'REF' || $realtype eq 'SCALAR') { }
|
|
765
|
681 |
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 |
1925 |
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 |
696 |
if $self->show_readonly and &Internals::SvREADONLY($_[1])
|