File Coverage

blib/lib/CBOR/Free/X/InvalidMapKey.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package CBOR::Free::X::InvalidMapKey;
2              
3 3     3   1638 use strict;
  3         7  
  3         92  
4 3     3   16 use warnings;
  3         6  
  3         85  
5              
6 3     3   17 use parent qw( CBOR::Free::X::Base );
  3         5  
  3         16  
7              
8 3     3   1424 use Text::Control ();
  3         940  
  3         217  
9              
10             sub _new {
11 8     8   797 my ($class, $what, $offset) = @_;
12              
13 8         43 return $class->SUPER::_new("Received CBOR $what as a map key (offset: $offset), which Perl doesn’t understand.");
14             }
15              
16             1;