| blib/lib/Text/Authinfo.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 7 | 32 | 21.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 46 | 0 | 0 | 1 | defined $l{'machine'} and defined $l{'login'} |
| 0 | 0 | 1 | defined $l{'machine'} and defined $l{'login'} and defined $l{'password'} | |
| 102 | 0 | 0 | 0 | defined $ops and ref $ops ne 'HASH' |
| line | l | !l | condition |
|---|---|---|---|
| 101 | 0 | 0 | shift() || undef |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 24 | 1 | 0 | 0 | shift() || $authinfofile |
| 36 | 1 | 0 | 0 | 'Text::CSV'->new({'sep_char', ' '}) || croak('new Text::CSV') |
| 70 | 2 | 0 | 0 | shift() || croak('use: getauth(machine,login,[port])') |
| 71 | 2 | 0 | 0 | shift() || croak('use: getauth(machine,login,[port])') |
| 72 | 2 | 0 | 0 | shift() || $wildcard |
| 109 | 0 | 0 | 0 | $$self{'FILE'} || croak("rm old $$self{'FILE'}:$!") |
| 121 | 0 | 0 | 0 | $$self{'FILE'} || croak("chmod fail on $$self{'FILE'}:$!") |