File Coverage

blib/lib/reform/Property.pm

Criterion	Covered	Total	%
statement	3	16	18.7
branch	0	4	0.0
condition			n/a
subroutine	1	4	25.0
pod			n/a
total	4	24	16.6

# reform::Property.pm
# Binds a scalar (typically an instance field) to getter
# and setter methods.
#
# Written by Henning Koch .

package reform::Property;

use strict;

# this is the constructor for scalar ties
sub TIESCALAR {
	my ($class, $object, $field) = @_;
	my $self = { object => $object,
	             field  => $field };
	bless($self, $class);
	$self;
}

# this intercepts read accesses
sub FETCH
{
	my ($self) = @_;
	my $getter = "\$self->{object}->get_" . $self->{field} . "()";
	# print "$getter\n";
	my $re = eval $getter;
	$@ and die "Error performing $getter: $@";
	$re;
}

# this intercepts write accesses
sub STORE
{
	my ($self, $value) = @_;
	my $setter = "\$self->{object}->set_" . $self->{field} . "(\$value)";
	# print "$setter\n";
	eval $setter;
	$@ and die "Error performing $setter: $@";
}

1;