Problem with inheritance

kevinp has asked for the wisdom of the Perl Monks concerning the following question:

I am starting with object oriented Perl and have hit a problem:

I have two files (taken and tweaked from a book on LWP) - see below.

What I am trying to do is inherit from LWP::Simple but I get the error:

Can't locate object method "new" via package "Browser" at ./EspaceBrow
+ser.pl line 17.
[download]

Both files are in the same directory and @INC shows the directory when printed. Why is it failing to inherit new from LWP?

Browser.pm

package Browser;

use LWP::Simple;
@ISA = "LWP::Simple";

sub notnew {
    my $class = shift;
    my $self  = { };
    return bless $self, $class;
} 

sub name {
    my $self = shift;
    $self->{NAME} = shift if @_;
    return $self->{NAME};
}

sub age {
    my $self = shift;
    $self->{AGE} = shift if @_;
    return $self->{AGE};
}

1;
[download]

EspaceBrowser.pl

#! /usr/bin/perl -w

use strict;
use warnings;

use FindBin;
use lib $FindBin::Bin;
use Browser;

foreach my $x ( @INC ) {
    print "$x\n";
}


my $dude = Browser->new();
$dude->name("Jason");
$dude->age(23);
printf "%s is age %d.\n", $dude->name, $dude->age;
[download]

Edit: g0n - code tags

Comment on Problem with inheritance Select or Download Code

Replies are listed 'Best First'.
Re: Problem with inheritance by Sidhekin (Priest) on Oct 24, 2007 at 20:52 UTC
LWP::Simple is not an object oriented module. It's not a class, so conceptually impossible to subclass. :) You may want to subclass LWP::UserAgent instead? LWP::Simple is implemented using an object of this class. ... and if you want, you may even trick LWP::Simple into using your object instead ... just assign a properly instanciated and initialized object to `$LWP::Simple::ua` before requiring LWP::Simple! (Disclaimer: Probably evil.) `print "Just another Perl ${\(trickster and hacker)},"` The Sidhekin proves Sidhe did it!	[reply] [d/l] [select]
Re: Problem with inheritance by gamache (Friar) on Oct 24, 2007 at 20:53 UTC
I did not know that `@a = "FOO";` and `@a = ("FOO");` were equivalent! What a country.	[reply]
Re^2: Problem with inheritance by ikegami (Patriarch) on Oct 24, 2007 at 21:07 UTC
Parens are usually used because "`=`" has higher precedence than "`,`". `>perl -MO=Deparse,-p -e "@a = 1, 2" ((@a = 1), '???'); -e syntax OK >perl -MO=Deparse,-p -e "@a = (1, 2)" (@a = (1, 2)); -e syntax OK` [download] (`'???'` is the `2` in void context being optimized away.)	[reply] [d/l] [select]
Re^2: Problem with inheritance by kevinp (Novice) on Oct 24, 2007 at 21:05 UTC
Thanks - Changed to UserAgent now everything works.	[reply]


Syntactic Confectionery Delight
	PerlMonks