Re: "my" variable $self

There seems to be some scoping confusion going on here. Please post a short (<30 lines) program that demonstrates this problem.

--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

Comment on Re: "my" variable $self

Replies are listed 'Best First'.
Re^2: "my" variable $self by Anonymous Monk on Nov 09, 2006 at 13:53 UTC
I appreciate any insight you may have. This is related to an earlier post regarding my sub error. Here is a simple script that re-creates the error using PerlApp: `use strict; use warnings; use WWW::Myspace; use Contextual::Return::Failure; my ($account, $password) = retrieve_acct_info(); my $myspace = WWW::Myspace->new($account,$password); sub retrieve_acct_info { my $account = 'email'; my $password = 'password'; return ($account, $password); }` [download] The error is: `"my" variable $self masks earlier declaration in same scope at test.pl + line 11, <DATA> line 21937.` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: "my" variable $self
by Anonymous Monk on Nov 09, 2006 at 13:53 UTC

my sub error

use strict;
use warnings;

use WWW::Myspace;
use Contextual::Return::Failure;

my ($account, $password) = retrieve_acct_info();

my $myspace = WWW::Myspace->new($account,$password);

sub retrieve_acct_info {

    my $account = 'email';
    my $password = 'password';

    return ($account, $password);
}
[download]

"my" variable $self masks earlier declaration in same scope at test.pl
+ line 11, <DATA> line 21937.
[download]

[reply]
[d/l]
[select]