File Coverage

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

Criterion	Covered	Total	%
statement	16	17	94.1
branch	5	6	83.3
condition	2	3	66.6
subroutine	3	3	100.0
pod	0	1	0.0
total	26	30	86.6

package App::CLI::Extension::Component::Config;

=pod

=head1 NAME

App::CLI::Extension::Component::Config - for App::CLI::Extension config module

=head1 VERSION

1.421

=cut

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

our $VERSION  = '1.421';

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

sub config {

    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->_config->{$_} = $hash{$_} } @keys;
    }
    return $self->_config;
}

1;

__END__