Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Detecting global $_ usage

by bikeNomad (Priest)
on Jul 13, 2001 at 19:00 UTC ( #96425=note: print w/replies, xml ) Need Help??


in reply to When is $_ local and when is it not?

There's a charming example in the Perl Cookbook that ties global $_ so you get diagnostics when $_ is used globally (modified to be able to carp instead of croak if you want):
# croak on global underscore usage: # no Underscore; # carp on global underscore usage: # no Underscore 'carp'; package Underscore; use Carp (); my $complain = \&Carp::croak; sub TIESCALAR { bless \(my $dummy) => shift } sub FETCH { $complain->("read access to \$_ forbidden") } sub STORE { $complain->("write access to \$_ forbidden") } sub unimport { tie($_, __PACKAGE__); $complain = \&Carp::carp if $_[1] eq 'carp'; } sub import { untie $_ } tie($_, __PACKAGE__) unless tied $_; 1;
And you save it as Underscore.pm and use it by just adding a no Underscore; or no Underscore 'croak'; . Or you can do it at the command line, of course, using perl -M-Underscore myprog.pl or perl -M-Underscore=carp myprog.pl

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://96425]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2016-09-29 06:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:







    Results (549 votes). Check out past polls.