1use Sub::Install; 2use Test::More 'no_plan'; 3 4use strict; 5use warnings; 6 7BEGIN { use_ok("Sub::Install"); } 8 9my $code = sub { return 'FOO' }; 10 11bless $code, "Sub::Install::Bogus"; 12 13Sub::Install::install_sub({ 14 code => $code, 15 as => 'code', 16}); 17 18is(code(), "FOO", "installed sub is OK"); 19 20