| line |
true |
false |
branch |
|
32
|
0 |
23 |
unless defined $self and ref $self and ref $self eq 'HASH' |
|
47
|
0 |
1 |
unless defined $self and ref $self and ref $self eq 'HASH' |
|
52
|
1 |
0 |
if ($class->can('init')) |
|
63
|
0 |
5 |
unless defined $class |
|
72
|
0 |
1 |
unless defined $class |
|
82
|
0 |
1 |
unless defined $class |
|
91
|
0 |
1 |
unless defined $class |
|
100
|
0 |
4 |
unless defined $class |
|
108
|
0 |
3 |
unless defined $class |
|
118
|
0 |
1 |
unless defined $class |
|
125
|
0 |
1 |
unless defined $class |
|
143
|
0 |
22 |
unless defined $arg |
|
147
|
11 |
11 |
if (my $ref = ref $arg) |
|
149
|
3 |
8 |
if ($ref eq 'ARRAY') { } |
|
|
8 |
0 |
elsif ($ref eq 'HASH') { } |
|
186
|
17 |
78 |
if (defined $val) |
|
191
|
13 |
82 |
if (not exists $$self{$_name} and defined $_default_value) |
|
195
|
7 |
6 |
if (my $ref = ref $_default_value) { } |
|
196
|
7 |
0 |
if ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
231
|
1 |
0 |
if @_ and scalar @_ |
|
234
|
1 |
3 |
if (not exists $$self{$_name} and defined $_default_value) |
|
238
|
0 |
1 |
if (my $ref = ref $_default_value) { } |
|
239
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
279
|
3 |
2 |
if (defined $val) |
|
280
|
0 |
3 |
unless $val =~ /^\d+$/ |
|
281
|
2 |
1 |
if ($val) { } |
|
302
|
2 |
2 |
if (defined $val) |
|
303
|
1 |
1 |
unless my $abs = __resolve_f($val) |
|
308
|
0 |
3 |
if (not exists $$self{$_name} and defined $_default_value) |
|
309
|
0 |
0 |
unless $$self{$_name} = __resolve_f($_default_value) |
|
317
|
0 |
2 |
unless my $a = Cwd::abs_path($val) |
|
320
|
1 |
1 |
unless -f $a |
|
336
|
2 |
3 |
if (defined $val) |
|
337
|
1 |
1 |
unless my $abs = __resolve_d($val) |
|
342
|
1 |
3 |
if (not exists $$self{$_name} and defined $_default_value) |
|
343
|
1 |
0 |
unless $$self{$_name} = __resolve_d($_default_value) |
|
351
|
0 |
3 |
unless my $abs = Cwd::abs_path($val) |
|
354
|
2 |
1 |
unless -d $abs |
|
378
|
0 |
0 |
unless $val |
|
381
|
0 |
0 |
unless my $abs = Cwd::abs_path($val) |
|
382
|
0 |
0 |
if -d $abs |
|
392
|
0 |
0 |
unless $val |
|
395
|
0 |
0 |
unless my $abs = Cwd::abs_path($val) |
|
396
|
0 |
0 |
if -f $abs |
|
451
|
1 |
2 |
if (defined $_default_value) |
|
452
|
0 |
1 |
unless ref $_default_value and ref $_default_value eq 'ARRAY' |
|
477
|
3 |
1 |
wantarray ? : |
|
507
|
8 |
6 |
exists $self->$method_name_href->{$_[0]} ? : |
|
525
|
4 |
57 |
unless (exists $$self{$method_name_href}) |
|
528
|
1 |
3 |
if (exists $$self{$_name}) { } |
|
|
1 |
2 |
elsif (defined $_default_value) { } |
|
530
|
0 |
1 |
unless ref $$self{$_name} and ref $$self{$_name} eq 'ARRAY' |
|
573
|
2 |
31 |
if (defined $val) |
|
575
|
0 |
2 |
unless ref $val eq 'ARRAY' |
|
580
|
5 |
28 |
unless (exists $$self{$_name}) |
|
582
|
3 |
2 |
if (defined $_default_value) { } |
|
592
|
5 |
28 |
wantarray ? : |
|
613
|
17 |
4 |
if ($self->can($methodorkey)) { } |
|
|
4 |
0 |
elsif (exists $$self{$methodorkey}) { } |
|
631
|
19 |
2 |
if ($ref and $ref eq 'ARRAY') { } |
|
|
2 |
0 |
elsif ($ref and $ref eq 'HASH') { } |
|
660
|
3 |
2 |
unless $_[0]{'conf'} |
|
665
|
0 |
3 |
unless my $a = $_[0]->abs_conf |
|
668
|
2 |
1 |
unless -f $a |
|
674
|
0 |
3 |
unless my $c = $_[0]->conf |