blib/lib/Brackup/Metafile.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 9 | 14 | 64.2 |
line | true | false | branch |
---|---|---|---|
13 | 0 | 13 | unless (-e $file) |
18 | 13 | 0 | if (eval { do { require IO::Uncompress::AnyUncompress } }) { } |
19 | 0 | 13 | unless $$self{'fh'} = 'IO::Uncompress::AnyUncompress'->new($file) |
36 | 1228 | 234 | if ($line =~ /^([\w\-]+):\s*(.+)/) |
41 | 198 | 36 | if ($line eq "\n") |
44 | 36 | 0 | if ($line =~ /^\s+(.+)/) |
45 | 0 | 36 | unless $$self{'last'} |