Module/Install/Base.pm

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

$VERSION = '0.76';

# 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;
}

#line 101

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 146
1	dpavlin	34	#line 1
2			package Module::Install::Base;
3
4	dpavlin	52	$VERSION = '0.76';
5	dpavlin	34
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	dpavlin	52	#line 101
49
50	dpavlin	34	sub is_admin {
51			$_[0]->admin->VERSION;
52			}
53
54			sub DESTROY {}
55
56			package Module::Install::Base::FakeAdmin;
57
58			my $Fake;
59			sub new { $Fake \|\|= bless(\@_, $_[0]) }
60
61			sub AUTOLOAD {}
62
63			sub DESTROY {}
64
65			# Restore warning handler
66			BEGIN {
67			$SIG{__WARN__} = $SIG{__WARN__}->();
68			}
69
70			1;
71
72	dpavlin	52	#line 146