#!perl
use strict;
use warnings;
use Test::More tests => 3;
use Sub::Current;
sub runcible {
is(eval { ROUTINE() }, \&runcible, "runcible");
}
runcible();
sub omega {
# eval("") is a special block context
ok(!defined eval q{ ROUTINE() }, "omega");
}
omega();
sub master {
is(do { ROUTINE() }, \&master, "master");
}
master();