File: AuthorRequires.pm

package info (click to toggle)
libmodule-install-authorrequires-perl 0.02-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 136 kB
  • sloc: perl: 1,129; makefile: 2
file content (27 lines) | stat: -rw-r--r-- 490 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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;