| line |
true |
false |
branch |
|
28
|
0 |
0 |
if (my(@nums) = $_[0] =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
|
|
30
|
0 |
0 |
unless grep {$_ > 255;} @nums
|
|
36
|
0 |
0 |
if $_[0] =~ /^\#[0-9A-F]{6}$/i
|
|
37
|
0 |
0 |
if $_[0] =~ /^\#[0-9A-F]{3}$/i
|
|
38
|
0 |
0 |
if $_[0] =~ /^(aqua|black|blue|fuchsia|gray|grey|green|lime|maroon|navy|olive|orange|purple|red|silver|teal|white|yellow)$/i
|
|
48
|
0 |
15 |
unless ref $schema
|
|
61
|
0 |
0 |
if ($source->isa('HTTP::Response')) { }
|
|
84
|
0 |
0 |
if (/^\'/) { }
|
|
|
0 |
0 |
elsif (/^\"/) { }
|
|
89
|
0 |
0 |
if ($object)
|
|
93
|
0 |
0 |
unless lc $$_{'rel'} eq 'describedby'
|
|
114
|
0 |
55 |
unless ref $object
|
|
124
|
0 |
0 |
unless blessed($self)
|
|
126
|
0 |
0 |
if (@_)
|
|
131
|
0 |
0 |
unless $self->blessed->{'ua'} and $$self{'ua'}->isa('LWP::UserAgent')
|
|
134
|
0 |
0 |
unless ($self->blessed->{'ua'} and $$self{'ua'}->isa('LWP::UserAgent'))
|