Branch Coverage

blib/lib/DBIx/Simple/Class.pm

Criterion	Covered	Total	%
branch	98	202	48.5

line	true	false	branch
16	8	16	defined $_[1] ? :
156	1	24	if ref $class
158	5	19	if (ref $args) { }
	19	0	elsif ($args) { }
159	2	3	unless $$SQL{$class}
166	1	18	if $args =~ /^_+/x
174	13	5	if (ref $_SQL) { }
212	5	11	unless $$_attributes_made{$class}
218	5	15	if (wantarray)
222	15	0	$_[1]{'lc_columns'} ? :
234	0	0	unless $$_attributes_made{$class}
241	3	6	unless $$_attributes_made{$class}
243	1	7	if $class->is_base_class
249	1	7	unless $$_attributes_made{$class}
267	21	0	unless $DEBUG
274	3	12	if ($class->is_base_class)
275	1	2	if $DEBUG
278	1	11	if ref $class
288	1	39	if 'DBIx::Simple::Class'->can($alias)
292	18	21	if $class->can($alias)
293	7	14	unless $code
327	3	7	if ($class->QUOTE_IDENTIFIERS)
353	3	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	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	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	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	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 ? :
356	1	6	if ($class->DEBUG)
368	0	0	@_ % 2 ? :
	0	0	ref $_[0] ? :
370	66	62	@_ % 2 ? :
	5	131	ref $_[0] ? :
385	7	63	if (ref $args and keys %$args) { }
	48	13	elsif (not ref $args) { }
388	1	7	unless (grep {$field eq $_;} @{$self->_UNQUOTED->{'COLUMNS'};})
389	1	3	if $DEBUG
415	1	12	if (keys %$data)
417	11	2	if (not $$self{'new_from_dbix_simple'}) { }
429	5	4	unless $$self{'data'}{$pk}