| line |
true |
false |
branch |
|
47
|
6 |
13 |
$name =~ /::/ ? : |
|
63
|
7 |
10 |
if (exists $args{'rules'}) |
|
65
|
1 |
6 |
unless defined $args{'rules'} |
|
68
|
1 |
5 |
if ref \$args{'rules'} ne 'SCALAR' |
|
71
|
1 |
4 |
if defined $RULES_FILE and $RULES_FILE ne $args{'rules'} |
|
83
|
1 |
3 |
if (-f $RULES_FILE) |
|
86
|
0 |
1 |
unless open IN, "$RULES_FILE" |
|
90
|
3 |
6 |
if $line =~ /^\s*\#/ |
|
91
|
1 |
5 |
if $line =~ /^\s*$/ |
|
105
|
2 |
12 |
unless exists $args{'hook'} |
|
108
|
1 |
11 |
unless defined $args{'hook'} |
|
111
|
5 |
6 |
if (ref $args{'hook'} eq 'ARRAY') { } |
|
|
5 |
1 |
elsif (ref \$args{'hook'} eq 'SCALAR') { } |
|
113
|
1 |
14 |
if (ref \$name ne 'SCALAR') |