File Coverage

blib/lib/App/CLI/Extension/Component/Stash.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	3	6	50.0
condition	1	3	33.3
subroutine	3	3	100.0
pod	0	1	0.0
total	19	30	63.3

package App::CLI::Extension::Component::Stash;

=pod

=head1 NAME

App::CLI::Extension::Component::Stash - for App::CLI::Extension stash module

=head1 VERSION

1.421

=cut

use strict;
use base qw(Class::Accessor::Grouped);

our $VERSION  = '1.421';

__PACKAGE__->mk_group_accessors("inherited" => "_stash");
__PACKAGE__->_stash({});


sub stash {

	my $self = shift;

	my %hash;
	if(scalar(@_) == 1 && ref($_[0]) eq "HASH"){
		%hash = %{$_[0]};
	} elsif (scalar(@_) > 1) {
		%hash = @_;
	}
	my @keys = keys %hash;
	if (scalar(@keys) > 0) {
		map { $self->_stash->{$_} = $hash{$_} } @keys;
	}
	return $self->_stash;
}

1;

__END__