File Coverage

blib/lib/Crypt/HSM/Mechanism.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod n/a
total 16 19 84.2


line stmt bran cond sub pod time code
1             package Crypt::HSM::Mechanism;
2             $Crypt::HSM::Mechanism::VERSION = '0.027';
3 13     13   285933 use strict;
  13         53  
  13         610  
4 13     13   84 use warnings;
  13         44  
  13         2712  
5              
6             # Contains the actual implementation
7 13     13   800 use Crypt::HSM;
  13         31  
  13         777  
8              
9             # Backwards compatibility
10             for my $method (qw/min_key_size max_key_size flags has_flags/) {
11 13     13   84 no strict 'refs';
  13         67  
  13         2088  
12             *{$method} = sub {
13 0     0     my ($self, @args) = @_;
14 0           return $self->info->$method(@args);
15             }
16             }
17              
18             1;
19              
20             #ABSTRACT: A PKCS11 mechanism
21              
22             __END__