Condition Coverage

blib/lib/Net/Whois/Object.pm
Criterion Covered Total %
condition 28 52 53.8


and 3 conditions

line !l l&&!r l&&r condition
337 0 21 18 $line =~ /^(.+?):/ and $filtered{lc $1}
585 0 0 0 $res =~ /^Number of objects processed with errors:\s+(\d+)/m and $1 == 0
0 0 0 $res =~ /^Number of objects processed with errors:\s+(\d+)/m and $1 == 0 and $res =~ /\*\*\*Info:\s+Authorisation for\s+\[[^\]]+]\s+(.+)\s*$/m || $res =~ /(?:Create SUCCEEDED|No operation): \[[^\]]+\]\s+(\S+)/m
605 0 0 0 $self->class and $obj_types_with_autogen_key{$self->class}
675 0 0 80 defined $type and $class{$type}
842 3 0 1 $self->attribute_is($attribute, 'single') and $self->{$attribute} =~ /$pattern/

or 2 conditions

line l !l condition
927 0 0 $auth->{'pgpexec'} || 'gpg'
960 5016 39 $TYPES{ref $_[0] or $_[0]} ||= {}

or 3 conditions

line l !l&&r !l&&!r condition
370 1 57 444 not defined $type or $type =~ /all/i
379 58 63 323 $type eq 'single' or $type eq 'multiple'
476 2 32 0 $align_to ||= 5 + &max(map(length($_), $self->attributes('all')))
585 0 0 0 $res =~ /\*\*\*Info:\s+Authorisation for\s+\[[^\]]+]\s+(.+)\s*$/m || $res =~ /(?:Create SUCCEEDED|No operation): \[[^\]]+\]\s+(\S+)/m
748 118 80 150 $self->{$attribute} or $attribute eq 'class'
752 0 0 1 ref $value ne 'HASH' or not $value->{'old'}
800 0 1 2 ref $value ne 'HASH' or not $value->{'old'}
1 1 1 ref $value ne 'HASH' or not $value->{'old'} or not $value->{'new'}
809 0 1 3 ref $value ne 'HASH' or not $value->{'old'}
960 3727 1328 0 ref $_[0] or $_[0]