| line |
true |
false |
branch |
|
19
|
0 |
28 |
ref $_[0] ? : |
|
20
|
18 |
10 |
@_ % 2 ? : |
|
24
|
0 |
28 |
if exists $options{'from'} |
|
25
|
10 |
18 |
if not $from or $from eq 1 |
|
27
|
1 |
27 |
if ((ref $from || '') eq 'HASH') |
|
30
|
1 |
1 |
unless ($self->SET($prefix, $self->{$prefix}, $warn)) |
|
37
|
16 |
11 |
if ($from =~ /$DATE_REGEXP/) { } |
|
|
1 |
10 |
elsif ($at =~ /$DATE_REGEXP/) { } |
|
|
0 |
10 |
elsif (not $at =~ /any/) { } |
|
52
|
0 |
38090 |
if /^#/ |
|
54
|
17 |
38073 |
if $date and $at ne 'any' and $date > $at |
|
65
|
27 |
0 |
if ($from // 'any') eq 'any' |
|
67
|
0 |
27 |
unless -f $from |
|
69
|
0 |
27 |
unless open my $fh, '<', $from |
|
76
|
0 |
38075 |
if ($prefix =~ /^(isa|can|new|uri)$/) { } |
|
|
38074 |
1 |
elsif ($prefix =~ /^[a-z][a-z0-9]*$/) { } |
|
|
0 |
1 |
elsif ($warn) { } |
|
77
|
0 |
0 |
if $warn |
|
80
|
38074 |
0 |
if ($namespace =~ /^[a-z][a-z0-9]*:[^"<>]*$/) { } |
|
|
0 |
0 |
elsif ($warn) { } |
|
104
|
0 |
13 |
if $format =~ /^n(otation)?3$/i |
|
105
|
1 |
12 |
if (lc($format) =~ /$FORMATS/) { } |
|
|
12 |
0 |
elsif ($format eq '') { } |
|
117
|
2 |
1306 |
if $uri eq $self->{$prefix} |
|
126
|
2 |
696 |
if $uri eq $namespace |
|
176
|
39 |
0 |
@_ ? : |
|
178
|
34 |
5 |
if (wantarray) { } |
|
198
|
1 |
7 |
if $_[0] =~ /^<([a-zA-Z][a-zA-Z+.-]*:.+)>$/ |
|
199
|
3 |
4 |
if $_[0] =~ /^_(:.*)?$/ |
|
200
|
0 |
4 |
unless (shift()) =~ /^([a-z][a-z0-9]*)?([:_]([^:]+))?$/ |
|
201
|
3 |
1 |
defined $1 ? : |
|
202
|
0 |
4 |
unless defined $ns |
|
203
|
0 |
4 |
unless $3 |
|
209
|
29 |
23 |
unless $AUTOLOAD =~ /^.*::([a-z][a-z0-9]*)?(_([^:]+)?)?$/ |
|
210
|
1 |
1 |
defined $3 ? : |
|
|
2 |
21 |
unless $1 |
|
211
|
0 |
21 |
unless my $ns = $self->{$1} |
|
212
|
7 |
14 |
defined $3 ? : |
|
213
|
12 |
9 |
unless defined $local |
|
220
|
0 |
0 |
unless $date and $date =~ /$DATE_REGEXP/ |
|
227
|
0 |
0 |
unless open my $fh, '>>', $file |
|
231
|
0 |
0 |
if (not exists $old->{$prefix}) { } |
|
|
0 |
0 |
elsif ($old->{$prefix} ne $namespace) { } |
|
243
|
0 |
0 |
unless (exists $self->{$prefix}) |