← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/liblocale-maketext-fuzzy-perl/jaunty

« back to all changes in this revision

Viewing changes to inc/Module/Install/Base.pm

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann, gregor herrmann, Ansgar Burchardt
  • Date: 2008-08-09 18:47:20 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20080809184720-hi5s9ok2mielrzy9
Tags: 0.10-1
[ gregor herrmann ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
  field (source stanza); Homepage field (source stanza). Removed: XS-
  Vcs-Svn fields.
* debian/rules: delete /usr/lib/perl5 only if it exists.
* debian/watch: use dist-based URL.

[ Ansgar Burchardt ]
* New upstream release
* Require perl (>= 5.8) as Build-Depend instead of perl (>= 5.6),
  perl (>= 5.8) | libtest-simple-perl as all perl version in the archive
  satisfy the former
* Drop liblocale-maketext-perl from Build-Depends (now part of Perl)
* Use ${perl:Depends} as dependency instead of giving perl version manually
* Convert debian/copyright to proposed machine-readable format
* Refresh rules for debhelper 7
* Bump Standards Version to 3.8.0 (No changes required)
* Add myself to Uploaders

[ gregor herrmann ]
* Remove uupdate from debian/watch, not helpful in our subversion
  environment.
* debian/copyright: complete stanza for debian/*.
* Add /me to Uploaders.
* Drop liblocale-maketext-perl from Depends too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/Base.pm
 
1
#line 1
 
2
package Module::Install::Base;
 
3
 
 
4
$VERSION = '0.67';
 
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