blib/lib/Data/Perl/Role/Collection/Array.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 43 | 52 | 82.6 |
line | true | false | branch |
---|---|---|---|
21 | 1 | 1 | scalar @{$_[0];} ? : |
52 | 2 | 3 | if (@_ == 2) { } |
2 | 1 | elsif (@_ > 2) { } | |
63 | 1 | 1 | if ($_[2]) { } |
73 | 1 | 1 | &blessed($_[0]) ? : |
87 | 2 | 0 | &blessed($self) ? : |
95 | 6 | 0 | &blessed($self) ? : |
101 | 4 | 2 | $cb ? : |
103 | 6 | 0 | &blessed($self) ? : |
111 | 1 | 0 | &blessed($self) ? : |
115 | 1 | 1 | $_[1] ? : |
124 | 2 | 0 | &blessed($self) ? : |
132 | 2 | 0 | &blessed($self) ? : |
140 | 1 | 0 | &blessed($self) ? : |
168 | 3 | 4 | if defined $depth |
171 | 1 | 5 | defined $depth && $depth == -1 ? : |
6 | 11 | ref $_ eq 'ARRAY' ? : | |
180 | 3 | 1 | defined $with ? : |
186 | 1 | 2 | unless $fh |
1 | 2 | defined $arg ? : | |
192 | 1 | 4 | if $count > $self->count |
193 | 2 | 3 | if $count < 0 |
197 | 5 | 0 | &blessed($self) ? : |
203 | 1 | 4 | if $count > $self->count |
204 | 2 | 3 | if $count < 0 |
209 | 5 | 0 | &blessed($self) ? : |