File Coverage

blib/lib/Crypt/Keyczar/Writer.pm
Criterion Covered Total %
statement 14 26 53.8
branch 0 2 0.0
condition n/a
subroutine 4 8 50.0
pod 0 5 0.0
total 18 41 43.9


line stmt bran cond sub pod time code
1             package Crypt::Keyczar::Writer;
2 1     1   5 use strict;
  1         2  
  1         31  
3 1     1   4 use warnings;
  1         2  
  1         23  
4 1     1   4 use Carp;
  1         2  
  1         213  
5              
6              
7             sub new {
8 1     1 0 203 my $class = shift;
9 1         2 my $location = shift;
10 1         5 my $self = bless { location => undef }, $class;
11 1         6 $self->location($location);
12 1         10 return $self;
13             }
14              
15              
16             sub location {
17 0     0 0   my $self = shift;
18 0 0         $self->{location} = shift if @_;
19 0           return $self->{location};
20             }
21              
22              
23             sub put_metadata {
24 0     0 0   croak "Please override, 'Crypt::Keyczar::Writer' is abstract class";
25              
26 0           my $self = shift;
27 0           my $meta = shift;
28             }
29              
30              
31             sub put_key {
32 0     0 0   croak "Please override, 'Crypt::Keyczar::Writer' is abstract class";
33              
34 0           my $self = shift;
35 0           my ($version, $key) = @_;
36             }
37              
38              
39             sub delete_key {
40 0     0 0   croak "Please override, 'Crypt::Keyczar::Writer' is abstract class";
41              
42 0           my $self = shift;
43 0           my $version = shift;
44             }
45              
46             1;
47             __END__