use Test::More;
-use Carp qw/croak/;
-use Variable::Magic qw/wizard/;
+use Carp qw<croak>;
+use Variable::Magic qw<wizard>;
-use base qw/Exporter/;
+use base qw<Exporter>;
-our @EXPORT = qw/init_watcher watch/;
+our @EXPORT = qw<init_watcher watch>;
sub _types {
my $t = shift;
my @ret;
local %mg = ();
local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
- if (defined $want and not $want) { # scalar context
+ local $@;
+ if (not defined $want) { # void context
+ eval { $code->() };
+ } elsif (not $want) { # scalar context
$ret[0] = eval { $code->() };
} else {
@ret = eval { $code->() };