| changeset 6 | b879399517b8 |
| parent 4 | 0fc33e54b1c6 |
| 5:13aa73ea622a | 6:b879399517b8 |
|---|---|
1 package Scalar::LockRefType; |
1 package Scalar::LockRefType; |
2 |
|
3 use 5.010; |
|
2 use strict; |
4 use strict; |
3 use warnings; |
5 use warnings; |
4 use Carp; |
6 use Carp; |
5 |
7 |
6 our $VERSION = '0.02'; |
8 our $VERSION = '0.03'; |
7 |
9 |
8 sub TIESCALAR { |
10 sub TIESCALAR { |
9 my ($class, $type) = @_; |
11 my ($class, $type) = @_; |
10 return bless { |
12 return bless { |
11 value => undef, |
13 value => undef, |