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

package Catalyst::Plugin::Shorten::Store::Dummy;
use strict; use warnings;
our (%store, $i); BEGIN { $i = 0; }

sub shorten_get_data {
    my ( $c, $id ) = @_;
    $store{$id};
}

sub shorten_set_data {
    my $c = shift;
    my (%data) = @_;
    $store{++$i} = \%data;
        return $i;
}

sub shorten_delete_data {
    my ( $c, $id ) = @_;
    delete $store{$id};
}

1;

__END__

=head1 NAME

Catalyst::Plugin::Shorten::Store::Dummy

=head1 SUBROUTINES/METHOS

=head2 shorten_get_data

=cut

=head2 shorten_set_data

=cut

=head2 shorten_delete_data

=cut

=head1 AUTHOR

LNATION, C<< <thisusedtobeanemail at gmail.com> >>

=cut