File Coverage

blib/lib/DWH_File/Subscript/Wired.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	1	2	50.0
condition	1	3	33.3
subroutine	9	10	90.0
pod	0	4	0.0
total	38	47	80.8

package DWH_File::Subscript::Wired;

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

use DWH_File::Subscript;
use DWH_File::Slot;

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

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

sub from_input {
    my ( $this, $owner, $actual ) = @_;
    defined $actual or $actual = '';
    return $this->new( $owner, DWH_File::Value::Factory->
		               from_input( $owner->{ kernel }, $actual ) );
}

sub to_string {
    return pack( "L", $_[ 0 ]->{ owner }{ id } ) . $_[ 0 ]->{ value };
}

sub actual {
    return $_[ 0 ]->{ value }->actual_value;
}

1;

__END__