use LWP::RobotUA   qw( );
use WWW::Mechanize qw( );

BEGIN {
   package WWW::Mechanize;
   our @ISA;
   @ISA = (
       'LWP::RobotUA',
       ( grep $_ ne 'LWP::UserAgent' && $_ ne 'LWP::RobotUA', @ISA ),
   );
}