#line 1

package Module::Install::Base;

use strict 'vars';

use vars qw{$VERSION};

BEGIN {

	$VERSION = '0.91';

}

# Suspend handler for "redefined" warnings

BEGIN {

	my $w = $SIG{__WARN__};

	$SIG{__WARN__} = sub { $w };

}

#line 42

sub new {

	my $class = shift;

	unless ( defined &{"${class}::call"} ) {

		*{"${class}::call"} = sub { shift->_top->call(@_) };

	}

	unless ( defined &{"${class}::load"} ) {

		*{"${class}::load"} = sub { shift->_top->load(@_) };

	}

	bless { @_ }, $class;

}

#line 61

sub AUTOLOAD {

	local $@;

	my $func = eval { shift->_top->autoload } or return;

	goto &$func;

}

#line 75

sub _top {

	$_[0]->{_top};

}

#line 90

sub admin {

	$_[0]->_top->{admin}

	or

	Module::Install::Base::FakeAdmin->new;

}

#line 106

sub is_admin {

	$_[0]->admin->VERSION;

}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $fake;

sub new {

	$fake ||= bless(\@_, $_[0]);

}

sub AUTOLOAD {}

sub DESTROY {}

# Restore warning handler

BEGIN {

	$SIG{__WARN__} = $SIG{__WARN__}->();

}

1;

#line 154