File Coverage

blib/lib/CBOR/Free/X/InvalidControl.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package CBOR::Free::X::InvalidControl;
2              
3 1     1   602 use strict;
  1         2  
  1         31  
4 1     1   6 use warnings;
  1         1  
  1         28  
5              
6 1     1   6 use parent qw( CBOR::Free::X::Base );
  1         2  
  1         4  
7              
8             sub _new {
9 49     49   1390 my ($class, $ord, $offset) = @_;
10              
11 49         277 return $class->SUPER::_new(sprintf 'Found invalid control byte %02x at offset %d.', $ord, $offset);
12             }
13              
14             1;