Add to_decimal and to_dotted_decimal methods

Author: Leont

CHANGES

@@ -4,6 +4,8 @@ This is not a complete list of changes.  See repository for full details:
 
     https://github.com/Perl/version.pm
 
+  * Add to_decimal and to_dotted_decimal methods
+
 0.9931
   * Fix definitions of LIKELY and UNLIKELY on older perls
 

lib/version.pm

@@ -28,6 +28,8 @@ our (@ISA, $STRICT, $LAX);
 	*version::new = \&version::vpp::new;
 	*version::numify = \&version::vpp::numify;
 	*version::normal = \&version::vpp::normal;
+	*version::to_decimal = \&version::vpp::to_decimal;
+	*version::to_dotted_decimal = \&version::vpp::to_dotted_decimal;
 	if ($] >= 5.009000) {
 	    no strict 'refs';
 	    *version::stringify = \&version::vpp::stringify;
@@ -47,6 +49,8 @@ our (@ISA, $STRICT, $LAX);
 	*version::new = \&version::vxs::new;
 	*version::numify = \&version::vxs::numify;
 	*version::normal = \&version::vxs::normal;
+	*version::to_decimal = \&version::vxs::to_decimal;
+	*version::to_dotted_decimal = \&version::vxs::to_dotted_decimal;
 	if ($] >= 5.009000) {
 	    no strict 'refs';
 	    *version::stringify = \&version::vxs::stringify;

lib/version.pod

@@ -271,6 +271,18 @@ Returns a value representing the object in a pure decimal.
  version->declare('v1.2')->numify;  # 1.002000
  version->parse('1.2')->numify;     # 1.200
 
+=head2 to_decimal
+
+This returns a new version object for the numified version, much like C<< version->parse($v->numify) >> would.
+
+ version->parse('v1.2')->to_decimal; # 1.002000
+
+=head2 to_dotted_decimal
+
+This returns a new version object for the normalized version, much like C<< version->parse($v->normal) >> would.
+
+ version->parse('1.002')->to_dotted_decimal; # v1.2.0
+
 =head2 stringify()
 
 Returns a string that is as close to the original representation as possible.

t/coretests.pm

@@ -633,6 +633,19 @@ SKIP: {
 	$v = $CLASS->new("1.02_003");
 	is $v->numify, '1.020030', 'Ignore underscores for numify';
     }
+
+    {
+	$v = $CLASS->parse("v1.2.3");
+	$v2 = $v->to_decimal;
+	isa_ok $v2, $CLASS;
+	is $v2, "1.002003";
+    }
+    {
+	$v = $CLASS->parse("1.002003");
+	$v2 = $v->to_dotted_decimal;
+	isa_ok $v2, $CLASS;
+	is "$v2", "v1.2.3";
+    }
 }
 
 1;

vperl/vpp.pm

@@ -775,6 +775,16 @@ sub stringify {
 	    : $self->numify;
 }
 
+sub to_decimal {
+    my ($self) = @_;
+    return ref($self)->new($self->numify);
+}
+
+sub to_dotted_decimal {
+    my ($self) = @_;
+    return ref($self)->new($self->normal);
+}
+
 sub vcmp {
     my ($left,$right,$swap) = @_;
     die "Usage: version::vcmp(lobj, robj, ...)" if @_ < 2;

vutil/vxs.inc

@@ -46,6 +46,8 @@
     {VXS_CLASS "::(0+", VXSp(version_numify), VXSXSDP(NULL)},
     {VXS_CLASS "::numify", VXSp(version_numify), VXSXSDP(NULL)},
     {VXS_CLASS "::normal", VXSp(version_normal), VXSXSDP(NULL)},
+    {VXS_CLASS "::to_decimal", VXSp(version_to_decimal), VXSXSDP(NULL)},
+    {VXS_CLASS "::to_dotted_decimal", VXSp(version_to_dotted_decimal), VXSXSDP(NULL)},
     {VXS_CLASS "::(cmp", VXSp(version_vcmp), VXSXSDP(NULL)},
     {VXS_CLASS "::(<=>", VXSp(version_vcmp), VXSXSDP(NULL)},
 #  ifdef PERL_CORE
@@ -296,6 +298,37 @@ VXS(version_normal)
      }
 }
 
+VXS(version_to_decimal)
+{
+     dXSARGS;
+     SV* self = ST(0);
+     if (items < 1)
+	 croak_xs_usage(cv, "lobj, ...");
+     SP -= items;
+     {
+	  SV *lobj, *rv;
+	  VTYPECHECK(lobj, self, "lobj");
+          rv = NEW_VERSION(VNUMIFY(lobj));
+	  VXS_RETURN_M_SV(sv_bless(rv, SvSTASH(SvRV(self))));
+     }
+}
+
+VXS(version_to_dotted_decimal)
+{
+     dXSARGS;
+     SV* self = ST(0);
+     if (items != 1)
+	 croak_xs_usage(cv, "ver");
+     SP -= items;
+     {
+	  SV *lobj, *rv;
+	  VTYPECHECK(lobj, self, "lobj");
+          rv = NEW_VERSION(VNORMAL(lobj));
+          sv_bless(rv, SvSTASH(SvRV(self)));
+	  VXS_RETURN_M_SV(sv_bless(rv, SvSTASH(SvRV(self))));
+     }
+}
+
 VXS(version_vcmp)
 {
      dXSARGS;