Branch Coverage

blib/lib/DVB/Epg.pm
Criterion Covered Total %
branch 111 172 64.5


line true false branch
79 0 1 unless $$self{'dbh'} = 'DBI'->connect('dbi:SQLite:' . $$self{'filename'})
201 0 204 if (not exists $$event{'uid'} && exists $$event{'stop'} && exists $$event{'start'} or $$event{'stop'} <= $$event{'start'})
209 0 204 exists $$event{'running_status'} ? :
210 0 204 exists $$event{'free_CA_mode'} ? :
213 104 100 unless (defined $$event{'id'})
223 101 3 if ($#row == 0) { }
225 0 101 if ($last_event_id >= 65535) { }
236 0 0 if (${$result;}[0] - $lastused > 1)
265 0 204 unless $insert
269 204 0 if ($insert->execute) { }
296 0 2 unless (defined $uid)
300 0 2 defined $event_id ? :
0 2 defined $start ? :
0 2 defined $stop ? :
0 2 defined $touch ? :
346 1 3 defined $uid ? :
1 3 defined $event_id ? :
1 3 defined $start_min ? :
1 3 defined $start_max ? :
1 3 defined $stop_min ? :
1 3 defined $stop_max ? :
371 0 3 unless (defined $pid and defined $service_id and defined $original_network_id and defined $transport_stream_id and defined $uid and defined $maxsegments and defined $actual)
381 3 0 unless defined $comment
415 0 0 defined $ref ? :
432 1 1 defined $pid ? :
1 1 defined $service_id ? :
0 2 defined $original_network_id ? :
0 2 defined $transport_stream_id ? :
455 0 4 unless (defined $pid)
469 0 4 unless (defined $ret)
475 2 2 if ($$rule{'maxsegments'} > 0)
477 0 2 unless (defined $ret)
508 4 0 $$rule{'actual'} == 1 ? :
519 0 4 if ($forced)
524 3 1 unless (defined $last_version_number)
553 3 1 if (defined $last_started_event and $$last_started_event{'stop'} > $current_time) { }
556 0 1 if ($$last_started_event{'start'} > $last_update_timestamp or $$last_started_event{'timestamp'} > $last_update_timestamp or defined $following_event and $$following_event{'timestamp'} > $last_update_timestamp)
573 1 0 if (defined $last_started_event and $$last_started_event{'stop'} > $last_update_timestamp or defined $following_event and $$following_event{'timestamp'} > $last_update_timestamp)
582 1 3 unless $buildEit
588 2 1 if (defined $last_started_event and $$last_started_event{'stop'} > $current_time)
596 3 0 if (defined $following_event)
598 0 3 $$following_event{'start'} - $current_time < 20 ? :
608 0 3 unless $dbh->do("DELETE FROM section WHERE pid=$$rule{'pid'} AND service_id=$$rule{'service_id'} AND table_id=$$rule{'table_id'}")
611 0 3 unless $insert
650 4 0 $$rule{'actual'} == 1 ? :
665 2 2 unless (defined $last_version_number)
677 2 2 $$rule{'maxsegments'} >= $first_segment + 32 ? :
702 2 0 if $last_update_timestamp >= $last_midnight and $last_event_modification <= $last_update_timestamp and $n == 0
711 27 8 if ($last_midnight + $segment_count * 3 * 60 * 60 >= $current_time) { }
7 1 elsif ($last_midnight + ($segment_count + 1) * 3 * 60 * 60 - 1 < $current_time) { }
749 1 1 $$event{'start'} < $current_time ? :
761 0 2 unless $dbh->do('DELETE FROM section ' . "WHERE pid=$$rule{'pid'} " . "AND service_id=$$rule{'service_id'} " . "AND table_id=$$rule{'table_id'}")
767 0 2 unless $insert
777 0 2 unless $dbh->do("INSERT OR REPLACE INTO eit_version VALUES ( $$rule{'pid'}, $$rule{'service_id'}, $$rule{'table_id'}, $last_version_number, datetime( $current_time,'unixepoch'))")
801 0 3 unless (defined $pid)
804 0 3 if (not defined $timeFrame or $timeFrame < 10)
837 6 35 if ($_table_id == 78) { }
839 3 3 if ($_section_number == 0) { }
883 54 54 if ($pfCount % 2 == 0) { }
898 3 105 if $pfCount == 0
904 0 61 unless $$a{'nextApply'} <=> $$b{'nextApply'}
929 35 2 if ($otherSections[0]{'frequency'} == 0)
936 27 624 if $otherSections[$j]{'played'}
965 0 41 unless defined $timeFrame
976 0 41 if $table_id == 79
977 1 40 if $table_id == 80 and $section_number < 8
1023 41 89 $offs == 0 ? :
1031 41 89 if $offs > $data_len - 1
1048 0 85 unless $row
1084 0 8 unless my $rule = shift()
1100 2 6 if ($$rule{'maxsegments'} == 0) { }
1109 6 0 if ($$rule{'actual'} == 1) { }
1136 0 80 unless (defined $segment_number and defined $event)
1165 0 93 unless defined $section_number
1170 8 85 unless (defined $event)
1196 85 0 if ($section_size + $struct_size < 4078) { }
1269 83 0 if ($$descriptor{'descriptor_tag'} == 77) { }
0 0 elsif ($$descriptor{'descriptor_tag'} == 85) { }
0 0 elsif ($$descriptor{'descriptor_tag'} == 78) { }
1282 83 0 if ($raw_event_name ne '')
1288 83 0 if ($raw_text ne '')
1338 83 249 unless $string
1353 0 0 if not exists $$descriptor{'text'} && defined $$descriptor{'text'} or $$descriptor{'text'} eq ''
1361 0 0 if ($full_text_length > 1010)
1441 0 85 $mon == 1 || $mon == 2 ? :
1460 0 0 $m == 14 || $m == 15 ? :