Condition Coverage

blib/lib/HTML/HTML5/Parser/UA.pm
Criterion Covered Total %
condition 0 29 0.0


and 3 conditions

line !l l&&!r l&&r condition
21 0 0 0 ref $ua and $ua->isa('HTTP::Tiny')
0 0 0 ref $ua and $ua->isa('HTTP::Tiny') and $uri =~ /^https?:/i
23 0 0 0 ref $ua and $ua->isa('LWP::UserAgent')
25 0 0 0 UNIVERSAL::can('LWP::UserAgent', 'can') and not $NO_LWP

or 2 conditions

line l !l condition
130 0 0 $content_type ||= 'text/xml'
131 0 0 $content_type ||= 'application/xhtml+xml'
132 0 0 $content_type ||= 'text/html'
133 0 0 $content_type ||= 'application/octet-stream'

or 3 conditions

line l !l&&r !l&&!r condition
43 0 0 0 $ua ||= 'LWP::UserAgent'->new('agent', sprintf('%s/%s ', 'HTML::HTML5::Parser', 'HTML::HTML5::Parser'->VERSION), 'default_headers', 'HTTP::Headers'->new('Accept', join(', ', ('text/html', 'application/xhtml+xml;q=0.9', 'application/xml;q=0.1', 'text/xml;q=0.1'))), 'parse_head', 0)
81 0 0 0 $ua ||= 'HTTP::Tiny'->new('agent', sprintf('%s/%s', 'HTML::HTML5::Parser', 'HTML::HTML5::Parser'->VERSION), 'default_headers', {'Accept', join(', ', ('text/html', 'application/xhtml+xml;q=0.9', 'application/xml;q=0.1', 'text/xml;q=0.1'))})
123 0 0 0 $content ||= do { if (open my $fh, '<', $file) { local $/ = <$fh>; } else { $status = 418; $reason = q[I'm a teapot]; $content_type = 'text/plain'; $!; } }