File Coverage

blib/lib/Waft/StashAccessor.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	9	10	90.0
condition			n/a
subroutine	12	12	100.0
pod	0	2	0.0
total	69	72	95.8

package Waft::StashAccessor;

use 5.005;
use base 'Exporter';
use strict;
use vars qw( $VERSION @EXPORT );
BEGIN { eval { require warnings } ? 'warnings'->import : ( $^W = 1 ) }

use Carp;
use Waft ();

$VERSION = '0.01';
$VERSION = eval $VERSION;

@EXPORT = qw( make_stash_accessor );

sub make_stash_accessor {
    my (@keys) = @_;
    my $option =   ref $keys[-1] eq 'HASH' ? pop @keys
                 :                           {};

    my $caller = caller;

    my $minlen = $option->{minlen};

    for my $key ( @keys ) {
        my $setter = sub {
            my ($self, $value) = @_;

            validate($value, $minlen);

            $self->stash($caller)->{$key} = $value;

            return;
        };

        my $getter = sub {
            my ($self) = @_;

            my $value = $self->stash($caller)->{$key};

            validate($value, $minlen);

            return $value;
        };

        no strict 'refs';
        *{ "${caller}::set_$key" } = $setter;
        *{ "${caller}::get_$key" } = $getter;
    }

    return;
}

sub validate {
    my ($value, $minlen) = @_;

    if ( $minlen ) {
        croak 'Use of uninitialized value' if not defined $value;
        croak 'Less than minimum length' if length $value < $minlen;
    }

    return;
}

1;
__END__