NAME

Business::UPC - Perl extension for manipulating Universal Product Codes

SYNOPSIS

            

              
              
use Business::UPC;
# Constructors:
# create a UPC object using standard (type-A) UPC
$upc = new Business::UPC('012345678905');
# create a UPC object using zero-supressed (type-E) UPC
$upc = type_e Business::UPC('01201303');
# is the UPC valid (correct check digit)?
$upc->is_valid;
# correct the check digit
$upc->fix_check_digit;
# get the numeric string:
$upc->as_upc;        # same as $upc->as_upc_a;
$upc->as_upc_a;
$upc->as_upc_e;
# get the components;
$upc->number_system;         # UPC number system character
$upc->mfr_id;                # Manufacturer ID
$upc->prod_id;               # Product ID
$upc->check_digit;           # Check Digit
# more information about the components:
$upc->number_system_description      # explain number_system
# methods specific to coupon UPC codes:
$upc->is_coupon;
$upc->coupon_family_code;            # 3-digit family code
$upc->coupon_family_description;     # explain above
$upc->coupon_value_code;             # 2-digit value code
$upc->coupon_value;                  # explain above
            
          

DESCRIPTION

More detail to come later...

AUTHOR

Rob Fugina, robf@fugina.com

SEE ALSO

perl(1).