blib/lib/App/PerlPPP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 4 | 13 | 30.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
97 | 6 | 0 | 0 | wantarray && 'ARRAY' eq ref $value |
line | l | !l | condition |
---|---|---|---|
91 | 8 | 12 | $$spec[1] || sub { shift(); shift(); } |
288 | 0 | 0 | $self->_make_key || die("Must supply --key or --passphrase\n") |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
49 | 0 | 0 | 2 | $value < $min or $value > $max |
301 | 0 | 0 | 0 | $$self{'_ppp'} ||= 'Crypt::PerfectPaperPasswords'->new(%args) |