File Coverage

blib/lib/Catalyst/Plugin/Shorten/Store/Dummy.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Catalyst::Plugin::Shorten::Store::Dummy;
2 6     6   11237990 use strict; use warnings;
  6     6   62  
  6         242  
  6         36  
  6         14  
  6         367  
3 6     6   1024 our (%store, $i); BEGIN { $i = 0; }
4              
5             sub shorten_get_data {
6 24     24 1 82 my ( $c, $id ) = @_;
7 24         87 $store{$id};
8             }
9              
10             sub shorten_set_data {
11 19     19 1 2415 my $c = shift;
12 19         93 my (%data) = @_;
13 19         107 $store{++$i} = \%data;
14 19         78 return $i;
15             }
16              
17             sub shorten_delete_data {
18 2     2 1 6 my ( $c, $id ) = @_;
19 2         15 delete $store{$id};
20             }
21              
22             1;
23              
24             __END__
25              
26             =head1 NAME
27              
28             Catalyst::Plugin::Shorten::Store::Dummy
29              
30             =head1 SUBROUTINES/METHOS
31              
32             =head2 shorten_get_data
33              
34             =cut
35              
36             =head2 shorten_set_data
37              
38             =cut
39              
40             =head2 shorten_delete_data
41              
42             =cut
43              
44             =head1 AUTHOR
45              
46             LNATION, C<< <thisusedtobeanemail at gmail.com> >>
47              
48             =cut