Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

TOMYHERO / Net-Twitter-Diff-0.12 / inc / Module / Install / Base.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78

              
#line 1
package Module::Install::Base;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
        $VERSION = '0.92';
}
# 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