Re: perl oo

From my poor knowledge on OO Perl, the first parameter of your call to 'new' is the name of the package or class.

If you write it this way:

sub new {
    my $class = @_;
    my $self = ( user    => $_[1],
                 session => 4556,
               );
    bless($self, $class);
    return $self;
  }
[download]

and it should do what you're looking for.

<kbd>--
PerlMonger::Paris(http => 'paris.pm.org');</kbd>

Comment on Re: perl oo Download Code

Replies are listed 'Best First'.

(Ovid - quick fix to your new constructor) Re(2): perl oo
by Ovid (Cardinal) on Jan 15, 2001 at 23:48 UTC

OeufMayo

my $class = @_;
[download]

@_

$class

@_

Also, you want curly braces '{}' in the "my $self =" line to create the reference to the anonymous hash. The following should work:

sub new {
    my ( $class ) = @_;
    my $self = { user    => $_[1],
                 session => 4556,
               };
    bless($self, $class);
    return $self;
}
[download]

$class

@_

Hope this helps!

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

[reply]
[d/l]
[select]


P is for Practical
	PerlMonks