| blib/lib/custom/failures/x/alias.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 5 | 2 | if ('ARRAY' eq ref $failures[1]) { } |
| 44 | 1 | 5 | if ($opt eq '-prefix') { } |
| 1 | 4 | elsif ($opt eq '-suffix') { } | |
| 0 | 4 | elsif ($opt eq '-alias') { } | |
| 3 | 1 | elsif ($opt eq '-export') { } | |
| 1 | 0 | elsif ($opt eq '-exporter') { } | |
| 56 | 0 | 0 | unless "CODE" eq ref $alias |
| 67 | 0 | 1 | unless eval "use $exporter ; 1 " |
| 87 | 0 | 8 | unless eval "package $caller; sub $alias () { '${caller}::${failure}' } 1;" |
| 91 | 6 | 1 | if ($exporter eq 'Exporter') { } |