File Coverage

blib/lib/DWH_File.pm

Criterion	Covered	Total	%
statement	35	41	85.3
branch	3	6	50.0
condition	1	3	33.3
subroutine	12	15	80.0
pod			n/a
total	51	65	78.4

package DWH_File;

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

use DWH_File::Work;

$VERSION = 0.24;

BEGIN { defined( $default_dbm ) or $default_dbm = 'AnyDBM_File' }

sub import
{
    my $class = shift;
    ( $default_dbm ) = @_;
    unless ( defined( $default_dbm ) and $default_dbm ) {
	$default_dbm = 'AnyDBM_File';
    }
    require "$default_dbm.pm" or die "Couldn't use $default_dbm.pm: $!";
}

sub TIEHASH {
    my $class = shift;

    my $worker = DWH_File::Work->TIEHASH( @_ );
    my $self = \$worker;
    bless $self, $class;
    return $self;
}

sub FETCH { ${ $_[ 0 ] }->FETCH( $_[ 1 ] ) }

sub STORE { ${ $_[ 0 ] }->STORE( @_[ 1, 2 ] ) }

sub FIRSTKEY { ${ $_[ 0 ] }->FIRSTKEY }

sub NEXTKEY { ${ $_[ 0 ] }->NEXTKEY( $_[ 1 ] ) }

sub EXISTS { ${ $_[ 0 ] }->EXISTS( $_[ 1 ] ) }

sub DELETE { ${ $_[ 0 ] }->DELETE( $_[ 1 ] ) }

sub CLEAR { ${ $_[ 0 ] }->CLEAR }

sub DESTROY {
    ${ $_[ 0 ] }->wipe;
    ${ $_[ 0 ] } = undef;
}

1;

__END__