Condition Coverage

blib/lib/Tag/Reader/Perl.pm
Criterion Covered Total %
condition 78 102 76.4


and 3 conditions

line !l l&&!r l&&r condition
57 0 32 705 exists $self->{'text'} and $self->{'stay'} < 98
32 0 705 exists $self->{'text'} and $self->{'stay'} < 98 and defined($self->{'char'} = substr($self->{'text'}, 0, 1))
65 134 3768 0 $self->{'stay'} < 98 and defined($self->{'char'} = shift @{$$self{'old_data'};}) || defined($self->{'char'} = getc $self->{'filename'})
86 0 52 0 $file and -r $file
89 0 52 0 not $force and defined $self->{'text'} || defined $self->{'filename'}
112 3 0 0 not $force and defined $self->{'text'} || defined $self->{'filename'}
150 736 190 166 $self->{'stay'} == 0 and $self->{'char'} eq '<'
177 578 0 111 $self->{'tag_length'} == 1 and _is_first_char_of_tag($self->{'char'})
316 15 247 $self->{'tag_length'} > 1 and _is_in_tag_name($self->{'char'})
216 1936 61 409 $self->{'tag_length'} > 1 and _is_in_tag_name($self->{'char'})
217 23 3 64 $self->{'brace'} == 0 and $self->{'bracket'} == 0
26 4 60 $self->{'brace'} == 0 and $self->{'bracket'} == 0 and $self->{'spec_stay'} < 3
24 3 3 $self->{'spec_stay'} == 3 and join($EMPTY_STR, @{$$self{'data'};}[-2, -1]) eq '--'
23 3 1 $self->{'tag_type'} =~ /^!\[cdata\[/ms and join($EMPTY_STR, @{$$self{'data'};}[-2, -1]) eq ']]'
246 3 53 0 $self->{'tag_length'} == 0 and join($EMPTY_STR, @{$$self{'data'};}[-2, -1]) eq '--'
272 282 121 6 $self->{'tag_length'} == 2 || $self->{'tag_length'} == 3 and $self->{'char'} eq '-'
286 0 1967 30 $self->{'quote'} eq $EMPTY_STR and $self->{'char'} eq '"'
293 30 1963 4 $self->{'quote'} eq $EMPTY_STR and $self->{'char'} eq q[']
321 0 0 55 exists $self->{'filename'} and defined $self->{'char'}

or 3 conditions

line l !l&&r !l&&!r condition
65 39 3725 4 defined($self->{'char'} = shift @{$$self{'old_data'};}) || defined($self->{'char'} = getc $self->{'filename'})
89 0 0 52 defined $self->{'text'} || defined $self->{'filename'}
112 0 0 0 defined $self->{'text'} || defined $self->{'filename'}
202 0 0 331 $self->{'tag_length'} == 1 or $self->{'char'} eq '<'
217 60 0 30 $self->{'brace'} == 0 and $self->{'bracket'} == 0 and $self->{'spec_stay'} < 3 or $self->{'spec_stay'} == 3 and join($EMPTY_STR, @{$$self{'data'};}[-2, -1]) eq '--'
3 0 27 $self->{'brace'} == 0 and $self->{'bracket'} == 0 and $self->{'spec_stay'} < 3 or $self->{'spec_stay'} == 3 and join($EMPTY_STR, @{$$self{'data'};}[-2, -1]) eq '--' or $self->{'tag_type'} =~ /^!\[cdata\[/ms and join($EMPTY_STR, @{$$self{'data'};}[-2, -1]) eq ']]'
272 64 63 282 $self->{'tag_length'} == 2 || $self->{'tag_length'} == 3
327 111 55 4303 $self->{'stay'} == 98 or $self->{'stay'} == 99
345 64 18 29 $char eq '!' or $char eq '/'
82 7 22 $char eq '!' or $char eq '/' or $char eq '?'
25 22 0 $char eq '!' or $char eq '/' or $char eq '?' or $char =~ /^[\d\w]+$/ms
356 4 7 721 $char eq ':' or $char eq '['
11 6 715 $char eq ':' or $char eq '[' or $char eq '-'
13 1 714 $char eq ':' or $char eq '[' or $char eq '-' or $char eq '%'
7 638 76 $char eq ':' or $char eq '[' or $char eq '-' or $char eq '%' or $char =~ /^[\d\w]+$/ms