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).