Handel::Constants - Common constants used in Handel

Handel documentation Contained in the Handel distribution.

Index

Code Index:

NAME

Top

Handel::Constants - Common constants used in Handel

SYNOPSIS

Top

    use Handel::Constants qw(:cart);

    my $cart = Handel::Cart->create({
        shopper => 'D597DEED-5B9F-11D1-8DD2-00AA004ABD5E'
    });

    if ($cart->type == CART_TYPE_SAVED) {
        print 'This cart is saved!';
    };

DESCRIPTION

Top

Handel::Constants contains a set of constants used throughout Handel. It may be useful (or even a good idea) to use these in your code. :-)

By default, Handel::Constants export nothing. You can use the export tags below to export all or only certain groups of constants.

FUNCTIONS

Top

str_to_const

Arguments: $constant_name

Converts a string version of a constant into that constants value.

    print str_to_const('CART_TYPE_SAVED');  ## prints 1

CONSTANTS

Top

CART_MODE_APPEND

All items in the saved cart will be appended to the list of items in the current cart. No effort will be made to merge items with the same SKU and duplicates will be left as separate items.

CART_MODE_MERGE

If an item with the same SKU exists in both the current cart and the saved cart, the quantity of each will be added together and applied to the same sku in the current cart. Any price differences are ignored and we assume that the price in the current cart is more up to date.

CART_MODE_REPLACE

All items in the current cart will be deleted before the saved cart is restored into it. This is the default if no mode is specified.

CART_TYPE_SAVED

Marks the cart as permanent. Carts with this value set should never be automatically reaped from the database during cleanup.

CART_TYPE_TEMP

Any cart with this type could be purged from the database during cleanup at any time.

CHECKOUT_PHASE_INITIALIZE

The phase run when first creating a new order.

CHECKOUT_PHASE_VALIDATE

The phase run to validate address, shipping, and other information about an order.

CHECKOUT_PHASE_AUTHORIZE

The phase run when authorizing or validating credit card or other payment information.

CHECKOUT_PHASE_FINALIZE

The phase to run and post authorization order cleanup, like setting order number, before order delivery/confirmation.

CHECKOUT_PHASE_DELIVER

The phase run to deliver the order request to the vendor and/or customer.

CHECKOUT_DEFAULT_PHASES

Contains the default set of phases run automatically. This is currently, VALIDATE, AUTHORIZE, and DELIVER.

CHECKOUT_ALL_PHASES

Contains all available phases.

CHECKOUT_STATUS_OK

All plugin handlers returned successfully and the checkout process has completed.

CHECKOUT_STATUS_ERROR

One or more plugin handlers returned an error or the checkout process aborted with errors.

CHECKOUT_HANDLER_OK

Specifies that the plugin handler sub has completed its work without errors.

CHECKOUT_HANDLER_DECLINE

Specifies that the plugin handler sub has opted not to perform any work. If your plugin is going to decline, please add a message to the current context using add_handler in Handel::Checkout

CHECKOUT_HANDLER_ERROR

Specifies that the plugin handler encountered errors and would like to abort the checkout process.

ORDER_TYPE_SAVED

Marks the order as permanent. Order with this value set should never be automatically reaped from the database during cleanup.

ORDER_TYPE_TEMP

Any order with this type could be purged from the database during cleanup at any time.

EXPORT_TAGS

Top

The following %EXPORT_TAGS are defined for Handel::Constants. See Exporter for further details on using export tags.

:all

This exports all constants found in this module.

:cart

This exports all CART_* constants in this module.

:checkout

This exports all CHECKOUT_* constants in this module.

:order

This exports all ORDER_* constants in this module.

AUTHOR

Top

    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/
Handel documentation Contained in the Handel distribution. 
# $Id$
package Handel::Constants;
use strict;
use warnings;
use vars qw/@EXPORT_OK %EXPORT_TAGS @CHECKOUT_ALL_PHASES/;


BEGIN {
    use base qw/Exporter/;
    use Handel::L10N qw/translate/;
};

use constant CART_MODE_APPEND  => 3;
use constant CART_MODE_MERGE   => 2;
use constant CART_MODE_REPLACE => 1;

use constant CART_TYPE_TEMP    => 0;
use constant CART_TYPE_SAVED   => 1;

