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   2565 use strict;
  3         8  
  3         132  
4 3     3   19 use warnings;
  3         6  
  3         216  
5              
6 3     3   20 use parent qw( CBOR::Free::X::Base );
  3         34  
  3         26  
7              
8 3     3   1815 use Text::Control ();
  3         1420  
  3         334  
9              
10             sub _new {
11 8     8   1228 my ($class, $what, $offset) = @_;
12              
13 8         55 return $class->SUPER::_new("Received CBOR $what as a map key (offset: $offset), which Perl doesn’t understand.");
14             }
15              
16             1;