File Coverage

blib/lib/DWH_File/Work.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	34	37	91.8

package DWH_File::Work;

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

use DWH_File::Kernel;
use DWH_File::Tie::Hash;

@ISA = qw( DWH_File::Tie::Hash );
$VERSION = 0.01;

sub TIEHASH {
    my $class = shift;
    my $kernel = DWH_File::Kernel->new( @_ );
    my $self = delete $kernel->{ work };
    $kernel->{ cache }->decache( $self );
    return $self;
}

sub tie_reference {
    my $this = shift;
    $_[ 5 ] = 'DWH_File::Tie::Hash';
    return $this->SUPER::tie_reference( @_ );
}

sub wipe {
    if ( $_[ 0 ]->{ kernel }{ alive } ) {
	$_[ 0 ]->{ kernel }->wipe;
    }
}

1;

__END__