1#line 1 "inc/Module/Install/Base.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Base.pm"
2package Module::Install::Base;
3
4#line 28
5
6sub new {
7    my ($class, %args) = @_;
8
9    foreach my $method (qw(call load)) {
10        *{"$class\::$method"} = sub {
11            +shift->_top->$method(@_);
12        } unless defined &{"$class\::$method"};
13    }
14
15    bless(\%args, $class);
16}
17
18#line 46
19
20sub AUTOLOAD {
21    my $self = shift;
22    goto &{$self->_top->autoload};
23}
24
25#line 57
26
27sub _top { $_[0]->{_top} }
28
29#line 68
30
31sub admin {
32    my $self = shift;
33    $self->_top->{admin} or Module::Install::Base::FakeAdmin->new;
34}
35
36sub is_admin {
37    my $self = shift;
38    $self->admin->VERSION;
39}
40
41sub DESTROY {}
42
43package Module::Install::Base::FakeAdmin;
44
45my $Fake;
46sub new { $Fake ||= bless(\@_, $_[0]) }
47sub AUTOLOAD {}
48sub DESTROY {}
49
501;
51
52__END__
53
54#line 112
55