| line |
true |
false |
branch |
|
29
|
15 |
3424 |
if (scalar @_ == 1) { }
|
|
|
2 |
3422 |
elsif (@_ % 2) { }
|
|
30
|
3 |
12 |
unless (defined $_[0] and ref $_[0] eq "HASH")
|
|
50
|
2429 |
33 |
unless $_[0]->can("BUILD")
|
|
52
|
2 |
31 |
if $params->{'__no_BUILD__'}
|
|
65
|
3301 |
56 |
unless $self->can("DEMOLISH")
|
|
68
|
55 |
1 |
if (my $meta = Class::MOP::class_of($self)) { }
|
|
82
|
61 |
58 |
if defined $demolish
|
|
108
|
390 |
0 |
'UNIVERSAL'->can('DOES') ? :
|
|
122
|
3 |
540 |
unless defined $role_name
|
|
124
|
212 |
328 |
if $meta->can("does_role") and $meta->does_role($role_name)
|
|
131
|
0 |
0 |
if @_
|