|
use Sub::Install;
|
|
use Test::More 'no_plan';
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN { use_ok("Sub::Install"); }
|
|
|
|
my $code = sub { return 'FOO' };
|
|
|
|
bless $code, "Sub::Install::Bogus";
|
|
|
|
Sub::Install::install_sub({
|
|
code => $code,
|
|
as => 'code',
|
|
});
|
|
|
|
is(code(), "FOO", "installed sub is OK");
|
|
|