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