| line |
true |
false |
branch |
|
56
|
0 |
4312 |
if ($ENV{'PERL_MEMORY_TRACE'}) |
|
84
|
1679 |
1674 |
if @_ |
|
100
|
0 |
0 |
if ($self->can('name') and $self->name) |
|
124
|
0 |
4485 |
if $self->can('init') |
|
129
|
2246 |
2239 |
if (ref $paramh) { } |
|
131
|
4368 |
10490 |
if (defined $$paramh{$_}) |
|
157
|
808 |
0 |
if @_ |
|
180
|
862 |
453 |
if @_ |
|
218
|
0 |
0 |
unless shift() |
|
223
|
0 |
0 |
if (defined $param[0] and $param[0] =~ /^-/) { } |
|
240
|
0 |
0 |
if (defined $param{'-' . $key}) |
|
251
|
0 |
0 |
if (scalar @restkeys > 0) |
|
260
|
0 |
0 |
if ($i >= @att_name_arr) |
|
274
|
0 |
0 |
if (ref $$h{$k} eq 'HASH') |
|
294
|
0 |
0 |
if not $h{$_} |
|
301
|
0 |
0 |
unless defined $s |
|
317
|
0 |
16672 |
if ($name eq 'DESTROY') |
|
322
|
0 |
16672 |
unless ref $self |
|
325
|
29 |
16643 |
if ($name =~ /add_(.+)/) |
|
329
|
0 |
16672 |
if ($self->can($name)) |
|
332
|
16643 |
29 |
if ($self->is_valid_param($name)) |
|
334
|
2923 |
13720 |
if @_ |
|
337
|
29 |
0 |
if ($add and $self->is_valid_param($add)) { } |