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.028003';
3             =for Pod::Coverage *EVERYTHING*
4              
5             =cut
6              
7 2     2   940 use strictures 2;
  2         10  
  2         67  
8 2     2   351 use Carp ();
  2         2  
  2         30  
9              
10 2     2   6 use Role::Tiny;
  2         2  
  2         9  
11              
12             around $_ => sub {
13             Carp::croak "Attempted to modify a read-only value"
14             } for qw/
15             STORE
16             DELETE
17             CLEAR
18             /;
19              
20             1;