| line |
true |
false |
branch |
|
41
|
0 |
0 |
if (exists $opts{$key}) |
|
46
|
0 |
0 |
if (defined(my $baseuri = delete $opts{'baseuri'})) |
|
47
|
0 |
0 |
unless eval {
do {
$baseuri->isa("URI")
}
} |
|
51
|
0 |
0 |
if scalar keys %opts |
|
53
|
0 |
0 |
unless (ref $handle) |
|
54
|
0 |
0 |
unless open my $fh, "<", $handle |
|
58
|
0 |
0 |
unless binmode $handle |
|
71
|
0 |
0 |
if (ref $ent eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $ent) { } |
|
90
|
0 |
0 |
if (ref $ent eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $ent) { } |
|
93
|
0 |
0 |
if ($ent->isa('URI')) { } |
|
|
0 |
0 |
elsif ($ent->isa('Data::Identifier')) { } |
|
|
0 |
0 |
elsif ($ent->isa('Data::URIID::Result')) { } |
|
|
0 |
0 |
elsif ($ent->isa('Data::URIID::Base') or $ent->isa('Data::Identifier::Interface::Simple')) { } |
|
|
0 |
0 |
elsif ($ent->isa('Data::Identifier::Cloudlet')) { } |
|
|
0 |
0 |
elsif ($ent->isa(__PACKAGE__)) { } |
|
122
|
0 |
0 |
if scalar keys %opts |
|
125
|
0 |
0 |
if ($as ne "URI") |
|
129
|
0 |
0 |
if (ref $cb eq "ARRAY") |
|
137
|
0 |
0 |
if $line =~ /^#/u |
|
139
|
0 |
0 |
if ($line =~ /^\s/u or $line =~ /\s$/u) |
|
142
|
0 |
0 |
if ($action eq 'die') { } |
|
|
0 |
0 |
elsif ($action eq 'trim') { } |
|
|
0 |
0 |
elsif ($action eq 'pass') { } |
|
154
|
0 |
0 |
if ($line eq "") |
|
157
|
0 |
0 |
if ($action eq 'die') { } |
|
|
0 |
0 |
elsif ($action eq 'skip') { } |
|
|
0 |
0 |
elsif ($action eq 'undef') { } |
|
|
0 |
0 |
elsif ($action eq 'pass') { } |
|
171
|
0 |
0 |
if ($line =~ m[^/]u and $self->{'check'}{'slash_as_local'}) |
|
175
|
0 |
0 |
unless (ref $line or defined $self->{'baseuri'} or $line =~ /^[a-zA-Z][a-zA-Z0-9\+\.\-]+:/u) |
|
178
|
0 |
0 |
if ($action eq 'die') { } |
|
|
0 |
0 |
elsif ($action eq 'pass') { } |
|
187
|
0 |
0 |
unless (ref $line) |
|
188
|
0 |
0 |
if (defined $self->{'baseuri'}) { } |
|
195
|
0 |
0 |
if ($as ne "URI") |
|
213
|
0 |
0 |
if (defined $listas) |
|
226
|
0 |
0 |
unless $fh->seek(0, 0) |