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