2 package Module::Install::Base;
10 # Suspend handler for "redefined" warnings
12 my $w = $SIG{__WARN__};
13 $SIG{__WARN__} = sub { $w };
20 unless ( defined &{"${class}::call"} ) {
21 *{"${class}::call"} = sub { shift->_top->call(@_) };
23 unless ( defined &{"${class}::load"} ) {
24 *{"${class}::load"} = sub { shift->_top->load(@_) };
33 my $func = eval { shift->_top->autoload } or return;
48 Module::Install::Base::FakeAdmin->new;
54 $_[0]->admin->VERSION;
59 package Module::Install::Base::FakeAdmin;
64 $fake ||= bless(\@_, $_[0]);
71 # Restore warning handler
73 $SIG{__WARN__} = $SIG{__WARN__}->();