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   1492 use strict;
  3         6  
  3         115  
4 3     3   17 use warnings;
  3         5  
  3         75  
5              
6 3     3   13 use parent qw( CBOR::Free::X::Base );
  3         4  
  3         16  
7              
8 3     3   1107 use Text::Control ();
  3         743  
  3         190  
9              
10             sub _new {
11 8     8   701 my ($class, $what, $offset) = @_;
12              
13 8         45 return $class->SUPER::_new("Received CBOR $what as a map key (offset: $offset), which Perl doesn’t understand.");
14             }
15              
16             1;