Condition Coverage

blib/lib/WWW/Patent/Page.pm
Criterion Covered Total %
condition 31 56 55.3


and 2 conditions

line l !l condition
146 0 0 carp('No document id to parse') and return

and 3 conditions

line !l l&&!r l&&r condition
119 9 0 0 defined $passed_parm{'country'} and defined $passed_parm{'number'}
212 72 119 0 $type and !$type =~ /(^D$|^PP$|RE|T|H|RX|AI|d|pp|re|t|h|rx|ai)/mx
256 0 4 5 substr($$self{'patent'}{'number'}, 3, 1) ne '-' and length $$self{'patent'}{'number'} > 7
4 0 5 substr($$self{'patent'}{'number'}, 3, 1) ne '-' and length $$self{'patent'}{'number'} > 7 and substr($$self{'patent'}{'number'}, 0, 4) > 1992
4 0 5 substr($$self{'patent'}{'number'}, 3, 1) ne '-' and length $$self{'patent'}{'number'} > 7 and substr($$self{'patent'}{'number'}, 0, 4) > 1992 and substr($$self{'patent'}{'number'}, 0, 4) <= (localtime time)[5] + 1900
307 72 98 21 $$self{'patent'}{'doc_type'} and $$self{'patent'}{'kind'}
419 1 29 2 $count < 2 and not $response->is_success

or 3 conditions

line l !l&&r !l&&!r condition
104 0 9 0 ref $class || $class
197 87 0 106 defined $type or $type
0 0 106 defined $type or $type or $_country_known{$country}
212 0 0 191 not exists $_country_known{$country} or $type and !$type =~ /(^D$|^PP$|RE|T|H|RX|AI|d|pp|re|t|h|rx|ai)/mx
256 9 3 9 uc $$self{'patent'}{'doc_type'} eq 'H' or uc $$self{'patent'}{'doc_type'} eq 'S'
12 0 9 uc $$self{'patent'}{'doc_type'} eq 'H' or uc $$self{'patent'}{'doc_type'} eq 'S' or uc $$self{'patent'}{'doc_type'} eq 'T'
3 0 9 uc $$self{'patent'}{'doc_type'} eq 'H' or uc $$self{'patent'}{'doc_type'} eq 'S' or uc $$self{'patent'}{'doc_type'} eq 'T' or uc $$self{'patent'}{'doc_type'} eq 'M'
307 98 26 46 $$self{'patent'}{'doc_type'} || $$self{'patent'}{'kind'}
432 0 0 0 shift() || $$self{'patent'}{'office_username'}
433 0 0 0 shift() || $$self{'patent'}{'office_password'}
447 9 0 0 ref $class || $class