File Coverage

blib/lib/Tie/Hash/NoOp.pm
Criterion Covered Total %
statement 0 3 0.0
branch n/a
condition n/a
subroutine 0 10 0.0
pod n/a
total 0 13 0.0


line stmt bran cond sub pod time code
1             ## no critic: TestingAndDebugging::RequireUseStrict
2             package Tie::Hash::NoOp;
3              
4             # IFUNBUILT
5             # use strict;
6             # END IFUNBUILT
7              
8             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
9             our $DATE = '2023-12-27'; # DATE
10             our $DIST = 'Tie-Hash-NoOp'; # DIST
11             our $VERSION = '0.001'; # VERSION
12              
13             sub TIEHASH {
14 0     0     my $class = shift;
15              
16 0           bless [], $class;
17             }
18              
19       0     sub FETCH {}
20              
21       0     sub STORE {}
22              
23       0     sub DELETE {}
24              
25       0     sub CLEAR {}
26              
27       0     sub EXISTS {}
28              
29       0     sub FIRSTKEY {}
30              
31       0     sub NEXTKEY {}
32              
33 0     0     sub SCALAR {0}
34              
35       0     sub UNTIE {}
36              
37             # DESTROY
38              
39             1;
40             # ABSTRACT: Tied hash that does nothing
41              
42             __END__