File Coverage

blib/lib/Tie/StorableDir/BackedScalar.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch			n/a
condition	0	3	0.0
subroutine	4	7	57.1
pod			n/a
total	16	32	50.0

package Tie::StorableDir::BackedScalar;

use 5.008;
use strict;
use warnings;

use base 'Tie::Scalar';

sub TIESCALAR {
	my ($class, $parent, $backing) = @_;
	$class = ref $class || $class;
	my $self = [$backing, $parent];
	bless $self, $class;
	return $self;
}

sub FETCH {
	my ($self) = @_;
	return $self->[1]->translate(${$self->[0]});
}

sub STORE {
	my ($self, $value) = @_;
	$self->[0] = $value;
}

1;