Can't locate object method "new" via package "Browser" at ./EspaceBrowser.pl line 17.
####
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;
####
#! /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;