File: TiedRO.pm

package info (click to toggle)
liblist-objects-withutils-perl 2.028003-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 1,292 kB
  • sloc: perl: 1,957; makefile: 17; sh: 6
file content (20 lines) | stat: -rw-r--r-- 326 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
package List::Objects::WithUtils::Role::Hash::TiedRO;
$List::Objects::WithUtils::Role::Hash::TiedRO::VERSION = '2.028003';
=for Pod::Coverage *EVERYTHING*

=cut

use strictures 2;
use Carp ();

use Role::Tiny;

around $_ => sub {
  Carp::croak "Attempted to modify a read-only value"
} for qw/
  STORE
  DELETE
  CLEAR
/;

1;