File Coverage

blib/lib/Class/Param/Ordered.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Class::Param::Ordered;

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

use Params::Validate   qw[];
use Tie::Hash::Indexed 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"
    );

    my $param = Tie::Hash::Indexed->TIEHASH( %{ $hash } );

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

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

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

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

sub count {
    my $self = shift;
    return scalar $self->names || 0;
}

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

sub clear {
    my $self = shift;
    $$self->CLEAR;
    return 1;
}

sub names {
    my $self  = shift;
    my @names = ( $$self->FIRSTKEY );

    return () unless defined $names[0];

    while ( defined ( $_ = $$self->NEXTKEY( $names[-1] ) ) ) {
        push @names, $_;
    }

    return @names;
}

1;

__END__