| line |
true |
false |
branch |
|
39
|
0 |
0 |
if (defined $_[1]) |
|
43
|
0 |
0 |
unless (defined $args{'app'}) |
|
47
|
0 |
0 |
unless (defined $args{'version'}) |
|
55
|
0 |
0 |
unless (defined $ENV{'HOME'}) |
|
65
|
0 |
0 |
if (not -e $$self{'base'}) { } |
|
69
|
0 |
0 |
if (not -d $$self{'base'}) { } |
|
99
|
0 |
0 |
unless ($self->validname($db)) |
|
108
|
0 |
0 |
unless (-e $dbfile) |
|
143
|
0 |
0 |
unless ($self->validname($db)) |
|
153
|
0 |
0 |
unless (-e $dbfile) |
|
179
|
0 |
0 |
unless (mkdir $ENV{'HOME'} . '/larc/') |
|
187
|
0 |
0 |
unless (mkdir $ENV{'HOME'} . '/larc/DB') |
|
218
|
0 |
0 |
unless ($self->validname($db)) |
|
230
|
0 |
0 |
unless (-d $_) |
|
240
|
0 |
0 |
if (opendir DBDIR, $dbpath) |
|
255
|
0 |
0 |
if (!$dir[$dirInt] =~ /^\./) |
|
258
|
0 |
0 |
if (-d $dbpath . '/' . $dir[$dirInt]) { } |
|
286
|
0 |
0 |
unless ($self->validname($db)) |
|
298
|
0 |
0 |
if ($dbpath =~ m[/$]) |
|
300
|
0 |
0 |
if (-e $dbpath) |
|
308
|
0 |
0 |
unless (mkpath($dbpath)) |
|
319
|
0 |
0 |
if (-e $dbfile) |
|
327
|
0 |
0 |
unless ('DBI'->connect('dbi:SQLite:dbname=' . $dbfile, '', '')) |
|
350
|
0 |
0 |
unless ($self->validname($db)) |
|
363
|
0 |
0 |
if ($db =~ m[/$]) |
|
365
|
0 |
0 |
unless (-d $dbpath) |
|
373
|
0 |
0 |
unless (rmdir $dbpath) |
|
384
|
0 |
0 |
unless (-e $dbfile) |
|
392
|
0 |
0 |
unless (unlink $dbfile) |
|
417
|
0 |
0 |
unless (defined $name) |
|
422
|
0 |
0 |
if ($name =~ m[/.]) |
|
427
|
0 |
0 |
if ($name =~ /^./) |