package #
  MockTreeBuilder;

use base 'HTML::TreeBuilder';

sub new {
  my $self = shift->SUPER::new(@_);
  $self->{_element_class} = 'MockTreeBuilderEle';
  return $self;
}

$WWW::Mechanize::TreeBuilder::ELEMENT_CLASS_MAPPING{"@{[__PACKAGE__]}"} = 'MockTreeBuilderEle';

package #
  MockTreeBuilderEle;
$INC{'MockTreeBuilderEle.pm'}=1; # help stricter Moose checking
use base 'HTML::Element';

sub some_other_method { "I exist in " . Scalar::Util::blessed($_[0]) };



1;