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   1681 use strict;
  3         5  
  3         100  
4 3     3   15 use warnings;
  3         6  
  3         91  
5              
6 3     3   15 use parent qw( CBOR::Free::X::Base );
  3         5  
  3         15  
7              
8 3     3   1428 use Text::Control ();
  3         902  
  3         217  
9              
10             sub _new {
11 8     8   822 my ($class, $what, $offset) = @_;
12              
13 8         44 return $class->SUPER::_new("Received CBOR $what as a map key (offset: $offset), which Perl doesn’t understand.");
14             }
15              
16             1;