| line |
true |
false |
branch |
|
23
|
0 |
3 |
exists $args{'debug'} ? :
|
|
25
|
2 |
1 |
if ($args{'in_memory'}) { }
|
|
30
|
0 |
149 |
if $debug > 2
|
|
41
|
0 |
149 |
if $error
|
|
46
|
0 |
1 |
unless my $dir = $args{'modules_dir'}
|
|
47
|
0 |
1 |
unless -d $dir
|
|
48
|
0 |
1 |
unless -d $dir
|
|
59
|
0 |
75 |
unless -d $file_dir
|
|
61
|
0 |
75 |
if (-e $file and not $args{'overwrite'})
|
|
63
|
0 |
0 |
if $debug
|
|
67
|
0 |
75 |
unless open my $fh, ">", $file
|
|
69
|
0 |
75 |
unless close $fh
|
|
71
|
0 |
75 |
if $debug > 2
|
|
75
|
2 |
1 |
wantarray ? :
|
|
104
|
148 |
0 |
if ($_ ne $name and !$new_name || $new_name == 1)
|
|
128
|
16 |
185 |
if length $type > $max_type_len
|
|
156
|
1 |
2 |
unless ($in_memory)
|
|
273
|
2 |
1 |
$in_memory ? :
|
|
274
|
2 |
1 |
$in_memory ? :
|
|
297
|
2 |
1 |
if ($args{'in_memory'})
|
|
367
|
68 |
136 |
if ($class_filter)
|
|
370
|
1 |
67 |
unless &$class_filter($base_class)
|
|
373
|
135 |
68 |
if ($in_memory)
|
|
384
|
0 |
135 |
if $error
|
|
391
|
125 |
78 |
unless ($isa{$package})
|
|
396
|
0 |
125 |
$base_type_object{$package} ? :
|
|
407
|
3 |
0 |
wantarray ? :
|
|
414
|
0 |
221 |
unless my $isa = $args{'isa'}
|
|
415
|
15 |
206 |
unless ref $isa eq "ARRAY"
|
|
417
|
135 |
86 |
if ($args{'in_memory'}) { }
|
|
433
|
0 |
224 |
unless my $package = $args{'package'}
|
|
435
|
18 |
206 |
unless ref $isa eq "ARRAY"
|
|
445
|
170 |
278 |
if (ref $arg eq "HASH")
|
|
451
|
7 |
441 |
if (ref $arg eq "HASH")
|
|
453
|
3 |
4 |
if (my $existing_filter = $filter) { }
|
|
470
|
0 |
448 |
if (ref $arg eq 'CODE') { }
|
|
479
|
27 |
421 |
if ($code) { }
|
|
492
|
27 |
421 |
if ($code)
|
|
494
|
6 |
21 |
if ($param eq 'code') { }
|
|
507
|
6 |
15 |
if ($default_code =~ /\n### %CODE% ###\n/)
|
|
521
|
221 |
3 |
$args{'isa'} ? :
|
|
525
|
78 |
146 |
if ($filter)
|