lib/DBM/Deep/Scalar.pm

   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__