Add the following packages libalgorithm-diff-perl libspiffy-perl libtext-diff-perl...

[pkg-perl] / deb-src / libspiffy-perl / libspiffy-perl-0.30 / inc / Module / Install / WriteAll.pm

diff --git a/deb-src/libspiffy-perl/libspiffy-perl-0.30/inc/Module/Install/WriteAll.pm b/deb-src/libspiffy-perl/libspiffy-perl-0.30/inc/Module/Install/WriteAll.pm
new file mode 100644 (file)
index 0000000..4d0dffd
--- /dev/null
+++ b/deb-src/libspiffy-perl/libspiffy-perl-0.30/inc/Module/Install/WriteAll.pm
@@ -0,0 +1,36 @@
+#line 1 "inc/Module/Install/WriteAll.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/WriteAll.pm"
+package Module::Install::WriteAll;
+use Module::Install::Base; @ISA = qw(Module::Install::Base);
+
+sub WriteAll {
+    my $self = shift;
+    my %args = (
+        meta        => 1,
+        sign        => 0,
+        inline      => 0,
+        check_nmake => 1,
+        @_
+    );
+
+    $self->sign(1) if $args{sign};
+    $self->Meta->write if $args{meta};
+    $self->admin->WriteAll(%args) if $self->is_admin;
+
+    if ($0 =~ /Build.PL$/i) {
+        $self->Build->write;
+    }
+    else {
+        $self->check_nmake if $args{check_nmake};
+        $self->makemaker_args( PL_FILES => {} )
+            unless $self->makemaker_args->{'PL_FILES'};
+
+        if ($args{inline}) {
+            $self->Inline->write;
+        }
+        else {
+            $self->Makefile->write;
+        }
+    }
+}
+
+1;