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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
package Dist::Zilla::Plugin::MinimumPerlFast;
$Dist::Zilla::Plugin::MinimumPerlFast::VERSION = '0.005';
use strict;
use warnings;
use Moose;
use Carp 'croak';
use MooseX::Types::Perl 0.101340 qw( StrictVersionStr );
use Perl::MinimumVersion::Fast;
use List::Util qw/max/;
with(
'Dist::Zilla::Role::PrereqSource' => { -version => '4.102345' },
'Dist::Zilla::Role::FileFinderUser' => {
finder_arg_names => [ 'configure_finder' ],
method => 'found_configure',
default_finders => [ ':IncModules' ]
},
'Dist::Zilla::Role::FileFinderUser' => {
finder_arg_names => [ 'runtime_finder' ],
method => 'found_runtime',
default_finders => [ ':InstallModules', ':ExecFiles' ]
},
'Dist::Zilla::Role::FileFinderUser' => {
finder_arg_names => [ 'test_finder' ],
method => 'found_tests',
default_finders => [ ':TestFiles' ]
},
);
has version => (
is => 'ro',
lazy => 1,
isa => StrictVersionStr,
builder => '_build_version',
);
has default_version => (
is => 'ro',
lazy => 1,
isa => StrictVersionStr,
default => '5.008'
);
sub _build_version {
my $self = shift;
my @files = ( @{ $self->found_runtime }, @{ $self->found_configure }, grep { /\.(t|pm)$/ } @{ $self->found_tests } );
return max($self->default_version, map { Perl::MinimumVersion::Fast->new(\$_->content)->minimum_version->numify } @files);
}
sub register_prereqs {
my $self = shift;
$self->zilla->register_prereqs({ phase => 'runtime' }, perl => $self->version);
return;
}
no Moose;
1;
# ABSTRACT: Quickly detects the minimum version of Perl required for your dist
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::MinimumPerlFast - Quickly detects the minimum version of Perl required for your dist
=head1 VERSION
version 0.005
=head1 DESCRIPTION
This plugin uses L<Perl::MinimumVersion::Fast> to automatically find the minimum version of Perl required for your dist and adds it to the prereqs.
# In your dist.ini:
[MinimumPerlFast]
This plugin will search for files matching C</\.(t|pl|pm)$/i> in the C<lib/>, C<bin/>, and C<t/> directories.
=head1 ATTRIBUTES
=head2 version
The minimum version of perl for this module. Determining this is the reason for existence of this module, but if necessary this can easily be overridden.
=head2 default_version
The minimum version that is used if no minimum can be detected. By default it's C<5.008> because that's the oldest that C<Perl::MinimumVersion::Fast> can detect.
=head1 SEE ALSO
Dist::Zilla
=head1 AUTHOR
Leon Timmermans <leont@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Leon Timmermans.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
