source: perl/modules/Twitter/inc/Module/Install/Base.pm @ d27ecf3

#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