Searched refs:Watch (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dclosure.t585 # handy class: $x = Watch->new(\$foo,'bar')
587 sub Watch::new { bless [ $_[1], $_[2] ], $_[0] } subroutine
588 sub Watch::DESTROY { ${$_[0][0]} .= $_[0][1] } subroutine
595 my $x = Watch->new($_[0], '2');

Completed in 23 milliseconds