← Back to branch summary

~ubuntu-branches/ubuntu/raring/libpod-pom-perl/raring

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Jonathan Yu, Jonathan Yu, Ryan Niebur, Nathan Handler, gregor herrmann
  • Date: 2010-04-03 01:25:15 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20100403012515-653u8knzzvr3yge9
Tags: 0.27-1
[ Jonathan Yu ]
* New upstream release
* Standards-Version 3.8.4 (no changes)
* Use new short debhelper rules format
* Use new DEP5 copyright format
* Update to 3.0 (quilt) source format
* Rewrite control description
* Add myself to Uploaders
* Update copyright information
* Refresh POD whatis patch
* Do not install Pod::POM::Node::* manpages, as there is little
  documentation contained in them

[ Ryan Niebur ]
* New upstream release
* add copyright information for t/YAML/Tiny.pm
* drop build dependency on libyaml-perl
* fix my patch..
* forwarded patch
* remove my patch, it's applied upstream in verion 0.26
* Update ryan52's email address

[ Nathan Handler ]
* debian/watch: Update to ignore development releases.

[ gregor herrmann ]
* debian/copyright: add info about new third-party test file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/WriteAll.pm
 
1
#line 1
 
2
package Module::Install::WriteAll;
 
3
 
 
4
use strict;
 
5
use Module::Install::Base ();
 
6
 
 
7
use vars qw{$VERSION @ISA $ISCORE};
 
8
BEGIN {
 
9
        $VERSION = '0.91';;
 
10
        @ISA     = qw{Module::Install::Base};
 
11
        $ISCORE  = 1;
 
12
}
 
13
 
 
14
sub WriteAll {
 
15
        my $self = shift;
 
16
        my %args = (
 
17
                meta        => 1,
 
18
                sign        => 0,
 
19
                inline      => 0,
 
20
                check_nmake => 1,
 
21
                @_,
 
22
        );
 
23
 
 
24
        $self->sign(1)                if $args{sign};
 
25
        $self->admin->WriteAll(%args) if $self->is_admin;
 
26
 
 
27
        $self->check_nmake if $args{check_nmake};
 
28
        unless ( $self->makemaker_args->{PL_FILES} ) {
 
29
                $self->makemaker_args( PL_FILES => {} );
 
30
        }
 
31
 
 
32
        # Until ExtUtils::MakeMaker support MYMETA.yml, make sure
 
33
        # we clean it up properly ourself.
 
34
        $self->realclean_files('MYMETA.yml');
 
35
 
 
36
        if ( $args{inline} ) {
 
37
                $self->Inline->write;
 
38
        } else {
 
39
                $self->Makefile->write;
 
40
        }
 
41
 
 
42
        # The Makefile write process adds a couple of dependencies,
 
43
        # so write the META.yml files after the Makefile.
 
44
        if ( $args{meta} ) {
 
45
                $self->Meta->write;
 
46
        }
 
47
 
 
48
        # Experimental support for MYMETA
 
49
        if ( $ENV{X_MYMETA} ) {
 
50
                if ( $ENV{X_MYMETA} eq 'JSON' ) {
 
51
                        $self->Meta->write_mymeta_json;
 
52
                } else {
 
53
                        $self->Meta->write_mymeta_yaml;
 
54
                }
 
55
        }
 
56
 
 
57
        return 1;
 
58
}
 
59
 
 
60
1;