| lib/Text/Playlist/M3U.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 1 | unless grep {$_ =~ /^#EXTM3U/o;} @lines |
| 29 | 1 | 4 | if ($line =~ /#EXTM3U(\s+\S+?=\S+)*/io) |
| 30 | 0 | 1 | if scalar keys $$self{'attrs'} |
| 35 | 2 | 3 | if ($line =~ /^\s*#EXTINF:(-?\d+(?:\.\d+)?)(\s+\S+?=\S+)*,\s*(.*)/io) |
| 43 | 0 | 5 | if ($line =~ /^\s*#EXT-X-\S+?:(\s*\S+?=\S+)/io) |
| 47 | 3 | 2 | if ($line =~ /^\s*#/) |
| 51 | 2 | 0 | if ($line) |
| 58 | 1 | 0 | wantarray ? : |
| 64 | 1 | 2 | unless $str |
| 82 | 3 | 0 | @parts ? : |