Thanks for replying guys,

>See the docs regarding the autocheck option.

I just checked the doc and modified my code to turn it on, but it still does not work:

package MyMech;
use base qw(WWW::Mechanize);

sub new {
    my $class = shift or die $!;
    my $self  = $class->SUPER::new(
        autocheck => 1,
    );
    return bless $self, $class;
}

sub get {
    my $self = shift or die $!;
    $self->SUPER::get(@_);
}
[download]

>Does the superclass die on error?

Yeah, it dies when the server is not responding:

>Have you tried the $self->success() method?

Oh God it works... I changed the tester code from:

my $mech = MyMech->new;
$mech->get("http://google.com/");
print $mech->title."\n";
[download]

to:

my $mech = MyMech->new;
$mech->get("http://google.com/");
print $mech->title."\n" if $mech->success;
[download]

Now it displays the error code. Thank you so much...

But I don't get why it came to work by putting the if statement. In addition now it works only with 'autocheck' even though it didn't work before i put the if statement.

Anyway... Thank you guys so much, now I can move on :)