| blib/lib/Micro/Container.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 22 | 77.2 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 2 | 5 | unless ($klass) |
| 34 | 3 | 5 | if (ref $args eq 'CODE') { } |
| 48 | 0 | 5 | unless ($klass) |
| 62 | 3 | 12 | unless ($klass) |
| 70 | 8 | 7 | unless ($obj) |
| 73 | 1 | 7 | if $obj = $$objects{$class}{$name} |
| 77 | 7 | 8 | unless $obj |
| 84 | 0 | 8 | if ($prefix) |
| 85 | 0 | 0 | unless ($class =~ s/^\+// or $class =~ /^$prefix/) |
| 95 | 0 | 8 | if (my $e = $@) |
| 113 | 1 | 2 | if $class eq 'Micro::Container' |