File Coverage

blib/lib/Class/Param.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	2	2	100.0
condition			n/a
subroutine	12	12	100.0
pod	8	8	100.0
total	56	56	100.0

package Class::Param;

use strict;
use warnings;
use base 'Class::Param::Base';

our $VERSION = 0.1;

use Params::Validate qw[];

sub new {
    my $class = ref $_[0] ? ref shift : shift;

    my ( $hash ) = Params::Validate::validate_with(
        params  => \@_,
        spec    => [
            {
                type      => Params::Validate::HASHREF,
                default   => {},
                optional  => 1
            }
        ],
        called  => "$class\::new"
    );

    return bless( \$hash, $class );
}

sub get {
    my ( $self, $name ) = @_;
    return $$self->{$name};
}

sub set {
    my ( $self, $name, $value ) = @_;
    $$self->{$name} = $value;
    return 1;
}

sub has {
    my ( $self, $name ) = @_;
    return exists $$self->{$name};
}

sub count {
    my $self = shift;
    return scalar keys %{ $$self };
}

sub clear {
    my $self = shift;
    %{ $$self } = ();
    return 1;
}

sub remove {
    my ( $self, $name ) = @_;
    return delete $$self->{$name};
}

sub names {
    my $self = shift;
    return keys %{ $$self };
}

1;

__END__