lib/List/Objects/WithUtils/Role/Hash/TiedRO.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 9 | 9 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 3 | 3 | 100.0 |
total | 12 | 12 | 100.0 |
line | stmt | bran | cond | sub | code |
---|---|---|---|---|---|
1 | package List::Objects::WithUtils::Role::Hash::TiedRO; | ||||
2 | 2 | 2 | use strictures 1; | ||
2 | |||||
2 | |||||
3 | 2 | 2 | use Carp (); | ||
2 | |||||
2 | |||||
4 | |||||
5 | 2 | 2 | use Role::Tiny; | ||
2 | |||||
2 | |||||
6 | |||||
7 | around $_ => sub { | ||||
8 | Carp::croak "Attempted to modify a read-only value" | ||||
9 | } for qw/ | ||||
10 | STORE | ||||
11 | DELETE | ||||
12 | CLEAR | ||||
13 | /; | ||||
14 | |||||
15 | 1; | ||||
16 |