lib/Scalar/RefType.pm
changeset 2 54cabdf79181
parent 1 82e2b6a853a7
equal deleted inserted replaced
1:82e2b6a853a7 2:54cabdf79181
     1 package Scalar::RefType;
     1 package Scalar::RefType;
     2 use strict;
     2 use strict;
     3 use warnings;
     3 use warnings;
     4 use Carp;
     4 use Carp;
     5 
     5 
     6 our $VERSION = '0.01';
     6 our $VERSION = '0.02';
     7 
     7 
     8 sub TIESCALAR {
     8 sub TIESCALAR {
     9     my ($class, $type) = @_;
     9     my ($class, $type) = @_;
    10     return bless {
    10     return bless {
    11         value => undef,
    11         value => undef,