File Coverage

lib/Tie/Parent.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch			n/a
condition	0	3	0.0
subroutine	4	6	66.6
pod			n/a
total	17	26	65.3

package Tie::Parent;

use strict;
use warnings;
use vars qw($VERSION);

$VERSION = '1.10';

sub TIESCALAR {
    my $class = shift;
    my ($obj, $field) = @_;
    my $this = {'obj' => $obj, 'field' => $field};
    bless $this, $class;
}

sub FETCH {
    my $this = shift;
    return $this->{'obj'}->{$this->{'field'}} ||
             $this->{'obj'}->{uc($this->{'field'})} ||
             $this->{'obj'}->{lc($this->{'field'})};
}

sub STORE {
    my ($this, $value) = @_;
    $this->{'obj'}->{$this->{'field'}} = $value;
}

1;

__END__