Branch Coverage

blib/lib/Video/TeletextDB/Parameters.pm

Criterion	Covered	Total	%
branch	0	102	0.0

line	true	false	branch
27	0	0	unless @_ % 2
30	0	0	if exists $params{'parent'}
32	0	0	if %params
38	0	0	$channel =~ m[([:;./\'\\\0])] ? :
	0	0	$channel eq '' ? :
	0	0	!defined($channel) ? :
45	0	0	unless shift()
51	0	0	unless $dir =~ m[/\z]
52	0	0	unless opendir my $dh, $dir
53	0	0	/\A(.+)\.db\z/s && !check_channel_name($1, 1) && -f "$dir$_" && -r _ ? :
59	0	0	if @_
60	0	0	if not check_channel_name($$tele{'channel'}, 1) and -f $tele->db_file and -r _
69	0	0	exists $$params{$_} ? :
71	0	0	if (defined $val) { }
	0	0	elsif (defined $default_parameters{$_}) { }
77	0	0	if (defined $$parameters{'page_versions'})
78	0	0	unless $$parameters{'page_versions'} == int $$parameters{'page_versions'}
80	0	0	unless $$parameters{'page_versions'} >= 1
82	0	0	unless $$parameters{'page_versions'} <= 255
85	0	0	if defined $$parameters{'channel'}
89	0	0	unless @_ >= 2
91	0	0	if @_ > 2
93	0	0	if defined $channel
107	0	0	unless defined $$parameters{'channel'}
113	0	0	unless defined $$parameters{'channel'}
119	0	0	unless defined $$parameters{'channel'}
126	0	0	$$parameters{'creat'} && defined $$parameters{'umask'} && !(shift()) ? :
133	0	0	$$parameters{'creat'} ? :
	0	0	$$parameters{'creat'} ? :
	0	0	unless sysopen $fh, $lock_file, $$parameters{'creat'} ? 66 : 2
138	0	0	unless my(@stat) = stat $fh
139	0	0	unless flock $fh, 2
141	0	0	if (@new_stat) { }
	0	0	elsif ($! != 2) { }
142	0	0	if $stat[0] == $new_stat[0] and $stat[1] == $new_stat[1]
149	0	0	if defined $old_mask
150	0	0	if $err
192	0	0	unless @_ >= 2
	0	0	if @_ > 2
	0	0	unless @_ >= 2
	0	0	if @_ > 2
	0	0	unless @_ >= 2
	0	0	if @_ > 2
	0	0	unless @_ >= 2
	0	0	if @_ > 2
	0	0	unless @_ >= 2
	0	0	if @_ > 2
	0	0	unless @_ >= 2
	0	0	if @_ > 2
	0	0	unless @_ >= 2
	0	0	if @_ > 2