File Coverage

blib/lib/CBOR/Free/Tagged.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1             package CBOR::Free::Tagged;
2              
3 26     26   186 use strict;
  26         57  
  26         813  
4 26     26   139 use warnings;
  26         56  
  26         1695  
5              
6             =encoding utf-8
7              
8             =head1 NAME
9              
10             CBOR::Free::Tagged
11              
12             =head1 SYNOPSIS
13              
14             my $tagged = CBOR::Free::Tagged->new( 1, '2019-05-01T01:02:03Z' );
15              
16             =head1 DESCRIPTION
17              
18             This class represents tagged objects for L. You might as well
19             invoke it via C rather than instantiating this class
20             directly, though.
21              
22             =head1 METHODS
23              
24             =head2 $obj = I->new( $TAG_NUMBER, $VALUE )
25              
26             $TAG_NUMBER is the CBOR tag number to apply on the given $VALUE.
27              
28             Returns a class instance.
29              
30             =cut
31              
32             sub new {
33 105     105 1 803 return bless \@_, shift;
34             }
35              
36             1;