| line |
true |
false |
branch |
|
13
|
39 |
0 |
$] >= 5.01 ? :
|
|
235
|
0 |
21 |
if ref $that
|
|
239
|
0 |
21 |
if ($DEBUG)
|
|
245
|
0 |
21 |
if $that eq $sub
|
|
246
|
10 |
11 |
if not $that =~ /:/ and "CORE::$that" eq $sub
|
|
247
|
0 |
11 |
unless $that =~ /^:/
|
|
252
|
1 |
10 |
if (exists $cache{$sub}{$that})
|
|
308
|
3 |
28 |
if (not defined $arg) { }
|
|
|
2 |
26 |
elsif (ref $arg eq 'GLOB') { }
|
|
332
|
11 |
0 |
if ($number =~ /^\d+$/)
|
|
354
|
0 |
0 |
if ($raw_mode & 2) { }
|
|
|
0 |
0 |
elsif ($raw_mode & 1) { }
|
|
|
0 |
0 |
elsif ($raw_mode & 8) { }
|
|
374
|
0 |
0 |
if ($filehandle and not ref $filehandle) { }
|
|
414
|
0 |
4 |
if (@args < 2)
|
|
457
|
6 |
0 |
if ($close_arg and not ref $close_arg)
|
|
483
|
2 |
0 |
if (defined $arg_name) { }
|
|
484
|
0 |
2 |
if (ref $arg_name) { }
|
|
507
|
36 |
3 |
if ($mode eq '<') { }
|
|
|
0 |
3 |
elsif ($mode eq '>') { }
|
|
|
0 |
3 |
elsif ($mode eq '>>') { }
|
|
511
|
0 |
39 |
unless defined $file
|
|
513
|
36 |
3 |
if $wordy_mode
|
|
525
|
3 |
39 |
if (@open_args <= 1 or @open_args >= 4)
|
|
530
|
7 |
32 |
if (@open_args == 2)
|
|
533
|
7 |
0 |
if (ref $fh eq 'GLOB')
|
|
548
|
4 |
3 |
unless ($mode)
|
|
553
|
4 |
0 |
if ($file =~ /^\s*\w+\s*$/) { }
|
|
581
|
29 |
3 |
if $msg
|
|
604
|
0 |
1 |
if @_ != 3
|
|
649
|
0 |
89 |
if ($DEBUG)
|
|
657
|
65 |
24 |
if (my $sub = $formatter_of{$call}) { }
|
|
662
|
0 |
89 |
if $Carp::Verbose
|
|
775
|
120 |
98 |
if $package->isa('Fatal')
|
|
776
|
0 |
98 |
if $package->isa($class)
|
|
777
|
2 |
96 |
if $package->isa('autodie::exception')
|
|
782
|
2 |
94 |
if $package->can('DOES') and $package->DOES('autodie::skip')
|
|
784
|
0 |
94 |
if $file =~ /^\(eval\s\d+\)$/
|
|
808
|
27 |
67 |
unless (defined $sub)
|
|
842
|
0 |
94 |
unless $$this{$PACKAGE}{'function'} = $args{'function'}
|