Condition Coverage

blib/lib/Parse/HTTP/UserAgent/Base/Parsers.pm
Criterion Covered Total %
condition 157 241 65.1


and 3 conditions

line !l l&&!r l&&r condition
19 0 2 178 $1 and $1 ne '64'
52 4 54 2 ${$v_ref;} and not ${$v_ref;} =~ / [0-9] /msx
57 12 40 8 ${$os_ref;} and ${$os_ref;} =~ m[ http:// ]msx
67 0 0 10 $extra && $extra->[0] && index($extra->[0], 'AppleWebKit') != -1
147 144 24 2 @{$extras;} == 2 and index($extras->[1], 'Lunascape') != -1
155 40 124 6 $extras->[0] and $extras->[0] eq 'Mac_PowerPC'
165 0 0 44 $tk_name eq 'Trident' and $tk_version
166 30 12 2 $tk_version eq '7.0' and $self->[25] ne '11.0'
30 8 4 $tk_version eq '6.0' and $self->[25] ne '10.0'
229 10 0 2 $self->[22] and $self->[6]
251 2 0 44 ref $e eq 'ARRAY' and @{$e;} > 0
2 34 10 ref $e eq 'ARRAY' and @{$e;} > 0 and index(lc $e->[-1], 'fennec') != -1
300 0 48 12 $thing && lc($thing->[0] || '') eq 'ipad'
302 0 56 4 $version && index(lc $version, 'epiphany') != -1
308 0 8 4 $junkv and $junkv eq 'Mobile'
321 0 24 36 $thing->[-1] and length $thing->[-1] <= 5
328 0 2 58 @{$thing;} && length $thing->[-1] > 1
330 0 60 0 $self->[14] and lc $self->[14] eq 'macintosh'
335 12 42 6 $thing->[0] and lc $thing->[0] eq 'iphone'
340 2 2 2 $check_os and index($check_os, 'Mac OS X') != -1
346 0 0 2 not $self->[8] and $self->[21]
348 0 0 2 $v and $v =~ / [a-zA-Z]{2}_[a-zA-Z]{2} /msx
359 0 60 0 $self->[14] and length $self->[14] == 1
364 22 36 2 $self->[8] and not $self->[8] =~ /[a-zA-Z]+/gmsx
383 14 0 2 $rest[0] and index($rest[0], 'OPR/', 0) != -1
403 40 0 2 not $extra and $others[0]
0 0 2 not $extra and $others[0] and index($others[0], 'AppleWebKit') != -1
430 0 42 0 @build and index($build[-1], 'Build') == -1
437 2 0 40 $device and $build
448 0 0 42 @extras >= 3 and $extras[0]
0 0 42 @extras >= 3 and $extras[0] and $extras[0] eq 'KHTML,'
466 2 32 2 @{$thing;} && index($thing->[-1], 'rv:') != -1
477 0 12 10 @{$extra;} && index($extra->[-1], 'Version/') != -1
488 16 2 16 !$self->[21] && $self->_numify($version) >= 9 && $lang && length $lang > 5
500 0 10 24 @{$thing;} and $self->_is_strength($thing->[-1])
523 0 8 6 @{$thing;} and $self->_is_strength($thing->[-1])
552 0 10 88 @{$thing;} and index($thing->[-1], 'rv:') != -1
557 0 0 0 $self->[14] and $self->[14] eq 'Macintosh'
619 0 0 50 $self->[11] and $self->[25]
639 68 6 6 not $self->[14] and $e =~ / Win(?:NT|dows) /imsx
660 0 0 0 ref $self->[21] eq 'ARRAY' and $self->[21][0] eq 'Gecko'
662 0 0 0 $self->[11] and $self->[25]
673 0 18 8 $self->[14] and length $self->[14] == 2
684 2 26 46 $os ne 'windows' and not $skip_os
728 0 0 6 $device and $num
0 2 4 $device and $num and $os
2 0 4 $device and $num and $os and $series
2 0 4 $device and $num and $os and $series and index($os, 'SymbianOS') != -1
743 0 8 10 $t->[0] && !($t->[0] =~ / \d+ [.]? \d /msx)
760 0 0 36 $moz && !@{$thing;} && !$extra && !$compatible && !@others
766 0 0 18 $name and $version
781 48 0 44 $compatible and @{$thing;}
788 4 36 4 $thing->[0] and $thing->[0] eq $name || $thing->[0] eq $moz
817 22 18 2 $lang and index($lang, 'MSIE ') != -1
849 4 0 0 $extra and ref $extra eq 'ARRAY'
868 14 0 2 $name eq 'Mozilla' and @parts
870 0 0 2 $name and $version
886 0 0 8 $os and $series_device
924 0 0 2 $thing->[0] and index(lc $thing->[0], 'googlebot-mobile') != -1

or 2 conditions

line l !l condition
79 10 0 $extra ||= []
114 4 0 $self->[6] ||= []
288 0 0 $self->[6] ||= []
342 0 2 $self->[6] ||= []
439 40 0 $self->[14] || 'Android'
521 10 4 shift @{$extra;} || ''
683 66 10 $self->[14] || ''
829 36 4 $version || 0
845 4 0 $version || 0
874 16 0 $version || 0
909 2 0 $version || 0

or 3 conditions

line l !l&&r !l&&!r condition
21 14 164 0 $self->[14] ||= $e
99 12 34 0 $msie ||= $e
394 2 14 0 $opera || $chrome
486 0 2 0 $lang ||= pop @{$thing;}
563 6 4 12 $thing->[0] eq 'X11' or index($thing->[-1], 'Intel') != -1
4 2 6 index(lc $thing->[0], 'android') != -1 or index(lc $thing->[0], 'maemo') != -1
684 66 8 2 $os || $skip_os
2 46 28 not $os || $skip_os or $os ne 'windows' and not $skip_os
46 0 28 not $os || $skip_os or $os ne 'windows' and not $skip_os or ref $self->[6] ne 'ARRAY'
46 0 28 not $os || $skip_os or $os ne 'windows' and not $skip_os or ref $self->[6] ne 'ARRAY' or not $self->[6][0]
0 22 6 not $os || $skip_os or $os ne 'windows' and not $skip_os or ref $self->[6] ne 'ARRAY' or not $self->[6][0] or not $self->[6][0] =~ / NT\s?(\d.*?) \z /imsx
723 2 4 24 $mname eq 'Mozilla' or $mname eq 'Emacs-W3'
741 14 4 2 $mversion || ($mname eq 'Links' ? shift @{$t;} : 0)
788 2 2 36 $thing->[0] eq $name || $thing->[0] eq $moz