File Coverage

lib/Crypt/Perl/ASN1.pm
Criterion Covered Total %
statement 28 29 96.5
branch 1 2 50.0
condition 6 12 50.0
subroutine 11 11 100.0
pod 5 6 83.3
total 51 60 85.0


line stmt bran cond sub pod time code
1             package Crypt::Perl::ASN1;
2              
3             #Wrappers around basic methods to get exceptions thrown on errors.
4              
5 12     12   111 use strict;
  12         20  
  12         285  
6 12     12   51 use warnings;
  12         28  
  12         271  
7              
8 12     12   57 use parent 'Convert::ASN1';
  12         17  
  12         77  
9              
10 12     12   382954 use Crypt::Perl::BigInt ();
  12         32  
  12         216  
11 12     12   61 use Crypt::Perl::X ();
  12         65  
  12         3272  
12              
13             sub new {
14 2132     2132 1 6214 my ($class, @opts) = @_;
15              
16 2132         24331 return $class->SUPER::new(
17             encode => { bigint => 'Crypt::Perl::BigInt' },
18             decode => { bigint => 'Crypt::Perl::BigInt' },
19             @opts,
20             );
21             }
22              
23             sub prepare {
24 2132     2132 1 93498 my ( $self, $asn1_r ) = ( $_[0], \$_[1] );
25              
26 2132         10519 my $ret = $self->SUPER::prepare($$asn1_r);
27              
28 2132 50       18683950 if ( !defined $ret ) {
29 0         0 die Crypt::Perl::X::create('ASN1::Prepare', $$asn1_r, $self->error());
30             }
31              
32 2132         11207 return $ret;
33             }
34              
35             sub find {
36 1643     1643 1 5263 my ( $self, $macro ) = @_;
37              
38 1643   33     7532 return $self->SUPER::find($macro) || do {
39             die Crypt::Perl::X::create('ASN1::Find', $macro, $self->error());
40             };
41             }
42              
43             sub encode {
44 1055     1055 1 436971 my ($self) = shift;
45              
46 1055   33     5167 return $self->SUPER::encode(@_) || do {
47             die Crypt::Perl::X::create('ASN1::Encode', \@_, $self->error());
48             };
49             }
50              
51             sub decode {
52 1081     1081 1 3046 my ($self) = shift;
53              
54 1081   66     5725 return $self->SUPER::decode($_[0]) || do {
55             die Crypt::Perl::X::create('ASN1::Decode', $_[0], $self->error());
56             };
57             }
58              
59             my $_asn1_null;
60              
61             sub NULL {
62 14   66 14 0 514 return $_asn1_null ||= Crypt::Perl::ASN1->new()->prepare('n NULL')->encode( { n => 0 } );
63             }
64              
65             1;