Coverage Summary

# File Coverage

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 |  |  |  |  |