view release on metacpan or  search on metacpan

t/TestImmediate.pm  view on Meta::CPAN

package TestImmediate;

use Exporter;
use base 'Exporter';

our @EXPORT = qw<begin xbegin>;

sub begin(&) {
    my ($code) = @_;
    $code->();
}

sub xbegin { }

use Call::Immediate qw<begin xbegin>;

1;