| line |
true |
false |
branch |
|
29
|
0 |
218 |
if (defined(my $from = delete $opts{'from'}))
|
|
30
|
0 |
0 |
if (builtin::blessed($from))
|
|
31
|
0 |
0 |
if ($from->isa("Data::URIID::Base"))
|
|
35
|
0 |
0 |
if ($from->isa(__PACKAGE__)) { }
|
|
|
0 |
0 |
elsif ($from->isa('Data::Identifier')) { }
|
|
38
|
0 |
0 |
if (not defined $opts{'rgb'} and eval {
|
|
39
|
0 |
0 |
if (defined(my $v = $from->request))
|
|
40
|
0 |
0 |
if ($v =~ /^#[0-9a-fA-F]{6}$/)
|
|
54
|
0 |
218 |
unless defined $opts{'rgb'}
|
|
57
|
0 |
218 |
unless $opts{'rgb'} =~ /^#[0-9A-F]{6}$/
|
|
63
|
216 |
2 |
if (delete $opts{'register'})
|
|
80
|
0 |
0 |
if ref $pkg
|
|
89
|
218 |
290 |
unless (defined $self->{'ise'})
|
|
105
|
0 |
0 |
if scalar keys %opts
|
|
106
|
0 |
0 |
if $class eq ":all"
|