| inc/My/Module/Test.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 0 | 10 | if ref $args[0] eq 'HASH' |
| 33 | 10 | 0 | unless ref $want |
| 36 | 0 | 10 | if (eval { do { $obj->$method(@args); 1 } }) |
| 51 | 54 | 61 | ref $args[0] eq 'HASH' ? : |
| 57 | 0 | 115 | unless (eval { do { $got = $obj->$method(@args); 1 } }) |
| 62 | 3 | 112 | if $opt->{'unpack'} |
| 64 | 12 | 103 | if $opt->{'sprintf'} |
| 76 | 0 | 41 | unless (my $utdf = eval { do { my $obj = 'Astro::UTDF'->new($attr, $value); return 'Astro::UTDF'->new('raw_record', $obj->raw_record) } }) |