| blib/lib/YAML/Old.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 0 | 149 | if $YAML::DumperClass |
| 41 | 0 | 279 | if $YAML::LoaderClass |
| 57 | 2 | 3 | if (&openhandle($filename)) { } |
| 62 | 0 | 3 | if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) |
| 65 | 1 | 2 | unless open $OUT, $mode, $filename |
| 71 | 4 | 0 | unless (ref $filename eq 'GLOB') |
| 73 | 0 | 4 | unless (close $OUT) |
| 83 | 2 | 3 | if (&openhandle($filename)) { } |
| 87 | 1 | 2 | unless open $IN, '<', $filename |
| 99 | 0 | 428 | if $@ and not "$@" =~ /Can't locate/ |