| blib/lib/File/Find/Rule/MP3Info.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 20 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 83 | 5 | 6 | UNIVERSAL::isa($_[0], 'HASH') ? : |
| 87 | 0 | 60 | unless my $info = get_mp3info($file) |
| 88 | 16 | 44 | unless my $tag = get_mp3tag($file) |
| 91 | 38 | 12 | defined $$tag{$fld} ? : |
| 93 | 0 | 50 | unless defined $value |
| 95 | 24 | 26 | if ($numeric{$fld}) { } |
| 8 | 18 | elsif ($strings{$fld} and ref $criteria{$fld} eq 'Regexp') { } | |
| 97 | 12 | 12 | unless &$cmp($value) |
| 100 | 5 | 3 | unless $value =~ /$criteria{$fld}/ |
| 102 | 10 | 8 | unless $value eq $criteria{$fld} |