File Coverage

blib/lib/LV/Backend/Tie.pm

Criterion	Covered	Total	%
statement	20	27	74.0
branch	1	2	50.0
condition	1	7	14.2
subroutine	7	9	77.7
pod	0	1	0.0
total	29	46	63.0

use 5.006;
use strict;
use warnings;

package LV::Backend::Tie;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.006';

sub lvalue :lvalue
{
	my %args = @_;
	tie(my $var, 'LV::Backend::Tie::TiedScalar', $args{get}, $args{set});
	$var;
}

package LV::Backend::Tie::TiedScalar;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.006';
our @CARP_NOT  = qw( LV LV::Backend::Tie );

sub TIESCALAR
{
	my $class = shift;
	my ($get, $set) = @_;

	unless ($set && $get)
	{
		my $caller = (caller(2))[3];
		$get ||= sub { require Carp; Carp::croak("$caller is writeonly") };
		$set ||= sub { require Carp; Carp::croak("$caller is readonly") };
	}

	bless [$get, $set] => $class;
}

sub FETCH
{
	&{shift->[0]};
}

sub STORE
{
	&{shift->[1]};
}

1;