blob: ab92a2e3335997e0ba926d37d6fd46e20e20d9d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!./perl
# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $
{
package SOMEPACK;
sub new { local($x); bless \$x }
sub fetch { warn "fetch @_\n"; ${$_[0]} }
sub store { warn "store @_\n"; ${$_[0]} = $_[1] }
sub DESTROY { warn "DESTROY @_\n" }
}
tie $h, SOMEPACK;
$h = 'bar';
print $h, "\n";
untie $h;
1;
|
