Condition Coverage

blib/lib/XML/RSS/SimpleGen.pm
Criterion Covered Total %
condition 79 225 35.1


and 3 conditions

line !l l&&!r l&&r condition
296 0 0 3 defined $file and length $file
0 0 3 defined $file and length $file and $file =~ /\S/
309 0 0 3 $XML::RSS::SimpleGen::DWIM and not $self->item_limit
359 0 0 21 defined $_ && length $_
469 0 0 0 $url and $h
0 0 0 $url and $h and $w
0 0 0 $url and $h and $w and $h =~ /^\d{1,3}$/s
0 0 0 $url and $h and $w and $h =~ /^\d{1,3}$/s and $w =~ /^\d{1,3}$/s
518 0 0 3 defined $filename and length $filename
528 1 0 2 -e $filename and -f _
1 0 2 -e $filename and -f _ and -r _
0 0 2 -e $filename and -f _ and -r _ and -s _
586 21 0 0 $XML::RSS::SimpleGen::DTD_pubid && $XML::RSS::SimpleGen::DTD_url
613 21 0 0 $ns and keys %$ns
654 20 0 1 defined $lang and not $lang =~ /^[iIxI]$/s
20 0 1 defined $lang and not $lang =~ /^[iIxI]$/s and $lang =~ /^(?: # First subtag [xiIX] | [a-zA-Z]{2,3} ) (?: # Subtags thereafter - # separator [A-Za-z0-9]{1,8} # subtag )* $/sx
668 20 1 0 ($$self{'ttl'} || '') =~ /^(\d+)$/s && "$1\n"
20 0 1 $self->webMaster && '' . $self->html2text($self->webMaster) . "\n"
0 0 21 $self->docs && '' . $self->html2text($self->docs) . "\n"
707 0 0 21 defined $_ && /\S/
719 0 11 0 $XML::RSS::SimpleGen::DWIM and not $url =~ /^[a-z]+[a-z0-9]*:\S+$/s
795 21 0 0 $self->image_url and $self->image_height
21 0 0 $self->image_url and $self->image_height and $self->image_width
883 0 0 6 defined $url and $url =~ /^[a-z]+[a-z0-9]*:\S+$/s
886 6 0 0 $XML::RSS::SimpleGen::Sleepy and $last_url_get_time
924 0 0 2 $headers and $headers =~ s/^/ /gm
953 12 1 2 not $LWP::Simple::VERSION and $_[0] =~ m[^http://([^ \n\r\t/:\@]+)(?::(\d+))?(/\S*)?$]
1012 1 0 1 $code =~ /^30[1237]/s and $buf =~ /\012Location:\s*(\S+)/
1048 0 0 3 defined $hf and length $hf
1057 1 0 2 -e $hf and -s _
1075 0 0 3 @f = split(/\t/, $_, 3) and defined $f[0]
0 0 3 @f = split(/\t/, $_, 3) and defined $f[0] and length $f[0]
1098 0 0 3 defined $hf and length $hf
1126 0 0 3 $r and $r > 0
1130 0 6 0 $forget_before and $$last{$key} < $forget_before
1322 0 0 1 $hour <= 24 and $hour >= 0
1717 0 0 0 defined $c and length $c
0 0 0 defined $c and length $c and $c =~ /\S/
1825 0 0 0 $filename and $maxage
0 0 0 $filename and $maxage and $maxage < ($age = -M $filename)
1864 0 0 406 @_ == 1 || @_ == 2 and ref $_[0]
1909 2 22 111 /^[\x00-\x7e]+$/s and not /[<>&]/s
1943 22 6 2 defined $3 and exists $XML::RSS::SimpleGen::WinLameEntities{hex $3}
6 20 2 defined $2 and exists $XML::RSS::SimpleGen::WinLameEntities{0 + $2}

or 2 conditions

line l !l condition
419 3 0 $$self{'items'} || die('NO ITEMS!?')
437 4 0 $$seen{$$b[0] or ''} || 0
4 0 $$seen{$$a[0] or ''} || 0
645 0 0 $title || $description || '???'
668 21 0 $url || '!!!!DummyURL!!!!'
7 0 $title || $description || $url || '!!!!DummyTitle!!!!'
20 0 $description || $title || $url || '!!!!DummyDescription!!!!'
728 0 0 $title || $description || '???'
756 6 15 $self->item_limit || 0
959 0 2 $2 || 80
984 0 2 $$self{'_loops'} ||= {}
988 2 0 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Timeout', 60) || (return undef)
1139 6 0 $$first{$key} || ''
6 0 $$last{$key} || ''
1599 0 0 $XML::RSS::SimpleGen::PeriodAsSeconds{$period_type} || die("SPORK84258 on '${period_type}'!")
1635 0 0 int $_[1] || 1
1641 0 0 $_[0]{'updateFrequency'} ||= 1
1969 0 0 $2 || ''

or 3 conditions

line l !l&&r !l&&!r condition
176 0 20 0 ref $class || $class
376 3 3 0 $$self{'_first_seen'}{$url} ||= $now
776 16 0 0 $url or $title
16 0 0 $url or $title or $description
800 0 0 0 $self->image_title || $self->html2text($self->title)
0 0 0 $self->image_link || $self->html2text($self->url)
0 0 0 $self->image_description || $self->html2text($self->description)
879 0 1 0 $XML::RSS::SimpleGen::RSS_obj ||= 'XML::RSS::SimpleGen'->new
1015 0 0 1 $url =~ /^(file|mailto):/ or $$seen{$url}++
0 0 1 $url =~ /^(file|mailto):/ or $$seen{$url}++ or scalar keys %$seen > 20
1031 0 0 1 $code eq '404' or $code eq '403'
1281 0 0 0 $_[0]{'_force_now'} || time
1296 0 0 0 $_[0]{'_force_now'} || time
1395 1 0 0 $day_names[$day] || Carp::croak(qq[Day number "$day" is out of range (0-6)])
1585 0 0 0 $period_type eq 'monthly' or $period_type eq 'yearly'
1826 0 0 0 ref $self || $self
1852 21 0 0 eval { do { $selfclass->VERSION } } || $XML::RSS::SimpleGen::VERSION
1864 281 125 0 @_ == 1 || @_ == 2
2196 28 0 0 $XML::RSS::SimpleGen::RSS_obj ||= 'XML::RSS::SimpleGen'->new