| line |
true |
false |
branch |
|
94
|
0 |
40 |
unless ($policy =~ s/^(\s*ccflags=.*?)$target/$1 . join(" ", grep(($_ && length $_), @$values));/egm) |
|
110
|
0 |
0 |
unless defined $self->{'_new_policy'} |
|
115
|
0 |
0 |
if (open POL, "> $p_name") { } |
|
117
|
0 |
0 |
unless (close POL) |
|
149
|
2 |
2 |
unless defined $srcpath |
|
151
|
2 |
2 |
defined $verbose ? : |
|
154
|
1 |
3 |
if (ref $srcpath eq 'SCALAR') { } |
|
|
0 |
3 |
elsif (ref $srcpath eq 'ARRAY') { } |
|
|
0 |
3 |
elsif (ref $srcpath eq 'GLOB') { } |
|
171
|
2 |
1 |
unless defined $srcpath and length $srcpath |
|
175
|
0 |
3 |
if (open POLICY, $p_name) { } |
|
197
|
2 |
1 |
@_ ? : |