| blib/lib/Data/Rx/CoreType/fail.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 11 | 11 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 5 | 5 | 100.0 |
| pod | 0 | 2 | 0.0 |
| total | 16 | 18 | 88.8 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | 1 | 1 | 6 | use strict; | |||
| 1 | 4 | ||||||
| 1 | 38 | ||||||
| 2 | 1 | 1 | 5 | use warnings; | |||
| 1 | 2 | ||||||
| 1 | 39 | ||||||
| 3 | package Data::Rx::CoreType::fail; | ||||||
| 4 | # ABSTRACT: the Rx //fail type | ||||||
| 5 | $Data::Rx::CoreType::fail::VERSION = '0.200006'; | ||||||
| 6 | 1 | 1 | 5 | use parent 'Data::Rx::CoreType'; | |||
| 1 | 2 | ||||||
| 1 | 6 | ||||||
| 7 | |||||||
| 8 | sub assert_valid { | ||||||
| 9 | 54 | 54 | 0 | 2384 | $_[0]->fail({ | ||
| 10 | error => [ qw(fail) ], | ||||||
| 11 | message => "matching reached an always-fail check", | ||||||
| 12 | value => $_[1], | ||||||
| 13 | }); | ||||||
| 14 | } | ||||||
| 15 | |||||||
| 16 | 54 | 54 | 0 | 196 | sub subname { 'fail' } | ||
| 17 | |||||||
| 18 | 1; | ||||||
| 19 | |||||||
| 20 | __END__ |