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(@_);
}

##</code><code>##

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

##</code><code>##

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