use constant ORDER_TYPE_TEMP   => 0;
use constant ORDER_TYPE_SAVED  => 1;

use constant RETURNAS_AUTO     => 0;
use constant RETURNAS_ITERATOR => 1;
use constant RETURNAS_LIST     => 2;
use constant RETURNAS_ARRAY    => 2;

use constant CHECKOUT_PHASE_INITIALIZE => 1;
use constant CHECKOUT_PHASE_VALIDATE   => 2;
use constant CHECKOUT_PHASE_AUTHORIZE  => 4;
use constant CHECKOUT_PHASE_FINALIZE   => 8;
use constant CHECKOUT_PHASE_DELIVER    => 16;
use constant CHECKOUT_DEFAULT_PHASES   => [CHECKOUT_PHASE_VALIDATE,
                                           CHECKOUT_PHASE_AUTHORIZE,
                                           CHECKOUT_PHASE_FINALIZE,
                                           CHECKOUT_PHASE_DELIVER];

@CHECKOUT_ALL_PHASES = (CHECKOUT_PHASE_INITIALIZE,
                        CHECKOUT_PHASE_VALIDATE,
                        CHECKOUT_PHASE_AUTHORIZE,
                        CHECKOUT_PHASE_FINALIZE,
                        CHECKOUT_PHASE_DELIVER);

use constant CHECKOUT_STATUS_OK        => 1;
use constant CHECKOUT_STATUS_ERROR     => 2;

use constant CHECKOUT_HANDLER_OK       => 1;
use constant CHECKOUT_HANDLER_DECLINE  => 2;
use constant CHECKOUT_HANDLER_ERROR    => 4;

@EXPORT_OK = qw(CART_MODE_APPEND
                CART_MODE_MERGE
                CART_MODE_REPLACE
                CART_TYPE_SAVED
                CART_TYPE_TEMP
                ORDER_TYPE_TEMP
                ORDER_TYPE_SAVED
                RETURNAS_AUTO
                RETURNAS_ITERATOR
                RETURNAS_LIST
                RETURNAS_ARRAY
                CHECKOUT_PHASE_INITIALIZE
                CHECKOUT_PHASE_VALIDATE
                CHECKOUT_PHASE_AUTHORIZE
                CHECKOUT_PHASE_FINALIZE
                CHECKOUT_PHASE_DELIVER
                CHECKOUT_DEFAULT_PHASES
                CHECKOUT_ALL_PHASES
                CHECKOUT_STATUS_OK
                CHECKOUT_STATUS_ERROR
                CHECKOUT_HANDLER_OK
                CHECKOUT_HANDLER_DECLINE
                CHECKOUT_HANDLER_ERROR
                str_to_const
);

%EXPORT_TAGS =
    (   all  => \@EXPORT_OK,
        cart => [ qw(CART_MODE_APPEND
                     CART_MODE_MERGE
                     CART_MODE_REPLACE
                     CART_TYPE_SAVED
                     CART_TYPE_TEMP
        )],
        order => [ qw(ORDER_TYPE_TEMP
                      ORDER_TYPE_SAVED
        )],
        returnas => [ qw(RETURNAS_AUTO
                         RETURNAS_ITERATOR
                         RETURNAS_LIST
                         RETURNAS_ARRAY
        )],
        checkout => [ qw(CHECKOUT_PHASE_INITIALIZE
                         CHECKOUT_PHASE_VALIDATE
                         CHECKOUT_PHASE_AUTHORIZE
                         CHECKOUT_PHASE_FINALIZE
                         CHECKOUT_PHASE_DELIVER
                         CHECKOUT_DEFAULT_PHASES
                         CHECKOUT_ALL_PHASES
                         CHECKOUT_STATUS_OK
                         CHECKOUT_STATUS_ERROR
                         CHECKOUT_HANDLER_OK
                         CHECKOUT_HANDLER_DECLINE
                         CHECKOUT_HANDLER_ERROR
        )]
    );

sub CHECKOUT_ALL_PHASES {
        return \@CHECKOUT_ALL_PHASES;
};

sub str_to_const {
    my $str = shift;

    return __PACKAGE__->can($str) ? __PACKAGE__->$str : undef ;
};

1;
__END__