Branch Coverage

blib/lib/DBIx/Simple/Class.pm

Criterion	Covered	Total	%
branch	100	202	49.5

line	true	false	branch
16	8	16	defined $_[1] ? :
155	1	24	if ref $class
157	5	19	if (ref $args) { }
	19	0	elsif ($args) { }
158	2	3	unless $$SQL{$class}
165	1	18	if $args =~ /^_+/x
173	13	5	if (ref $_SQL) { }
211	5	11	unless $$_attributes_made{$class}
217	5	18	if (wantarray)
221	18	0	$_[1]{'lc_columns'} ? :
233	2	2	unless $$_attributes_made{$class}
240	2	7	unless $$_attributes_made{$class}
242	1	7	if $class->is_base_class
248	1	7	unless $$_attributes_made{$class}
266	23	0	unless $DEBUG
273	3	13	if ($class->is_base_class)
274	1	2	if $DEBUG
277	1	12	if ref $class
287	1	42	if 'DBIx::Simple::Class'->can($alias)
291	18	24	if $class->can($alias)
292	8	16	unless $code
326	4	7	if ($class->QUOTE_IDENTIFIERS)
352	4	7	unless (eval $code)
	0	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	4	8	$v eq $allow ? :
	0	0	if (ref $allow eq 'CODE') { }
	1	0	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	0	1	if (defined $v)
	1	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	1	2	$v eq $allow ? :
	0	0	if (ref $allow eq 'CODE') { }
	3	1	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	0	4	if (defined $v)
	4	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	4	11	$v eq $allow ? :
	0	0	if (ref $allow eq 'CODE') { }
	2	0	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	0	2	if (defined $v)
	2	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	2	8	$v eq $allow ? :
	0	0	if (ref $allow eq 'CODE') { }
	0	0	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	0	0	if (defined $v)
	0	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	0	2	$v eq $allow ? :
	0	0	if (ref $allow eq 'CODE') { }
	0	0	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	0	1	if (defined $v)
	0	1	&$allow($v) ? :
	0	1	$v =~ /$allow/ ? :
	1	24	$v eq $allow ? :
	0	0	if (ref $allow eq 'CODE') { }
	0	0	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	0	0	if (defined $v)
	0	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	0	6	$v eq $allow ? :
	0	0	if (ref $allow eq 'CODE') { }
	0	0	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	0	0	if (defined $v)
	0	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	0	2	$v eq $allow ? :
	0	0	if (ref $allow eq 'CODE') { }
	1	3	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	0	4	if (defined $v)
	4	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	4	8	$v eq $allow ? :
	1	2	if (ref $allow eq 'CODE') { }
	0	0	elsif (ref $allow eq 'Regexp') { }
	0	0	elsif ($allow and not ref $allow) { }
	3	0	if (defined $v)
	0	0	&$allow($v) ? :
	0	0	$v =~ /$allow/ ? :
	3	7	$v eq $allow ? :
355	1	6	if ($class->DEBUG)
367	0	0	@_ % 2 ? :
	0	0	ref $_[0] ? :
369	66	70	@_ % 2 ? :
	5	139	ref $_[0] ? :
384	7	67	if (ref $args and keys %$args) { }
	48	17	elsif (not ref $args) { }
387	1	7	unless (grep {$field eq $_;} @{$self->_UNQUOTED->{'COLUMNS'};})
388	1	3	if $DEBUG
414	1	12	if (keys %$data)
416	11	2	if (not $$self{'new_from_dbix_simple'}) { }
428	5	4	unless $$self{'data'}{$pk}