view release on metacpan or  search on metacpan

t/MyMech.pm  view on Meta::CPAN

1;

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

sub update_html {
  my ($self, $html) = @_;
  $self->WWW::Mechanize::update_html( $html );
}