blib/lib/Bot/Cobalt/Frontend/Utils.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 13 | 24 | 54.1 |
line | true | false | branch |
---|---|---|---|
25 | 1 | 0 | if (defined $args{'validate'}) |
28 | 1 | 0 | ref $args{'validate'} eq 'CODE' ? : |
34 | 0 | 1 | defined $default ? : |
36 | 0 | 1 | if defined $default and $ret eq '' |
47 | 1 | 0 | if ($validate_sub) |
49 | 1 | 0 | unless defined $invalid |
51 | 0 | 0 | if $args{'die_if_invalid'} or $args{'die_unless_valid'} |
71 | 0 | 4 | unless $default =~ /^[yn]$/ |
74 | 2 | 2 | $default eq 'y' ? : |
82 | 0 | 4 | if $input eq '' |
83 | 0 | 4 | $input eq '' ? : |
91 | 2 | 2 | $input eq 'y' ? : |