line |
true |
false |
branch |
59
|
0 |
0 |
ref $_[0] ? : |
62
|
0 |
0 |
unless my $file = shift() |
63
|
0 |
0 |
unless -e $file |
65
|
0 |
0 |
unless -f _ |
67
|
0 |
0 |
unless -r _ |
72
|
0 |
0 |
unless ($fh) |
82
|
0 |
0 |
if (my $err = $@) |
87
|
0 |
0 |
unless (close $fh) |
96
|
0 |
0 |
ref $_[0] ? : |
100
|
0 |
0 |
unless (defined $string) |
106
|
0 |
0 |
if (utf8::is_utf8($string) and not utf8::valid($string)) |
120
|
0 |
0 |
unless length $string |
127
|
0 |
0 |
if @lines and $lines[0] =~ /^\%YAML[: ][\d\.]+.*\z/ |
133
|
0 |
0 |
if ($lines[0] =~ /^---\s*(?:(.+)\s*)?\z/) |
136
|
0 |
0 |
if (defined $1 and not $1 =~ /^(?:\#.+|\%YAML[: ][\d\.]+)\z/) |
144
|
0 |
0 |
if (not @lines or $lines[0] =~ /^(?:---|\.\.\.)/) { } |
|
0 |
0 |
elsif (not $in_document and @$self) { } |
|
0 |
0 |
elsif ($lines[0] =~ /^\s*\-(?:\s|$|-+$)/) { } |
|
0 |
0 |
elsif ($lines[0] =~ /^(\s*)\S/) { } |
180
|
0 |
0 |
if (ref $@ eq 'SCALAR') { } |
|
0 |
0 |
elsif ($@) { } |
191
|
0 |
0 |
unless length $string |
198
|
0 |
0 |
unless length $string |
202
|
0 |
0 |
length $1 > 1 ? : |
214
|
0 |
0 |
if $string eq '~' |
217
|
0 |
0 |
if ($string =~ /^$re_capture_single_quoted$re_trailing_comment\z/) |
222
|
0 |
0 |
if ($string =~ /^$re_capture_double_quoted$re_trailing_comment\z/) |
227
|
0 |
0 |
if ($string =~ /^[\'\"!&]/) |
230
|
0 |
0 |
if $string =~ /^{}(?:\s+\#.*)?\z/ |
231
|
0 |
0 |
if $string =~ /^\[\](?:\s+\#.*)?\z/ |
234
|
0 |
0 |
unless ($string =~ /^[>|]/) |
235
|
0 |
0 |
if $string =~ /^(?:-(?:\s|$)|[\@\%\`])/ or $string =~ /:(?:\s|$)/ |
243
|
0 |
0 |
unless @$lines |
248
|
0 |
0 |
if (defined $$indent[-2] and $$indent[-1] <= $$indent[-2]) |
256
|
0 |
0 |
unless length $1 >= $$indent[-1] |
260
|
0 |
0 |
substr($string, 0, 1) eq '>' ? : |
261
|
0 |
0 |
substr($string, 1, 1) eq '-' ? : |
271
|
0 |
0 |
if ($$lines[0] =~ /^(?:---|\.\.\.)/) |
280
|
0 |
0 |
if (length $1 < $$indent[-1]) { } |
|
0 |
0 |
elsif (length $1 > $$indent[-1]) { } |
286
|
0 |
0 |
if ($$lines[0] =~ /^(\s*\-\s+)[^\'\"]\S*\s*:(?:\s+|$)/) { } |
|
0 |
0 |
elsif ($$lines[0] =~ /^\s*\-\s*\z/) { } |
|
0 |
0 |
elsif ($$lines[0] =~ /^\s*\-(\s*)(.+?)\s*\z/) { } |
|
0 |
0 |
elsif (defined $$indent[-2] and $$indent[-1] == $$indent[-2]) { } |
295
|
0 |
0 |
unless (@$lines) |
299
|
0 |
0 |
if ($$lines[0] =~ /^(\s*)\-/) { } |
|
0 |
0 |
elsif ($$lines[0] =~ /^(\s*)\S/) { } |
301
|
0 |
0 |
if ($$indent[-1] == $indent2) { } |
353
|
0 |
0 |
if ($$lines[0] =~ /^(?:---|\.\.\.)/) |
362
|
0 |
0 |
if (length $1 < $$indent[-1]) { } |
|
0 |
0 |
elsif (length $1 > $$indent[-1]) { } |
372
|
0 |
0 |
if ($$lines[0] =~ s/^\s*$re_capture_single_quoted$re_key_value_separator//) { } |
|
0 |
0 |
elsif ($$lines[0] =~ s/^\s*$re_capture_double_quoted$re_key_value_separator//) { } |
|
0 |
0 |
elsif ($$lines[0] =~ s/^\s*$re_capture_unquoted_key$re_key_value_separator//) { } |
|
0 |
0 |
elsif ($$lines[0] =~ /^\s*\?/) { } |
396
|
0 |
0 |
if (length $$lines[0]) { } |
404
|
0 |
0 |
unless (@$lines) |
408
|
0 |
0 |
if ($$lines[0] =~ /^(\s*)-/) { } |
|
0 |
0 |
elsif ($$lines[0] =~ /^(\s*)./) { } |
415
|
0 |
0 |
if ($$indent[-1] >= $indent2) { } |