| Subject: | Missing mouse_up_ok method |
Hello
Test::WWW::WEbkit is missing mouse_up_ok method.
I've noticed that Test::WWW::WebKit could be made shorter by creating method dynamically like:
foreach my $method (qw/mouse_up_down mouse_up etc/) {
my $ok_method = $method.'_ok';
*{$ok_method} = sub {
my ($self) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
$self->refresh;
ok(1, "$ok_method()");
} ;
}
HTH