File Coverage

blib/lib/DWH_File/Tie/Array/Node.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	3	0.0
total	35	40	87.5

package DWH_File::Tie::Array::Node;

use warnings;
use strict;
use vars qw( @ISA $VERSION );
use overload
    '""' => \&to_string,
    fallback => 1;

use DWH_File::Slot;

@ISA = qw( DWH_File::Slot );
$VERSION = 0.01;

sub new {
    my ( $this ) = @_;
    my $class = ref( $this ) || $this;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub from_stored {
    my ( $this, $kernel, $data, $subscript ) = @_;
    my $self = $this->new;
    $self->{ value } = DWH_File::Value::Factory->from_stored( $kernel, $data );
    $self->{ subscript } = $subscript;
    return $self;
}

sub to_string { "$_[ 0 ]->{ value }" }

1;

__END__