| line |
true |
false |
branch |
|
28
|
9 |
1 |
if delete $self->{'qq'}{$_} |
|
39
|
8 |
5 |
if $keep{$_} |
|
40
|
5 |
0 |
if delete $self->{'qq'}{$_} |
|
50
|
6 |
3 |
if @{$self->{'qq'}{$_};} |
|
51
|
3 |
0 |
if delete $self->{'qq'}{$_} |
|
60
|
0 |
3 |
unless my $re = shift() |
|
61
|
0 |
3 |
if not ref $re or ref $re ne 'Regexp' |
|
62
|
0 |
3 |
if @_ |
|
65
|
7 |
3 |
unless $_ =~ /$re/ |
|
66
|
3 |
0 |
if delete $self->{'qq'}{$_} |
|
79
|
1 |
4 |
if (ref $arg{$key} eq 'ARRAY') { } |
|
122
|
3 |
6 |
$self->{'changed'} > 0 ? : |
|
135
|
8 |
2 |
if @{$qq{$_};} == 1 |
|
137
|
0 |
4 |
wantarray ? : |
|
146
|
0 |
1 |
wantarray ? : |
|
174
|
116 |
115 |
if (not ref $this) { } |
|
|
85 |
30 |
elsif (ref $this eq 'ARRAY') { } |
|
|
30 |
0 |
elsif (ref $this eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $this eq 'CODE') { } |
|
|
0 |
0 |
elsif (sprintf $this) { } |
|
198
|
69 |
1 |
if defined $value and $value ne '' |
|
213
|
22 |
2 |
if (defined $value and $value ne '') |
|
215
|
20 |
2 |
if (not ref $value) { } |
|
|
2 |
0 |
elsif (ref $value eq 'ARRAY') { } |
|
236
|
15 |
11 |
if (@_ == 1 and not ref $_[0] and $_[0]) { } |
|
|
3 |
8 |
elsif (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
3 |
5 |
elsif (scalar(@_) % 2 == 0) { } |