Select Code to Download

use WWW::Mechanize;
use Test::More qw /no_plan/;
...
);
ok($mech->status == 400,'empty searches should have a 400 status');
ok($mech->content =~ /no search term/i, 'and a chide about having no s
+earch term');

sub chide {
    my $self = shift;
...
    $self->process;
    confess $chide_msg if $self->exit_on_error;
}