Rename of Scalar -> Ref
[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Ref.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__