1 package DBM::Deep::Scalar;
8 eval { local $SIG{'__DIE__'}; tied( ${$_[0]} ) } || $_[0]
13 # Tied hash constructor method, called by Perl's tie() function.
16 my $args = $class->_get_args( @_ );
18 $args->{type} = $class->TYPE_SCALAR;
20 return $class->_init($args);