File Coverage

blib/lib/Cache/Funky.pm

Criterion	Covered	Total	%
statement	50	50	100.0
branch	8	14	57.1
condition	3	9	33.3
subroutine	10	10	100.0
pod	4	4	100.0
total	75	87	86.2

package Cache::Funky;

use warnings;
use strict qw( subs );
use Carp;
use UNIVERSAL::require;

our $VERSION = '0.06';

sub setup {
    my $class        = shift;
    my $storage      = shift;
    my $storage_args = shift;

    croak("setup() is a class method, not an object method") if ref $class;

    my $storage_class = __PACKAGE__ . "::$storage";
    $storage_class->require or croak $@;

    my $storage_obj = $storage_class->new( $storage_args );

    *{ $class . '::_storage' } = sub { $storage_obj };
}

sub register {
    my $class     = shift;
    my $attribute = shift;
    my $code      = shift;

    croak("register() is a class method, not an object method") if ref $class;
    croak("you need args of attribute") if !defined $attribute;
    croak("you need args of coderef")   if !defined $code or ref $code ne 'CODE';

    my $package_attribute = $class . '::' . $attribute;
    *{ $package_attribute }
        = sub {
            my $self = shift;
            my $id   = shift;

            my $data;
            unless ( $data = $self->_storage->get( $package_attribute ,  $id ) ) {
                $data = $code->( $id );
                $self->_storage->set( $package_attribute, $data , $id );
            }

            return $data;
          };
}

sub delete {
    my $self        = shift;
    my $attribute   = shift;
    my $id          = shift;

    my $package_attribute = ( ref $self || $self ) .'::'. $attribute;
    $self->_storage->delete( $package_attribute , $id );
}

sub deletes {
    my $self       = shift;
    my $attributes = shift;

    croak "you need to set attributes keys" unless ref $attributes eq 'ARRAY' ;

    for my $attribute ( @{ $attributes  } ) {
        my $package_attribute = ( ref $self || $self ) .'::'. $attribute;
        $self->_storage->delete( $package_attribute );
    }
}

1; # Magic true value required at end of module
__END__