+ my $is_dev = $version =~ /_/;
+ my $has_v = $version =~ s/^v//;
+
+ for ($version) {
+ y/_-//d;
+ s/^\.*//;
+ s/\.*\z//;
+ s/\.+/./g;
+ }
+
+ my $dots = $version =~ y/\.//;
+
+ my @parts;
+ if ($has_v or $dots >= 2) {
+ @parts = split /\./, $version;
+ } else {
+ ($parts[0], my $subversion) = split /\./, $version, 2;
+ $subversion = '0' unless defined $subversion;
+ my $sublen = length $subversion;
+ if ($sublen < 6) {
+ $subversion .= '0' x (6 - $sublen);
+ } else {
+ my $pad = $sublen % 3;
+ $subversion .= '0' x (3 - $pad) if $pad;
+ }
+ push @parts, $subversion =~ /(...)/g;
+ }
+
+ for my $i (0 .. $#parts) {
+ next if $no_strip[$i];
+ $parts[$i] =~ s/^0+([^0]|0\z)/$1/;
+ }
+ $version = join '.', @parts;
+
+ $version .= '_rc' if $is_dev;
+
+ return $version;
+};
+
+my $default_but_ignore_v = sub {
+ my ($version) = @_;
+
+ $version =~ s/^v//;
+
+ return $default_mapping->($version);
+};
+
+my $default_but_no_strip_1 = sub {
+ return $default_mapping->($_[0], 0, 1);
+};
+
+my $default_but_no_strip_2 = sub {
+ return $default_mapping->($_[0], 0, 1, 1);
+};
+
+my $insert_dot_every = sub {
+ my ($version, $step, $strip) = @_;
+
+ my $is_dev = $version =~ /_/;
+
+ for ($version) {
+ s/^v//;
+ y/_-//d;
+ s/^\.*//;
+ s/\.*\z//;
+ s/\.+/./g;
+ }
+
+ my @parts;
+ ($parts[0], my $subversion) = split /\./, $version, 2;
+ $subversion =~ s/\.//g;
+ my $pat = sprintf '.{1,%d}', $step || 1;
+ push @parts, $subversion =~ /($pat)/g;
+
+ if ($strip) {
+ s/^0+([^0]|0\z)/$1/ for @parts;
+ }
+ $version = join '.', @parts;