Nested subroutines and Scoping in Perl

by

Subroutines are stored in a global namespace at compile time. In your example b(); is short hand for main::b();. To limit visibility of a function to a scope you need to assign an anonymous subroutines to a variable.

Both named and anonymous subroutines can form closures, but since named subroutines are only compiled once if you nest them they don’t behave as many people expect.

use warnings;
sub one {
    my $var = shift;
    sub two {
        print "var: $var\n";
    }
}
one("test");
two();
one("fail");
two();
__END__
output:
Variable "$var" will not stay shared at -e line 5.
var: test
var: test

Nesting named subroutines is allowed in Perl but it’s almost certainly a sign that the code is doing someting incorrectly.

More Related Contents:

  1. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  2. When should I use the & to call a Perl subroutine?
  3. What is the difference between ‘my’ and ‘our’ in Perl?
  4. How should I use the “my” keyword in Perl?
  5. What does the function declaration “sub function($$)” mean?
  6. Local and Global variables in perl
  7. In Perl, how can I check from which module a given function was imported?
  8. How can i do this in perl, shortcut truthtable [closed]
  9. How to retrieve the values of required keys in Perl [closed]
  10. Perl: Meaning of double squared brackets after a string?
  11. What does this HTML::Parser() code do in Perl? [closed]
  12. Why use strict and warnings?
  13. Why does modern Perl avoid UTF-8 by default?
  14. How to access outer class from an inner class?
  15. What’s the difference between Perl’s backticks, system, and exec?
  16. How can I parse dates and convert time zones in Perl?
  17. Which one is good practice, a lexical filehandle or a typeglob?
  18. How do I tell if a variable has a numeric value in Perl?
  19. Perl memory usage profiling and leak detection?
  20. Global symbol requires explicit package name
  21. How do I include functions from another file in my Perl script?
  22. Use of ‘use utf8;’ gives me ‘Wide character in print’
  23. How can I interact with ClearCase from Perl?
  24. What reasons are there to prefer glob over readdir (or vice-versa) in Perl?
  25. How do I convert a date/time to epoch time (unix time/seconds since 1970) in Perl?
  26. What is the meaning of @_ in Perl?
  27. How do I list available methods on a given object or package in Perl?
  28. How can I calculate the number of days between two dates in Perl?
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment