Add tuple method

Author: Leont

CHANGES

@@ -5,6 +5,7 @@ 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
+  * Add tuple method
 
 0.9931
   * Fix definitions of LIKELY and UNLIKELY on older perls

lib/version.pm

@@ -30,6 +30,7 @@ our (@ISA, $STRICT, $LAX);
 	*version::normal = \&version::vpp::normal;
 	*version::to_decimal = \&version::vpp::to_decimal;
 	*version::to_dotted_decimal = \&version::vpp::to_dotted_decimal;
+	*version::tuple = \&version::vpp::tuple;
 	if ($] >= 5.009000) {
 	    no strict 'refs';
 	    *version::stringify = \&version::vpp::stringify;
@@ -51,6 +52,7 @@ our (@ISA, $STRICT, $LAX);
 	*version::normal = \&version::vxs::normal;
 	*version::to_decimal = \&version::vxs::to_decimal;
 	*version::to_dotted_decimal = \&version::vxs::to_dotted_decimal;
+	*version::tuple = \&version::vxs::tuple;
 	if ($] >= 5.009000) {
 	    no strict 'refs';
 	    *version::stringify = \&version::vxs::stringify;

lib/version.pod

@@ -283,6 +283,12 @@ This returns a new version object for the normalized version, much like C<< vers
 
  version->parse('1.002')->to_dotted_decimal; # v1.2.0
 
+=head2 tuple()
+
+This turns the components of the version into a list. E.g.
+
+ version->parse('1.2.3')->tuple; # (1, 2, 3)
+
 =head2 stringify()
 
 Returns a string that is as close to the original representation as possible.
@@ -294,6 +300,11 @@ a version object is interpolated into a string.
  version->parse('1.200')->stringify;     # 1.2
  version->parse(1.02_30)->stringify;     # 1.023
 
+=head2 tuple
+
+Returns an array of non-negative integers that is used for comparison purposes with
+other version objects.
+
 =head1 EXPORTED FUNCTIONS
 
 =head2 qv()

t/coretests.pm

@@ -49,6 +49,9 @@ sub BaseTests {
     $version = $CLASS->$method("v1.2.3_4");
     is ( "$version" , "v1.2.3_4" , 'alpha version 1.2.3_4 eq v1.2.3_4' );
 
+    my $version = $CLASS->$method("v1.2.3.4");
+    is_deeply ([ $version->tuple ], [1, 2, 3, 4], 'Tuple seems to work');
+
     # test illegal formats
     eval {my $version = $CLASS->$method("1.2_3_4")};
     like($@, qr/multiple underscores/,

vperl/vpp.pm

@@ -875,6 +875,10 @@ sub is_qv {
     return (exists $self->{qv});
 }
 
+sub tuple {
+    my ($self) = @_;
+    return @{ $self->{version} };
+}
 
 sub _verify {
     my ($self) = @_;

vutil/vxs.inc

@@ -72,6 +72,7 @@
     {VXS_CLASS "::qv", VXSp(version_qv), VXSXSDP(NULL)},
     {VXS_CLASS "::declare", VXSp(version_qv), VXSXSDP(NULL)},
     {VXS_CLASS "::is_qv", VXSp(version_is_qv), VXSXSDP(NULL)},
+    {VXS_CLASS "::tuple", VXSp(version_tuple), VXSXSDP(NULL)},
 #else
 
 #ifndef dVAR
@@ -479,4 +480,33 @@ VXS(version_is_qv)
     S_version_check_key(aTHX_ cv, "qv", 2);
 }
 
+VXS(version_tuple)
+{
+    dXSARGS;
+    if (items != 1)
+	croak_xs_usage(cv, "lobj");
+    SP -= items;
+    {
+	SV * lobj;
+	int i;
+	VTYPECHECK(lobj, ST(0), "lobj");
+
+	SV** avptr = hv_fetchs(MUTABLE_HV(lobj), "version", 0);
+	if (!avptr || !SvROK(*avptr) || SvTYPE(SvRV(*avptr)) != SVt_PVAV) {
+	    PUTBACK;
+	    return;
+	}
+	AV* version = MUTABLE_AV(SvRV(*avptr));
+	for (i = 0; i < av_count(version); ++i) {
+	    SV** svptr = av_fetch(version, i, 0);
+	    if (!svptr || !*svptr) {
+		PUTBACK;
+		return;
+	    }
+	    XPUSHs(*svptr);
+	}
+	PUTBACK;
+     }
+}
+
 #endif