AnyEvent-GDB
view release on metacpan or search on metacpan
Carp::croak $results->{msg}
if $class eq "error";
wantarray ? ($results, $console) : $results
}
sub event {
my ($self, $event, @args) = @_;
# if ($self->{verbose}) {
# use Data::Dumper;
# print Data::Dumper
# ->new ([[$event, @args]])
# ->Pair ("=>")
# ->Useqq (1)
# ->Indent (0)
# ->Terse (1)
# ->Quotekeys (0)
# ->Sortkeys (1)
# ->Dump,
# "\n";
# }
( run in 0.284 second using v1.01-cache-2.11-cpan-4d50c553e7e )