File Coverage

blib/lib/Tie/Hash/Create.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	23	25	92.0

package slot;

## These constant may be changed  but in accordance with the positions
## of the object created in the constuructors of class Tie::Hash::Create
## defined here and must hold for any class derived from Tie::Hash::Create
## too as e.g. Tie::Hash::KeysMask and Tie::Hash::Modulate.

 sub HREF()     {1}
 # sub STATUS() {2}  # reserved
 # sub DEFAULT(){3}  # -> Modulate  (subclass)
 # sub KM()     {4}  # -> KeysMask

package Tie::Hash::Create;

use 5.008007;
our $VERSION = 0.01;
use strict;
no strict 'subs';
use Carp;

require Tie::Hash;
our @ISA = qw ( Tie::ExtraHash );

sub newHASH
{
    my $class = shift;
    my %Baby = ();
    my $to = tie %Baby,$class,@_;
    $to->[slot::HREF] = \%Baby;
}

sub c {$_[0]->[slot::HREF]} # content

1;
__END__