NAME
Business::Barcode::EAN13 - Perform simple validation of an EAN-13 barcode
SYNOPSIS
use Business::Barcode::EAN13 qw/valid_barcode check_digit issuer_ccode best_barcode/;
my $is_valid = valid_barcode("5023965006028");
my $check_digit = check_digit("502396500602");
my $country_code = issuer_ccode("5023965006028");
my $best_code = best_barcode(\@barcodes, \@prefs);DESCRIPTION
These subroutines will tell you whether or not an EAN-13 barcode is self-consistent: i.e. whether or not it checksums correctly. If provided with the 12 digit stem of a barcode it will also return the correct check digit.
We can also return the country in which the manufacturer's identifcation code was registered, and a method for picking a "most preferred" barcode from a list, given a preferred country list.
FUNCTIONS
check_digit
my $check_digit = check_digit("502396500602"); # 8
Given the first 12 digits of a barcode, this will tell you what the last digit should be. This will return undef if the barcode stem is not properly formed.
valid_barcode
my $is_valid = valid_barcode("5023965006028");
Tell whether or not the given barcode is valid. This obviously does not check if it a real barcode; only if it is of correct length, and has a valid check-digit.
issuer_ccode
my $country_code = issuer_ccode("5023965006028"); # "uk"
Returns the ISO 2 digit country code (you could use Locale::Country, or equivalent, to convert to the country name, if required) of the barcode issuer. (Note: This is not necessarily the same as the country of manufacture of the goods).
This does not test the validity of the barcode.
best_barcode
my $best_barcode = best_barcode(\@list_of_barcodes, \@optional_prefs);
Given an arrayref of barcodes, this will return the "most preferred" barcode from the list.
If you don't pass any preferences, this will be the first valid barcode in the list. With a list of "preferred prefixes", this will return the best match from your list in order of preference of your prefix. A prefix can either be a numeric barcode stem, or a 2 letter country code, which will be expanded into the list of current barcode stems available to that country.
e.g. if you have a list of 10 barcodes for the same product internationally, and would prefer the UK barcode if it exists, otherwise the Irish one, otherwise any valid barcode, you would call:
my $best_barcode = best_barcode(\@barcodes, ["uk", "ie"]);If there are no valid barcodes in your list this will return the first barcode which would be valid if it was zero-padded, or null if none meet this final criterion.
BUGS
When zero-filling the barcodes in "best_barcode" we should re-apply the preferences again, rather than just taking the first valid barcode.
TODO
Allow other barcode families than EAN-13
AUTHOR
Colm Dougan, Tony Bowden and Jan Willamowius (https://www.ean-search.org)
LICENSE
This program may be distributed under the same license as Perl itself.