package WWW::Mechanize::NoRefs;
use base 'WWW::Mechanize';
use Carp;

sub content {
  my $self    = shift;
  my $content = $self->SUPER::content;
  if ($content =~ /([\w=:]+\(0x[a-fA-F0-9]+\))/) {
    carp "Possible stringified reference ($1) found in content";
  }
  return $content;
}

1;