Help for this page

Select Code to Download


  1. or download this
    package MyMech;
use base qw(WWW::Mechanize);
...
    my $self = shift or die $!;
    $self->SUPER::get(@_);
}
  2. or download this
    my $mech = MyMech->new;
$mech->get("http://google.com/");
print $mech->title."\n";
  3. or download this
    my $mech = MyMech->new;
$mech->get("http://google.com/");
print $mech->title."\n" if $mech->success;