+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);
+}
+