{ my $called;
  WWW::Mechanize->reflect->addSlot(get => sub {
    $called++;
  });
  ok( $shell->foo() );
  is( $called, 1, '$shell->agent->get was called one time');
}