Branch Coverage
blib/lib/App/TeleGramma/Store.pm
Criterion
Covered
Total
%
branch
6
8
75.0
line
true
false
branch
21
2
2
unless
(
$self
->dbs
->{
$db
}
)
32
0
4
if
(
not
$db
=~
/^[\w\-]+$/
)
42
0
2
unless
(
-d
$self
->path
)
47
1
1
unless
(
-e
$db_file
)