| blib/lib/DBIx/Fast/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 10 | 10 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 4 | 4 | 100.0 |
| pod | 1 | 1 | 100.0 |
| total | 15 | 15 | 100.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package DBIx::Fast::Base; | ||||||
| 2 | |||||||
| 3 | 15 | 15 | 187 | use v5.38; | |||
| 15 | 51 | ||||||
| 4 | 15 | 15 | 128 | use Object::Pad 0.807; | |||
| 15 | 115 | ||||||
| 15 | 648 | ||||||
| 5 | 15 | 15 | 2240 | use Carp qw(croak); | |||
| 15 | 64 | ||||||
| 15 | 4455 | ||||||
| 6 | |||||||
| 7 | class DBIx::Fast::Base { | ||||||
| 8 | 40 | 40 | 1 | 96 | field $dbix :param :reader; | ||
| 40 | 178 | ||||||
| 9 | |||||||
| 10 | ADJUST { | ||||||
| 11 | croak "DBIx::Fast instance required" | ||||||
| 12 | unless ref($dbix) && ref($dbix) eq 'DBIx::Fast'; | ||||||
| 13 | } | ||||||
| 14 | } | ||||||
| 15 | |||||||
| 16 | 1; | ||||||
| 17 | |||||||
| 18 | __END__ |