File Coverage

blib/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
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package List::Objects::WithUtils::Role::Hash::TiedRO;
2             $List::Objects::WithUtils::Role::Hash::TiedRO::VERSION = '2.027002';
3 2     2   1550 use strictures 2;
  2         47  
  2         103  
4 2     2   496 use Carp ();
  2         5  
  2         34  
5              
6 2     2   10 use Role::Tiny;
  2         5  
  2         13  
7              
8             around $_ => sub {
9             Carp::croak "Attempted to modify a read-only value"
10             } for qw/
11             STORE
12             DELETE
13             CLEAR
14             /;
15              
16             1;