| line |
true |
false |
branch |
|
18
|
1 |
32 |
if $_ |
|
20
|
11 |
0 |
eval {
do {
require Term::ANSIColor;
1
}
} ? : |
|
50
|
1 |
10 |
$IS_UTF8_TERM ? : |
|
81
|
0 |
11 |
if (@_ > 0 and $_[0] eq "base") |
|
82
|
0 |
0 |
if @_ > 2 |
|
89
|
0 |
11 |
if @_ % 2 != 0 |
|
107
|
0 |
66 |
$IS_LIGHT_BG ? : |
|
124
|
66 |
88 |
/(.+)style/ ? : |
|
148
|
0 |
0 |
@unknown_args == 1 ? : |
|
|
0 |
11 |
if @unknown_args |
|
152
|
11 |
0 |
unless exists $opt_ref->{'base'} |
|
153
|
0 |
0 |
$what eq 'named argument' ? : |
|
163
|
1 |
10 |
if $already_open{$target} |
|
167
|
0 |
10 |
if (not $to_type and ref \$target ne 'GLOB' or $to_type eq 'SCALAR') { } |
|
|
10 |
0 |
elsif (_is_writeable($target)) { } |
|
168
|
0 |
0 |
if (open my $fh, '>', $target) { } |
|
172
|
0 |
0 |
if $warnings |
|
183
|
0 |
0 |
if $warnings |
|
201
|
0 |
109 |
if ($file =~ /\A \( eval \s+ \d+ \)/x) |
|
206
|
0 |
0 |
unless $upfile =~ /\A \( eval \s+ \d+ \)/x |
|
229
|
6 |
5 |
unless ($starting_plugin =~ / \A Data::Show::Plugin \b /x) |
|
241
|
11 |
5 |
unless ($plugin =~ / \A Data::Show::Plugin \b /x) |
|
246
|
1 |
15 |
if exists $loaded{$plugin} |
|
249
|
14 |
1 |
if (my $standard = $STANDARD_PLUGIN{$plugin}) { } |
|
|
0 |
1 |
elsif (_load_external_plugin($plugin, $warnings)) { } |
|
255
|
4 |
12 |
unless (eval "require $requirement; 1") |
|
256
|
0 |
4 |
if $warnings |
|
259
|
4 |
0 |
if ($plugin = shift @fallbacks // $standard->{'fallback'}) { } |
|
270
|
0 |
10 |
unless eval "\n package $plugin;\n BEGIN { our \@ISA = 'Data::Show::Plugin'; }\n $standard->{'source'};\n 1;\n " |
|
288
|
0 |
1 |
if $warnings |
|
297
|
0 |
11 |
if $warnings and $plugin ne $starting_plugin |
|
316
|
0 |
15 |
if $warnings and @missing_methods |
|
342
|
0 |
14 |
unless open my $fh, "<:utf8", $filename |
|
353
|
0 |
14 |
if (exists $opt{'to'} and $opt{'to'} =~ / \A \* (.*) /x) |
|
372
|
84 |
14 |
unless ($hints_ref->{'Data::Show/noshow'}) |
|
380
|
0 |
0 |
if (defined $call_context and not $call_context and @_ > 1) |
|
386
|
0 |
166 |
if (ref($_) =~ /\AContextual::Return::Value/) { } |
|
399
|
54 |
24 |
$is_single_arg ? : |
|
|
6 |
78 |
$is_single_hash ? : |
|
408
|
6 |
78 |
if ($is_single_hash) { } |
|
|
24 |
54 |
elsif (not $is_single_arg) { } |
|
412
|
84 |
0 |
exists $hints_ref->{'Data::Show/to'} ? : |
|
416
|
84 |
0 |
if (not -t $fh or $style{'mode'} eq "auto" and not $CAN_ANSICOLOR) |
|
429
|
0 |
98 |
if $call_context |
|
441
|
6 |
78 |
unless ($source_cache{$file}) |
|
443
|
0 |
6 |
if ($file =~ /\A \( eval \s+ \d+ \)/x) { } |
|
|
6 |
0 |
elsif (open my $filehandle, '<', $file) { } |
|
454
|
0 |
0 |
if (not defined $source_cache{$0} and open my $selfhandle, "<", $0) |
|
461
|
0 |
0 |
unless $source_cache{$file} =~ s/ \A .*? ^ \# \h* line \h+ (\d+) \h+ \Q$file\E \h* \n /"\n" x ($1 - 1);/emsx |
|
491
|
84 |
624 |
$+{'showlines'} =~ tr/\n// >= $prelim_lines ? : |
|
496
|
84 |
0 |
if ($found) { } |
|
553
|
70 |
0 |
$style->{'mode'} eq 'context' || $style->{'mode'} eq 'off' ? : |
|
554
|
70 |
0 |
$style->{'mode'} eq 'off' ? : |
|
560
|
28 |
42 |
if ($style->{'add_grid'} ne "off") |
|
564
|
26 |
2 |
unless $is_new_context |
|
597
|
51 |
34 |
$style->{'add_grid'} eq 'off' ? : |
|
609
|
114 |
88 |
$style->{'add_grid'} eq 'off' ? : |
|
616
|
0 |
70 |
if (not $CAN_ANSICOLOR and $style->{'add_grid'} eq "off") |
|
624
|
5 |
65 |
$is_new_context ? : |
|
625
|
3 |
2 |
$style->{'add_grid'} eq 'off' ? : |
|
653
|
0 |
0 |
$x > $y ? : |
|
694
|
22 |
110 |
$no_formatting ? : |