-sub _travis_perl_versions {
- my $self = shift;
-
- my $perl_version_target = Perl::Version->new(shift or die 'Missing target version');
- my $min_version = Perl::Version->new('5.14');
- my $min_version_build = Perl::Version->new($perl_version_target);
- $min_version_build->subversion(0);
-
- my @versions;
- my @versions_build;
-
- for my $v (qw{5.26 5.24 5.22 5.20 5.18 5.16 5.14 5.12 5.10 5.8}) {
- my $version = Perl::Version->new($v);
- push @versions, "$version" if $version >= $min_version_build && $version >= $min_version;
- push @versions_build, "$version" if $version >= $min_version_build;
- }
-
- my $perl_version = join(' ', @versions);
- my $perl_version_build = join(' ', @versions_build);
-
- return ($perl_version, $perl_version_build);
-}
-