File Coverage

lib/Crypt/Perl/ECDSA/EncodedPoint.pm
Criterion Covered Total %
statement 39 40 97.5
branch 9 12 75.0
condition 9 12 75.0
subroutine 9 9 100.0
pod 0 3 0.0
total 66 76 86.8


line stmt bran cond sub pod time code
1             package Crypt::Perl::ECDSA::EncodedPoint;
2              
3 7     7   43 use strict;
  7         11  
  7         169  
4 7     7   32 use warnings;
  7         11  
  7         140  
5              
6 7     7   40 use Try::Tiny;
  7         13  
  7         267  
7              
8 7     7   2578 use Crypt::Perl::ECDSA::Utils ();
  7         27  
  7         120  
9 7     7   50 use Crypt::Perl::X ();
  7         17  
  7         2207  
10              
11             #input can be a string or BigInt,
12             #in any of “hybrid”, “uncompressed”, or “compressed” formats
13             sub new {
14 712     712 0 2138 my ($class, $input) = @_;
15              
16 712         2176 my $bin;
17              
18             my $input_is_obj;
19 712 100   712   7550 if ( try { $input->isa('Crypt::Perl::BigInt') } ) {
  712         26161  
20 548         9493 $bin = $input->as_bytes();
21 548         1428 $input_is_obj = 1;
22             }
23             else {
24 164         2029 $input =~ s<\A\0+><>;
25 164         378 $bin = $input;
26             }
27              
28 712         4349 my $first_octet = ord substr( $bin, 0, 1 );
29              
30 712         2331 my $self = bless {}, $class;
31              
32             #Accommodate “hybrid” points
33 712 100 100     8398 if ($first_octet == 6 || $first_octet == 7) {
    100 66        
    50          
34 201         1149 $self->{'_bin'} = "\x04" . substr( $bin, 1 );
35             }
36             elsif ($first_octet == 4) {
37 307         1335 $self->{'_bin'} = $bin;
38             }
39             elsif ($first_octet == 2 || $first_octet == 3) {
40 204         793 $self->{'_compressed_bin'} = $bin;
41             }
42             else {
43 0         0 die Crypt::Perl::X::Create('Generic', sprintf "Invalid leading octet in ECDSA point: %v02x", $bin);
44             }
45              
46 712         3729 return $self;
47             }
48              
49             #returns a string
50             sub get_compressed {
51 7     7 0 24 my ($self) = @_;
52              
53 7   66     42 return $self->{'_compressed_bin'} ||= do {
54 3         24 Crypt::Perl::ECDSA::Utils::compress_point( $self->{'_bin'} );
55             };
56             }
57              
58             #returns a string
59             sub get_uncompressed {
60 902     902 0 4088 my ($self, $curve_hr) = @_;
61              
62 902 50       3229 die "Need curve! (p, a, b)" if !$curve_hr;
63              
64 902   66     7387 return $self->{'_bin'} ||= do {
65 112 50       1060 die "Need compressed bin!" if !$self->{'_compressed_bin'};
66              
67             Crypt::Perl::ECDSA::Utils::decompress_point(
68             $self->{'_compressed_bin'},
69 112         772 @{$curve_hr}{ qw( p a b ) },
  112         1147  
70             );
71             };
72             }
73              
74             #If there’s ever a demand for “hybrid”:
75             #0x06 and 0x07 take the place of the uncompressed leading 0x04,
76             #analogous to 0x02 and 0x03 in the compressed form.
77              
78             1;