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 16     16   119 use strict;
  16         34  
  16         520  
6 16     16   97 use warnings;
  16         75  
  16         538  
7              
8 16     16   566 use parent 'Convert::ASN1';
  16         464  
  16         137  
9              
10 16     16   637967 use Crypt::Perl::BigInt ();
  16         61  
  16         313  
11 16     16   89 use Crypt::Perl::X ();
  16         35  
  16         5534  
12              
13             sub new {
14 2833     2833 1 13089 my ($class, @opts) = @_;
15              
16 2833         47581 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 2833     2833 1 205662 my ( $self, $asn1_r ) = ( $_[0], \$_[1] );
25              
26 2833         17199 my $ret = $self->SUPER::prepare($$asn1_r);
27              
28 2833 50       28380795 if ( !defined $ret ) {
29 0         0 die Crypt::Perl::X::create('ASN1::Prepare', $$asn1_r, $self->error());
30             }
31              
32 2833         20139 return $ret;
33             }
34              
35             sub find {
36 1928     1928 1 7684 my ( $self, $macro ) = @_;
37              
38 1928   33     11609 return $self->SUPER::find($macro) || do {
39             die Crypt::Perl::X::create('ASN1::Find', $macro, $self->error());
40             };
41             }
42              
43             sub encode {
44 1486     1486 1 481346 my ($self) = shift;
45              
46 1486   33     9636 return $self->SUPER::encode(@_) || do {
47             die Crypt::Perl::X::create('ASN1::Encode', \@_, $self->error());
48             };
49             }
50              
51             sub decode {
52 1355     1355 1 5379 my ($self) = shift;
53              
54 1355   66     12501 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 569 return $_asn1_null ||= Crypt::Perl::ASN1->new()->prepare('n NULL')->encode( { n => 0 } );
63             }
64              
65             1;