File Coverage

blib/lib/Crypt/Perl/ECDSA/EC/FieldElement.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package Crypt::Perl::ECDSA::EC::FieldElement;
2              
3 9     9   64 use strict;
  9         19  
  9         264  
4 9     9   47 use warnings;
  9         20  
  9         1325  
5              
6             #both bigint
7             sub new {
8 1484190     1484190 0 2768386 my ($class, $q, $x) = @_;
9              
10 1484190 50       2718743 die Crypt::Perl::X::create('Generic', 'Need both q and x!') if grep { !defined } $q, $x;
  2968380         7174035  
11              
12 1484190         6562660 return bless { x => $x, q => $q }, $class;
13             }
14              
15             sub to_bigint {
16 3699904     3699904 0 19300449 my ($self) = @_;
17              
18 3699904         8911666 return $self->{'x'};
19             }
20              
21             1;