File Coverage

blib/lib/DWH_File/Tie/Foreign.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch			n/a
condition	3	6	50.0
subroutine	10	11	90.9
pod	0	5	0.0
total	39	49	79.5

package DWH_File::Tie::Foreign;

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

use DWH_File::Value;
use DWH_File::Reference;

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

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

sub to_string {
    $_[ 0 ]->{ string_val } ||= $_[ 0 ]->{ client }->
                                reference_string( $_[ 0 ]->{ value } );
}

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

sub bump_refcount { $_[ 0 ]->{ value }->bump_refcount }

sub cut_refcount { $_[ 0 ]->{ value }->cut_refcount }

1;

__END__