line |
true |
false |
branch |
165
|
1 |
10 |
unless @_ |
170
|
0 |
8 |
unless ($self) |
178
|
5 |
16 |
if ($key eq 'NEW') { } |
|
8 |
8 |
elsif ($key eq 'ISA') { } |
|
8 |
0 |
elsif ($key eq 'AUTOLOAD') { } |
|
0 |
0 |
elsif ($key eq 'METHODS') { } |
192
|
0 |
8 |
unless my $code = $self->make_class |
204
|
0 |
7 |
unless (ref $self) |
|
1 |
9 |
if (defined $_[0]{'OBJECT'} and $_[0]{'OBJECT'}->can('DESTROY')) |
|
1 |
1 |
ref $_[0] ? : |
|
9 |
3 |
ref $_[0] ? : |
205
|
0 |
8 |
if $@ |
230
|
4 |
5 |
unless ($self->{'new'}->can('new')) |
239
|
1 |
9 |
ref $_[0] eq 'ARRAY' ? : |
246
|
8 |
2 |
if ($_[0]) { } |
249
|
1 |
8 |
if ($_[0] eq 'PUBLIC') |
260
|
0 |
1 |
ref $_[0] eq 'ARRAY' ? : |
262
|
0 |
1 |
unless $self->set_method($name, $name) |
269
|
0 |
1 |
if (@_ == 1) { } |
|
0 |
1 |
elsif (@_ == 2) { } |
306
|
9 |
0 |
if (keys %{$$self{'modules'};}) |
310
|
5 |
4 |
if ($self->{'new'}) |
319
|
9 |
0 |
if (@{$self->{'isa'};} == 1) |
320
|
6 |
3 |
if ($self->{'isa'}[0] eq '_OBJECT_') { } |
327
|
8 |
1 |
if ($self->{'autoload'}) |
412
|
1 |
7 |
$_[2] ? : |