File Coverage

blib/lib/Tie/Simple.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	36	36	100.0

package Tie::Simple;
$Tie::Simple::VERSION = '1.04';
use strict;
use warnings;

use Tie::Simple::Scalar;
use Tie::Simple::Array;
use Tie::Simple::Hash;
use Tie::Simple::Handle;

# ABSTRACT: Variable ties made easier: much, much, much easier...


sub TIESCALAR {
    my ($class, $data, %subs) = @_;
    bless { data => $data, subs => \%subs }, 'Tie::Simple::Scalar';
}

sub TIEARRAY {
    my ($class, $data, %subs) = @_;
    bless { data => $data, subs => \%subs }, 'Tie::Simple::Array';
}

sub TIEHASH {
    my ($class, $data, %subs) = @_;
    bless { data => $data, subs => \%subs }, 'Tie::Simple::Hash';
}

sub TIEHANDLE {
    my ($class, $data, %subs) = @_;
    bless { data => $data, subs => \%subs }, 'Tie::Simple::Handle';
}


1

__END__