File Coverage

blib/lib/Crypt/RSA/Parse/KeyBase.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1             package Crypt::RSA::Parse::KeyBase;
2              
3 2     2   10 use parent qw(Class::Accessor::Fast);
  2         3  
  2         10  
4              
5             BEGIN {
6 2     2   6413 __PACKAGE__->mk_ro_accessors('modulus');
7              
8 2         218 *N = \&modulus;
9             }
10              
11             sub size {
12 10     10 0 184552 my ($self) = @_;
13              
14 10         54 return length( $self->modulus()->as_bin() ) - 2;
15             }
16              
17             1;