| blib/lib/Ask.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 20 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 5 | if (@_) |
| 45 | 0 | 3 | @_ == 1 ? : |
| 49 | 3 | 0 | if (exists $ENV{'PERL_ASK_BACKEND'}) { } |
| 0 | 0 | elsif ($ENV{'AUTOMATED_TESTING'} or $ENV{'PERL_MM_USE_DEFAULT'} or not @implementations) { } | |
| 59 | 2 | 1 | unless delete $args{'traits'} |
| 61 | 1 | 2 | @traits ? : |
| 62 | 3 | 0 | unless $args{$i} |
| 0 | 3 | unless my $self = eval { do { $k->new({%args, %{{} unless $args{$i};}}) } } | |
| 63 | 3 | 0 | if $self->is_usable |
| 77 | 0 | 0 | @_ ? : |