in reply to Re^3: OUR declaration
in thread OUR declaration

The mod_perl Reference recommends exactly that.

While there are differences between using my and our for global variables, in my experience they don't come into play in most scripts unless they're run under something which turns all your subroutines into inner subroutine, like mod_perl. That's why I suggested using our for global variables, since it works the same in both scenarios.

My understanding is the our was a right and proper way to declare package globals.

Are there problems you're aware of with using our for package globals under mod_perl or anywhere else?


--
sgifford's Web page

Replies are listed 'Best First'.
Re^5: OUR declaration
by perrin (Chancellor) on Sep 25, 2006 at 15:34 UTC

    I'll bring this up on the mod_perl dev list. I don't think we should advise people to use such a crazy construct.

    The problems people encounter with ModPerl::Registry are usually not caused by inner subroutines, but rather by closures. The closures were always there, but were never noticed before in a non-persistent environment. Consider this:

    my $q = CGI->new;
show_name();

sub show_name {
    print $q->param('name');
}

    [download]

    This code will break when run in mod_perl because it forms a closure around $q, making it a private variable for the show_name() sub after compilation.

    This problem can be fixed by making $q an our variable, but that's a poor programming practice, giving $q a large scope and persistence that it should not have. The correct fix is to pass the variables that the sub requires:

    my $q = CGI->new;
show_name($q);

sub show_name {
    my $q = shift;
    print $q->param('name');
}

    [download]
[reply]
[d/l]
[select]
      Replacing my $q with local our $q would give $q neither a larger scope nor a greater persistance, and would also solve the problem.
[reply]
[d/l]
[select]
        Sure it does. The $q created here is persistent and is part of the symbol table. It will get reset to the value it had before the local was applied to it at the end of the file, but it's still a global variable. Are you really saying you don't think passing variables to subs is a cleaner solution?
[reply]

In Section Seekers of Perl Wisdom