Add Swid support

giterlizzi · Jun 1, 2024 · a9ba764 · a9ba764
1 parent 9bdf709
commit a9ba764
Show file tree

Hide file tree

Showing 5 changed files with 16 additions and 4 deletions.
diff --git a/lib/URI/PackageURL/App.pm b/lib/URI/PackageURL/App.pm
@@ -13,7 +13,7 @@ use Data::Dumper ();
 
 use URI::PackageURL ();
 
-our $VERSION = '2.20';
+our $VERSION = '2.20_2';
 
 sub cli_error {
     my ($error) = @_;

diff --git a/lib/URI/PackageURL/Util.pm b/lib/URI/PackageURL/Util.pm
@@ -21,6 +21,7 @@ sub purl_components_normalize {
         huggingface => \&_huggingface_normalize,
         mlflow      => \&_mlflow_normalize,
         pypi        => \&_pypi_normalize,
+        swid        => \&_swid_normalize,
         swift       => \&_swift_normalize,
     );
 
@@ -153,6 +154,17 @@ sub _pypi_normalize {
 
 }
 
+sub _swid_normalize {
+
+    my (%component) = @_;
+
+    Carp::croak "Invalid Package URL: swid 'tag_id' qualifier is required"
+        unless defined $component{qualifiers}->{tag_id};
+
+    return \%component;
+
+}
+
 sub _swift_normalize {
 
     my (%component) = @_;

diff --git a/lib/URI/VersionRange.pm b/lib/URI/VersionRange.pm
@@ -18,7 +18,7 @@ use constant FALSE => !!0;
 
 use overload '""' => 'to_string', fallback => 1;
 
-our $VERSION = '2.20';
+our $VERSION = '2.20_2';
 our @EXPORT  = qw(encode_vers decode_vers);
 
 my $VERS_REGEXP = qr{^vers:[a-z\\.\\-\\+][a-z0-9\\.\\-\\+]*/.+};

diff --git a/lib/URI/VersionRange/App.pm b/lib/URI/VersionRange/App.pm
@@ -13,7 +13,7 @@ use Data::Dumper ();
 
 use URI::VersionRange ();
 
-our $VERSION = '2.20';
+our $VERSION = '2.20_2';
 
 sub cli_error {
     my ($error) = @_;

diff --git a/lib/URI/VersionRange/Constraint.pm b/lib/URI/VersionRange/Constraint.pm
@@ -12,7 +12,7 @@ use overload '""' => 'to_string', fallback => 1;
 
 use URI::VersionRange::Version;
 
-our $VERSION = '2.20';
+our $VERSION = '2.20_2';
 
 our %COMPARATOR = (
     '='  => 'equal',