File Coverage

blib/lib/Crypt/Lucifer.pm
Criterion Covered Total %
statement 15 21 71.4
branch n/a
condition n/a
subroutine 5 9 55.5
pod 0 4 0.0
total 20 34 58.8


line stmt bran cond sub pod time code
1             package Crypt::Lucifer;
2 1     1   21536 use 5.014002;
  1         3  
  1         30  
3 1     1   5 use strict;
  1         1  
  1         33  
4 1     1   4 use warnings;
  1         6  
  1         49  
5 1     1   5 use Carp;
  1         2  
  1         95  
6             require Exporter;
7 1     1   798 use AutoLoader;
  1         1439  
  1         7  
8             our @ISA = qw(Exporter);
9             our %EXPORT_TAGS = ( 'all' => [ qw() ] );
10             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
11             our @EXPORT = qw();
12             our $VERSION = '0.1';
13             require XSLoader;
14             XSLoader::load('Crypt::Lucifer', $VERSION);
15              
16             sub new{
17 0     0 0   my $self = bless {}, shift;
18 0           setkey(shift);
19 0           $self;
20             }
21             sub set_key{
22 0     0 0   setkey($_[1]);
23             }
24             sub encrypt(){
25 0     0 0   return luc_encrypt($_[1]);
26             }
27             sub decrypt(){
28 0     0 0   return luc_decrypt($_[1]);
29             }
30             1;
31             __END__