| blib/lib/MARC/MIR/Template.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 30 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 1 | if ref $content |
| 49 | 0 | 4 | unless my $tag = $spec{$_} |
| 52 | 1 | 3 | if (ref $_) { } |
| 80 | 0 | 0 | if @_ |
| 89 | 0 | 4 | unless my $cb = $$template[FOR_DATA()]{$k} |
| 95 | 2 | 1 | if (ref $data) { } |
| 112 | 2 | 6 | if (defined $_) { } |
| 114 | 1 | 1 | if (ref $_) { } |
| 127 | 8 | 0 | if (defined $key) { } |
| 128 | 0 | 0 | if $DEBUG |
| 138 | 0 | 4 | unless (my $spec = $$tmpl{$tag}) |
| 139 | 0 | 0 | if $template->debug |
| 142 | 3 | 1 | if (my $ref = ref $spec) { } |
| 143 | 1 | 2 | if ($ref eq 'HASH') { } |
| 2 | 0 | elsif ($ref eq 'ARRAY') { } |