File Coverage

blib/lib/Class/Param/Tie.pm

Criterion	Covered	Total	%
statement	49	51	96.0
branch			n/a
condition	2	2	100.0
subroutine	20	22	90.9
pod	7	7	100.0
total	78	82	95.1

package Class::Param::Tie;

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

sub initialize {
    my ( $instance, $decorated ) = @_;

    my $class = ref($instance);
    my $self  = {};

    tie( %{ $self }, 'Class::Param::Tie::Param', $decorated );

    return bless( $self, $class );
}

sub decorated { return tied( %{ shift() } )->decorated (@_) }
sub add       { return shift->decorated->add           (@_) }
sub count     { return shift->decorated->count         (@_) }
sub param     { return shift->decorated->param         (@_) }
sub scan      { return shift->decorated->scan          (@_) }
sub as_hash   { return shift->decorated->as_hash       (@_) }

package Class::Param::Tie::Param;

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

sub iterator {
    return $_[0]->[1] ||= [];
}

sub TIEHASH {
    return shift->new(@_);
}

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

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

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

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

sub SCALAR {
    my ( $self ) = @_;
    return $self->decorated->count;
}

sub FIRSTKEY {
    my ( $self ) = @_;
    @{ $self->iterator } = $self->decorated->names;
    return shift @{ $self->iterator };
}

sub NEXTKEY {
    my ( $self, $last ) = @_;
    return shift @{ $self->iterator };
}

1;

__END__