File Coverage

blib/lib/CGI/Application/Plugin/Stash.pm

Criterion	Covered	Total	%
statement	10	17	58.8
branch	0	6	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	14	29	48.2

package CGI::Application::Plugin::Stash;

use strict;
use warnings;
use vars qw($VERSION @EXPORT);
require Exporter;

@EXPORT = qw(stash);
$VERSION = '0.01';

sub import { goto &Exporter::import }

sub stash{
    my $self = shift;

    # First use?  Create new __PARAMS!
    $self->{__PARAMS} = {} unless (exists($self->{__PARAMS}));

    # This code stolen from Catalyst::Engine
    if (@_) {
        my $stash = @_ > 1 ? {@_} : $_[0];
        while ( my ( $key, $val ) = each %$stash ) {
            $self->{__PARAMS}->{$key} = $val;
        }
    }

    return $self->{__PARAMS};
}

1;


__END__