Branch Coverage

blib/lib/ORLite/Array.pm
Criterion Covered Total %
branch 62 90 68.8


line true false branch
22 8 0 unless (defined $INC{'ORLite.pm'})
33 0 3 unless -e $_
48 0 7 if (defined &Params::Util::_STRING($_[-1]) and $_[-1] eq '-DEBUG')
55 3 4 if (defined &Params::Util::_STRING($_[1])) { }
4 0 elsif (&Params::Util::_HASHLIKE($_[1])) { }
68 5 2 unless (defined $params{'create'})
71 0 7 unless (defined &Params::Util::_STRING($params{'file'}) and $params{'create'} || -f $params{'file'})
81 5 2 unless (defined $params{'readonly'})
82 2 3 $params{'create'} ? :
84 2 5 unless (defined $params{'tables'})
87 7 0 unless (defined $params{'package'})
90 0 7 unless (&Params::Util::_CLASS($params{'package'}))
97 2 5 if ($created)
100 0 2 unless (-d $dir)
102 0 0 if $params{'prune'}
104 0 2 if $params{'prune'}
112 1 6 if ($created and &Params::Util::_CODELIKE($params{'create'}))
118 0 7 if (exists $params{'user_version'} and $version != $params{'user_version'})
199 5 2 unless $readonly
246 5 2 if ($params{'tables'})
294 0 1 unless (/^(\w+).+?REFERENCES\s+(\w+)\s*\(\s*(\w+)/)
356 5 1 if (defined $$table{'pk'} and not $readonly)
359 4 1 scalar @{$$table{'pk'};} == 1 ? :
411 1 11 $$_{'fk'} ? :
426 1 6 if (defined $params{'append'})
427 0 1 if $params{'tables'}
432 0 7 if ($DEBUG) { }
435 0 1 unless $DBH or $DBH = $_[0]->connect
0 0 unless $DBH
1 9 if ($DBH) { }
0 41 if @_
2 5 unless $DBH or $_[0]->connect
0 1 if ref $self
4 2 unless @_
1 0 unless $$self[0]
2 0 unless &$call()
1 3 if @_
0 5 unless &$call()
1 6 if @_ > 2
0 0 unless $DBH
5 4 if ($DBH) { }
7 2 if @_
0 1 wantarray ? :
1 0 if @_
436 0 7 if $@