Help for this page
#!/usr/bin/perl -w use strict; ... sub Tie::TIESCALAR { return bless \$_[1] => $_[0] } sub Tie::FETCH { return "${$_[0]} is still tied at line " . (caller()) +[2] } sub Tie::STORE { ( ${$_[0]} = $_[1] ) =~ s/ is still tied at line \d+$ +// }
1 is still tied at line 7 2 is still tied at line 10 1 is still tied at line 12
www.com | www.net | www.org
No recent polls found