| blib/lib/Data/BISON/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 22 | 40.9 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 3 | 0 | if (@_) |
| 17 | 0 | 3 | if @_ or ref $args ne 'HASH' |
| 25 | 0 | 0 | if (my(@extra) = sort(keys %$args)) |
| 41 | 6 | 8 | if (my $attr_spec = shift()) |
| 74 | 33 | 15 | unless exists $$spec{$handler} |
| 80 | 12 | 12 | unless (ref $$spec{$handler} eq 'CODE') |
| 88 | 12 | 0 | if ($$spec{'can'} =~ /s/) { } |
| 92 | 0 | 0 | unless @_ |
| 99 | 0 | 0 | unless @_ |
| 116 | 0 | 0 | if (exists $$args{$attr}) { } |
| 117 | 0 | 0 | unless $$spec{'can'} =~ /i/ |