| line |
true |
false |
branch |
|
20
|
9 |
3 |
unless defined $yaml_loader |
|
21
|
4 |
8 |
if (UNIVERSAL::isa($args[0], 'GLOB')) { } |
|
|
0 |
8 |
elsif (scalar @args >= 2 and $args[1] =~ /^\+?[<>rwa]|>>|\d+$/ and $args[0] ne 'mode') { } |
|
26
|
3 |
1 |
if scalar(@args) % 2 and $args[0] =~ /^\+?[<>rwa]|>>|\d+$/ |
|
37
|
3 |
9 |
if (scalar(@args) % 2) |
|
39
|
3 |
0 |
if (ref $args[0] eq '' or UNIVERSAL::can($args[0], 'stringify')) { } |
|
61
|
9 |
12 |
scalar @_ > 1 ? : |
|
62
|
22 |
11 |
scalar @_ > 1 ? : |
|
63
|
5 |
27 |
scalar @_ > 1 ? : |
|
64
|
1 |
8 |
scalar @_ > 1 ? : |
|
66
|
21 |
0 |
scalar @_ > 1 ? : |
|
67
|
0 |
30 |
scalar @_ > 1 ? : |
|
68
|
22 |
103 |
scalar @_ > 1 ? : |
|
73
|
0 |
1 |
unless defined $fh |
|
76
|
0 |
1 |
if $mode =~ /^[r<]$/ |
|
78
|
0 |
1 |
unless print $fh "...\n" |
|
86
|
0 |
9 |
if (defined $path and defined $fh) |
|
92
|
0 |
9 |
if (defined $fh) { } |
|
94
|
0 |
0 |
unless defined $mode |
|
100
|
0 |
9 |
unless (defined $path) |
|
102
|
0 |
0 |
if (exists &Errno::ENOENT) { } |
|
118
|
0 |
9 |
unless ($fh->open($path, $mode)) |
|
138
|
13 |
0 |
if (defined $fh) |
|
150
|
2 |
5 |
$self->auto_terminate ? : |
|
162
|
22 |
9 |
scalar @$buffer ? : |
|
163
|
0 |
31 |
unless defined $source |
|
164
|
27 |
4 |
unless $source =~ /^#/ |
|
167
|
3 |
68 |
if ($line =~ /^\.\.\.$/) { } |
|
|
22 |
46 |
elsif ($line =~ /^---/) { } |
|
178
|
16 |
11 |
$self->auto_load ? : |
|
190
|
0 |
0 |
if wantarray |
|
202
|
0 |
3 |
if ($pos) { } |
|
204
|
0 |
0 |
unless $result = fh_seek($fh, $pos, $whence) |
|
207
|
0 |
0 |
if (not defined $source) { } |
|
|
0 |
0 |
elsif (not $source =~ /^---(?=\s)/) { } |
|
231
|
0 |
0 |
unless $! eq '' |
|
238
|
0 |
0 |
unless $length == 0 or $length == $self->tell |
|
254
|
0 |
12 |
if $self->handle |
|
259
|
7 |
5 |
if $self->handle |
|
260
|
12 |
0 |
unless ($^V and $^V lt '5.8.0') |
|
261
|
12 |
0 |
if tied *$self |
|
270
|
0 |
0 |
unless defined $f |
|
280
|
0 |
9 |
if ($path =~ s/^(<|>|>>|\+<|\+>)\s*//) |
|
283
|
4 |
5 |
unless defined $mode |
|
296
|
0 |
5 |
unless $mode = $mode_norm{$mode} |
|
306
|
4 |
8 |
if ($fh) { } |
|
|
3 |
5 |
elsif (defined $path) { } |
|
328
|
12 |
0 |
if ref $_[0] |
|
335
|
1 |
27 |
if wantarray |
|
393
|
13 |
0 |
if (UNIVERSAL::isa($fh, 'GLOB')) { } |
|
405
|
3 |
0 |
if (UNIVERSAL::isa($fh, 'GLOB')) { } |
|
417
|
3 |
0 |
if (UNIVERSAL::isa($fh, 'GLOB')) { } |
|
429
|
0 |
0 |
if (UNIVERSAL::isa($fh, 'GLOB')) { } |
|
441
|
3 |
0 |
if (UNIVERSAL::isa($fh, 'GLOB')) { } |
|
463
|
13 |
5 |
unless $INC{$path} |
|
464
|
0 |
9 |
unless my $L = $pkg->can('Load') |
|
465
|
0 |
9 |
unless my $D = $pkg->can('Dump') |