File Coverage

blib/lib/Crypt/Keyczar/Reader.pm
Criterion Covered Total %
statement 9 22 40.9
branch n/a
condition n/a
subroutine 3 6 50.0
pod 0 3 0.0
total 12 31 38.7


line stmt bran cond sub pod time code
1             package Crypt::Keyczar::Reader;
2 16     16   102 use strict;
  16         31  
  16         357  
3 16     16   65 use warnings;
  16         27  
  16         321  
4 16     16   68 use Carp;
  16         28  
  16         2192  
5              
6              
7             sub new {
8 0     0 0   croak "Please override, 'Crypt::Keyczar::Reader' is abstract class";
9              
10 0           my $class = shift;
11 0           my $location = shift;
12 0           return bless {
13             location => $location
14             }, $class;
15             }
16              
17              
18             sub get_key {
19 0     0 0   croak "Please override, 'Crypt::Keyczar::Reader' is abstract class";
20 0           my $self = shift;
21 0           my $version = shift;
22              
23 0           my $json_key = undef;
24 0           return $json_key;
25             }
26              
27              
28             sub get_metadata {
29 0     0 0   croak "Please override, 'Crypt::Keyczar::Reader' is abstract class";
30              
31 0           my $self = shift;
32 0           my $json_metadata = undef;
33 0           return $json_metadata;
34             }
35              
36             1;
37             __END__