--- /dev/null
+package SL::VATIDNr;
+
+use strict;
+use warnings;
+
+use Algorithm::CheckDigits;
+
+sub clean {
+ my ($class, $ustid) = @_;
+
+ $ustid //= '';
+ $ustid =~ s{[[:space:].-]+}{}g;
+
+ return $ustid;
+}
+
+sub normalize {
+ my ($class, $ustid) = @_;
+
+ $ustid = $class->clean($ustid);
+
+ if ($ustid =~ m{^CHE(\d{3})(\d{3})(\d{3})$}) {
+ return sprintf('CHE-%s.%s.%s', $1, $2, $3);
+ }
+
+ return $ustid;
+}
+
+sub _validate_switzerland {
+ my ($ustid) = @_;
+
+ return $ustid =~ m{^CHE\d{9}$} ? 1 : 0;
+}
+
+sub _validate_european_union {
+ my ($ustid) = @_;
+
+ # 1. Two upper-case letters with the ISO 3166-1 Alpha-2 country code (exception: Greece uses EL instead of GR)
+ # 2. Up to twelve alphanumeric characters
+
+ return 0 unless $ustid =~ m{^(?:AT|BE|BG|CY|CZ|DE|DK|EE|EL|ES|FI|FR|GB|HR|HU|IE|IT|LT|LU|LV|MT|NL|PL|PT|RO|SE|SI|SK|SM)[[:alnum:]]{1,12}$};
+
+ my $algo_name = "ustid_" . lc(substr($ustid, 0, 2));
+ my $checker = eval { CheckDigits($algo_name) };
+
+ return $checker->is_valid(substr($ustid, 2)) if $checker;
+ return 1;
+}
+
+sub validate {
+ my ($class, $ustid) = @_;
+
+ $ustid = $class->clean($ustid);
+
+ return _validate_switzerland($ustid) if $ustid =~ m{^CHE};
+ return _validate_european_union($ustid);
+}
+
+1;
+__END__
+
+=pod
+
+=encoding utf8
+
+=head1 NAME
+
+SL::VATIDNr - Helper routines for dealing with VAT ID numbers
+("Umsatzsteuer-Identifikationsnummern", "UStID-Nr" in German) and
+Switzerland's enterprise identification numbers (UIDs)
+
+=head1 SYNOPSIS
+
+ my $is_valid = SL::VATIDNr->validate($ustid);
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item C<clean> C<$ustid>
+
+Returns the number with all spaces, dashes & points removed.
+
+=item C<normalize> C<$ustid>
+
+Normalizes the given number to the format usually used in the country
+given by the country code at the start of the number
+(e.g. C<CHE-123.456.789> for a Swiss UID or DE123456789 for a German
+VATIDNr).
+
+=item C<validate> C<$ustid>
+
+Returns whether or not a number is valid. Depending on the country
+code at the start several tests are done including check digit
+validation.
+
+The number in question is first run through the L</clean> function and
+may therefore contain certain ignored characters.
+
+=back
+
+=head1 BUGS
+
+Nothing here yet.
+
+=head1 AUTHOR
+
+Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
+
+=cut