/[XML-Feed]/inc/Module/Install/Base.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /inc/Module/Install/Base.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations)
Sun Mar 16 19:47:49 2008 UTC (16 years ago) by dpavlin
File size: 1053 byte(s)
import XML::Feed 0.12 from CPAN

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

  ViewVC Help
Powered by ViewVC 1.1.26