[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Scalar.pm

package DBM::Deep::Scalar;

use strict;

use base 'DBM::Deep';

sub _get_self {
    eval { local $SIG{'__DIE__'}; tied( ${$_[0]} ) } || $_[0]
}

sub TIESCALAR {
    ##
    # Tied hash constructor method, called by Perl's tie() function.
    ##
    my $class = shift;
    my $args = $class->_get_args( @_ );
    
    $args->{type} = $class->TYPE_SCALAR;

    return $class->_init($args);
}

1;
__END__
Commit	Line	Data
df9a659d	1	package DBM::Deep::Scalar;
	2
	3	use strict;
	4
	5	use base 'DBM::Deep';
	6
	7	sub _get_self {
	8	eval { local $SIG{'__DIE__'}; tied( ${$_[0]} ) } \|\| $_[0]
	9	}
	10
	11	sub TIESCALAR {
	12	##
	13	# Tied hash constructor method, called by Perl's tie() function.
	14	##
	15	my $class = shift;
	16	my $args = $class->_get_args( @_ );
	17
	18	$args->{type} = $class->TYPE_SCALAR;
	19
	20	return $class->_init($args);
	21	}
	22
	23	1;
	24	__END__