Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Module / Install / Admin / AuthorRequires.pm

diff --git a/local-lib5/lib/perl5/Module/Install/Admin/AuthorRequires.pm b/local-lib5/lib/perl5/Module/Install/Admin/AuthorRequires.pm
new file mode 100644 (file)
index 0000000..a08fecf
--- /dev/null
+++ b/local-lib5/lib/perl5/Module/Install/Admin/AuthorRequires.pm
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+package Module::Install::Admin::AuthorRequires;
+
+use base 'Module::Install::Base';
+
+# cargo cult
+BEGIN {
+    our $VERSION = '0.02';
+    our $ISCORE  = 1;
+}
+
+sub author_requires {
+    my $self = shift;
+
+    my @err;
+    for my $dep (@_) {
+        my ($mod, $ver) = @{ $dep };
+        push @err, "Can't find author dependency ${mod}" . ($ver ? " version ${ver}" : '')
+            unless $self->can_use($mod => $ver);
+    }
+
+    die join "\n" => @err if @err;
+}
+
+1;