use Sub::Installer;
use Test::More 'no_plan';
use warnings;
my $sub_ref = main->install_sub({ ok1 => \&ok, ok2 => \&is });
ok1(1 => 'first installed sub runs');
ok2(2,2 => 'second installed sub runs');
$SIG{__WARN__}
= sub { ok 0 => "warned unexpected: @_" if $_[0] =~ /redefined/ };
$sub_ref = main->reinstall_sub({ ok1 => \&is, ok2 => \&ok });
ok1(2,2 => 'first reinstalled sub runs');
ok2(2 => 'second reinstalled sub runs');