Module/Install/Base.pm

#line 1
package Module::Install::Base;

$VERSION = '0.61';

# Suspend handler for "redefined" warnings
BEGIN {
        my $w = $SIG{__WARN__};
        $SIG{__WARN__} = sub { $w };
}

### This is the ONLY module that shouldn't have strict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\::$method"} = sub {
            shift()->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless( \%args, $class );
}

#line 61

sub AUTOLOAD {
    my $self = shift;
    local $@;
    my $autoload = eval { $self->_top->autoload } or return;
    goto &$autoload;
}

#line 76

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

#line 89

sub admin {
    $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new;
}

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 138
1	dpavlin	1	#line 1
2			package Module::Install::Base;
3
4			$VERSION = '0.61';
5
6			# Suspend handler for "redefined" warnings
7			BEGIN {
8			my $w = $SIG{__WARN__};
9			$SIG{__WARN__} = sub { $w };
10			}
11
12			### This is the ONLY module that shouldn't have strict on
13			# use strict;
14
15			#line 41
16
17			sub new {
18			my ($class, %args) = @_;
19
20			foreach my $method ( qw(call load) ) {
21			*{"$class\::$method"} = sub {
22			shift()->_top->$method(@_);
23			} unless defined &{"$class\::$method"};
24			}
25
26			bless( \%args, $class );
27			}
28
29			#line 61
30
31			sub AUTOLOAD {
32			my $self = shift;
33			local $@;
34			my $autoload = eval { $self->_top->autoload } or return;
35			goto &$autoload;
36			}
37
38			#line 76
39
40			sub _top { $_[0]->{_top} }
41
42			#line 89
43
44			sub admin {
45			$_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new;
46			}
47
48			sub is_admin {
49			$_[0]->admin->VERSION;
50			}
51
52			sub DESTROY {}
53
54			package Module::Install::Base::FakeAdmin;
55
56			my $Fake;
57			sub new { $Fake \|\|= bless(\@_, $_[0]) }
58
59			sub AUTOLOAD {}
60
61			sub DESTROY {}
62
63			# Restore warning handler
64			BEGIN {
65			$SIG{__WARN__} = $SIG{__WARN__}->();
66			}
67
68			1;
69
70			#line 138