Branch Coverage

blib/lib/Pquota.pm
Criterion Covered Total %
branch 17 144 11.8


line true false branch
70 0 2 unless ($printer and defined $cost and $dbm)
97 0 1 unless ($printer)
103 0 1 unless (defined $$self{'dbms'}{'_printers'}{$printer})
127 0 0 unless ($printer and defined $cost)
133 0 0 unless (defined $$self{'dbms'}{'_printers'}{$printer})
160 0 0 unless ($printer)
166 0 0 unless (defined $$self{'dbms'}{'_printers'}{$printer})
201 0 0 unless ($printer and $dbm)
207 0 0 unless (defined $$self{'dbms'}{'_printers'}{$printer})
235 0 0 unless ($printer)
241 0 0 unless (defined $$self{'dbms'}{'_printers'}{$printer})
276 0 0 unless ($printer and $key and defined $val)
282 0 0 unless (defined $$self{'dbms'}{'_printers'}{$printer})
310 0 0 unless ($printer and $key)
316 0 0 unless (defined $$self{'dbms'}{'_printers'}{$printer})
340 0 1 unless ($dbm and $user and defined $periodic)
346 0 1 unless ($self->_open_dbm($dbm))
351 0 1 if (defined $$self{'dbms'}{$dbm}{$user})
357 0 1 if ($periodic eq 'unlimited')
383 0 1 unless ($dbm and $user)
389 0 1 unless ($self->_open_dbm($dbm))
394 0 1 unless (defined $$self{'dbms'}{$dbm}{$user})
419 0 0 unless ($user and $printer and defined $pages)
425 0 0 unless (defined $$self{'dbms'}{'_printers'}{$printer})
432 0 0 unless ($self->_open_dbm($$printer_entry{'dbm'}))
438 0 0 unless (defined $$self{'dbms'}{$$printer_entry{'dbm'}}{$user})
451 0 0 if ($$user_entry{'current'} < $cost)
480 0 0 unless ($dbm and $user and defined $amt)
486 0 0 unless ($self->_open_dbm($dbm))
491 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
521 0 0 unless ($dbm and $user and defined $amt)
527 0 0 unless ($self->_open_dbm($dbm))
532 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
541 0 0 if ($amt eq 'unlimited')
565 0 0 unless ($dbm and $user)
571 0 0 unless ($self->_open_dbm($dbm))
576 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
594 0 0 unless ($printer and $user)
600 0 0 unless ($dbm = $self->printer_get_user_database($printer))
605 0 0 unless ($self->_open_dbm($dbm))
610 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
628 0 0 unless ($dbm and $user)
634 0 0 unless ($self->_open_dbm($dbm))
639 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
670 0 0 unless ($dbm and $user and defined $amt)
676 0 0 unless ($self->_open_dbm($dbm))
681 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
711 0 0 unless ($dbm and $user and defined $amt)
717 0 0 unless ($self->_open_dbm($dbm))
722 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
731 0 0 if ($amt eq 'unlimited')
756 0 0 unless ($dbm and $user)
762 0 0 unless ($self->_open_dbm($dbm))
767 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
785 0 0 unless ($dbm and $user)
791 0 0 unless ($self->_open_dbm($dbm))
796 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
827 0 0 unless ($dbm and $user and $key and defined $val)
833 0 0 unless ($self->_open_dbm($dbm))
838 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
864 0 0 unless ($dbm and $user and $key)
870 0 0 unless ($self->_open_dbm($dbm))
875 0 0 unless (defined $$self{'dbms'}{$dbm}{$user})
897 0 1 unless (-d $quotadir)
902 0 1 if ($db_opts)
903 0 0 if ($$db_opts{'UseDB'})
906 0 0 if ($$db_opts{'Serializer'})
909 0 0 if ($$db_opts{'RO'} and $$db_opts{'RO'} =~ /true/i)
930 1 2 if (defined $$self{'dbms'}{$dbm})
936 0 2 $$self{'RO'} ? :
937 0 2 unless (tie %{$$self{'dbms'}{$dbm};}, 'MLDBM', "$$self{'quotadir'}/$dbm", $options, 420)
954 0 5 unless ($fh = eval { do { local *FH } })