File Coverage

blib/lib/App/Presto/Stash.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	6	6	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	4	0.0
total	30	34	88.2

package App::Presto::Stash;
BEGIN {
  $App::Presto::Stash::AUTHORITY = 'cpan:BPHILLIPS';
}
{
  $App::Presto::Stash::VERSION = '0.009';
}

# ABSTRACT: Presto stash

use Moo;

{
	my $stash = {};
	sub get {
		my $self = shift;
		my $key  = shift;
		return exists $stash->{$key} ? $stash->{$key} : undef;
	}
	sub set {
		my $self = shift;
		my($k,$v) = @_;
		return $stash->{$k} = $v;
	}
	sub unset {
		my $self = shift;
		my $k = shift;
		return delete $stash->{$k};
	}

	sub stash {
		my $self = shift;
		if(@_ == 2){
			return $self->set(@_);
		} elsif(@_ == 1){
			return $self->get(@_);
		} else {
			return $stash;
		}
	}
}

1;

__END__