| line |
true |
false |
branch |
|
171
|
1 |
10 |
unless @_ |
|
176
|
0 |
8 |
unless ($self) |
|
184
|
5 |
16 |
if ($key eq 'NEW') { } |
|
|
8 |
8 |
elsif ($key eq 'ISA') { } |
|
|
8 |
0 |
elsif ($key eq 'AUTOLOAD') { } |
|
|
0 |
0 |
elsif ($key eq 'METHODS') { } |
|
198
|
0 |
8 |
unless my $code = $self->make_class |
|
210
|
1 |
6 |
unless (ref $self) |
|
|
0 |
10 |
if (defined $_[0]{'OBJECT'} and $_[0]{'OBJECT'}->can('DESTROY')) |
|
|
0 |
1 |
ref $_[0] ? : |
|
|
9 |
3 |
ref $_[0] ? : |
|
211
|
0 |
8 |
if $@ |
|
236
|
5 |
5 |
unless ($$self{'new'}->can('new')) |
|
245
|
1 |
9 |
ref $_[0] eq 'ARRAY' ? : |
|
252
|
8 |
2 |
if ($_[0]) { } |
|
255
|
1 |
8 |
if ($_[0] eq 'PUBLIC') |
|
266
|
0 |
1 |
ref $_[0] eq 'ARRAY' ? : |
|
268
|
0 |
1 |
unless $self->set_method($name, $name) |
|
275
|
0 |
1 |
if (@_ == 1) { } |
|
|
0 |
1 |
elsif (@_ == 2) { } |
|
312
|
9 |
0 |
if (keys %{$$self{'modules'};}) |
|
316
|
5 |
4 |
if ($$self{'new'}) |
|
325
|
9 |
0 |
if (@{$$self{'isa'};} == 1) |
|
326
|
6 |
3 |
if ($$self{'isa'}[0] eq '_OBJECT_') { } |
|
333
|
8 |
1 |
if ($$self{'autoload'}) |
|
418
|
1 |
7 |
$_[2] ? : |