| line |
true |
false |
branch |
|
204
|
0 |
3 |
if (defined(my $services_online = delete $self->{'services_online'}))
|
|
222
|
6 |
0 |
if (scalar @_ == 2)
|
|
226
|
0 |
6 |
unless defined $uri
|
|
228
|
0 |
6 |
if (builtin::blessed($uri) and not $uri->isa("URI"))
|
|
229
|
0 |
0 |
if (defined(my $displaycolour = eval {
|
|
230
|
0 |
0 |
if (eval {
|
|
236
|
0 |
0 |
if (defined(my $displayname = eval {
|
|
241
|
0 |
0 |
if ($uri->isa('Data::URIID::Result')) { }
|
|
|
0 |
0 |
elsif ($uri->isa('Data::URIID::Barcode')) { }
|
|
|
0 |
0 |
elsif ($uri->isa('Data::Identifier')) { }
|
|
|
0 |
0 |
elsif ($uri->isa('Data::TagDB::Tag')) { }
|
|
|
0 |
0 |
elsif (index(builtin::blessed($uri), __PACKAGE__) == 0 and $uri->can('ise')) { }
|
|
|
0 |
0 |
elsif ($uri->isa('Mojo::URL')) { }
|
|
|
0 |
0 |
elsif ($uri->isa('File::FStore::File')) { }
|
|
264
|
0 |
0 |
if defined $data->{'properties'}{'size'}
|
|
272
|
6 |
0 |
unless (builtin::blessed($uri))
|
|
273
|
0 |
6 |
if (ref $type) { }
|
|
276
|
0 |
0 |
if ($type->isa("URI") or $type->isa("Mojo::URL"))
|
|
286
|
0 |
6 |
if ($type eq "qrcode")
|
|
292
|
6 |
0 |
if ($type eq 'auto' or $type eq 'ise') { }
|
|
|
0 |
0 |
elsif ($type =~ /^[0-9a-fA-F]{8}-(?:[0-9a-fA-F]{4}-){3}[0-9a-fA-F]{12}$/) { }
|
|
293
|
1 |
5 |
if ($uri =~ /^[0-9a-fA-F]{8}-(?:[0-9a-fA-F]{4}-){3}[0-9a-fA-F]{12}$/) { }
|
|
|
1 |
4 |
elsif ($uri =~ /^[1-3](?:\.(?:0|[1-9][0-9]*))+$/) { }
|
|
308
|
0 |
6 |
unless $uri->isa("URI")
|
|
310
|
0 |
6 |
unless defined $uri->scheme and length $uri->scheme
|
|
319
|
0 |
6 |
if (scalar @_ == 2)
|
|
330
|
0 |
13 |
if (scalar @_ == 2)
|
|
341
|
0 |
0 |
if (scalar @new_value)
|
|
356
|
0 |
0 |
if (defined(my $language_tags = $opts{'language_tags'}))
|
|
357
|
0 |
0 |
if ref $language_tags eq "ARRAY"
|
|
384
|
0 |
0 |
if ref $pkg
|
|
390
|
0 |
0 |
if scalar keys %opts
|
|
391
|
0 |
0 |
if $class eq ":all"
|
|
392
|
0 |
0 |
if defined $names{$class}
|
|
399
|
6 |
205 |
if $self->is_ise($name)
|
|
400
|
0 |
205 |
if (builtin::blessed($name))
|
|
401
|
0 |
0 |
if (index(builtin::blessed($name), __PACKAGE__) == 0 and $name->can('ise')) { }
|
|
|
0 |
0 |
elsif ($name->isa('Data::Identifier')) { }
|
|
413
|
0 |
145 |
if ref $ise
|
|
431
|
0 |
30 |
if ref $service
|
|
434
|
0 |
30 |
unless defined $ises{'service'}{$service}
|
|
447
|
0 |
0 |
if (ref $_ eq 'ARRAY') { }
|
|
453
|
0 |
0 |
if ($prefix eq '@') { }
|
|
456
|
0 |
0 |
if ref $name
|
|
462
|
0 |
0 |
if ($neg eq '') { }
|
|
478
|
0 |
0 |
defined $opts{'displayname'} ? :
|
|
483
|
0 |
0 |
if (defined(my $displayname = $id->displayname("default", undef, "no_defaults", 1)))
|
|
484
|
0 |
0 |
if ($displayname =~ /^[a-z][0-9a-z-]*[0-9a-z]$/)
|
|
490
|
0 |
0 |
if (exists $ises{$class}{$uuid})
|