The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Handel-1.00014
River stage one • 2 direct dependents • 2 total dependents
++
/ Handel::Order

NAME

Handel::Order - Module for maintaining order contents

SYNOPSIS

    use Handel::Order;
    
    my $order = Handel::Order->create({
        id => '12345678-9098-7654-322-345678909876'
    });
    
    my $iterator = $order->items;
    while (my $item = $iterator->next) {
        print $item->sku;
        print $item->price;
        print $item->total;
    };

DESCRIPTION

Handel::Order is a component for maintaining simple order records.

CONSTRUCTOR

create

Arguments: \%data [, \%options]

Creates a new order object containing the specified data.

If the cart key is passed, a new order record will be created from the specified carts contents. The cart key can be a cart primary key value, a cart object, or a hash reference contain the search criteria to load matching carts.

By default, new will use Handel::Cart to load the specified cart, unless you have set cart_class to use another class.

    my $order = Handel::Order->create({
        shopper => '10020400-E260-11CF-AE68-00AA004A34D5',
        id => '111111111-2222-3333-4444-555566667777',
        cart => $cartobject
    });
    
    my $order = Handel::Order->create({
        shopper => '10020400-E260-11CF-AE68-00AA004A34D5',
        id => '111111111-2222-3333-4444-555566667777',
        cart => '11112222-3333-4444-5555-666677778888'
    });
    
    my $order = Handel::Order->create({
        shopper => '10020400-E260-11CF-AE68-00AA004A34D5',
        id => '111111111-2222-3333-4444-555566667777',
        cart => {
            id => '11112222-3333-4444-5555-666677778888',
            type => CART_TYPE_TEMP
        }
    });

The following options are available:

process

When true, the newly created order will be run through the CHECKOUT_PHASE_INITIALIZE process before it is returned.

storage

A storage object to use to create a new order object. Currently, this storage object must have the same columns as the default storage object for the current order class.

METHODS

add

Arguments: \%data | $item

Adds a new item to the current order and returns an instance of the item class specified in order object storage. You can either pass the item data as a hash reference:

    my $item = $cart->add({
        shopper  => '10020400-E260-11CF-AE68-00AA004A34D5',
        sku      => 'SKU1234',
        quantity => 1,
        price    => 1.25
    });

or pass an existing item:

    $order->add(
        $cart->items->first
    );

When passing an existing cart/order item to add, all columns in the source item will be copied into the destination item if the column exists in both the destination and source, and the column isn't the primary key or the foreign key of the item relationship.

A Handel::Exception::Argument exception is thrown if the first parameter isn't a hashref or an object that subclasses Handel::Cart::Item.

cart_class

Arguments: $order_class

Gets/sets the name of the class to use when loading existing cart into the new order. By default, it loads carts using Handel::Cart. While you can set this directly in your application, it's best to set it in a custom subclass of Handel::Order.

    package CustomOrder;
    use strict;
    use warnings;
    use base qw/Handel::Order/;
    __PACKAGE__->cart_class('CustomCart');

checkout_class

Arguments: $checkout_class

Gets/sets the name of the checkout class to use when processing the new order through the INITIALIZE phase if the process flag is on. By default, it uses Handel::Checkout. While you can set this directly in your application, it's best to set it in a custom subclass of Handel::Order.

    package CustomOrder;
    use strict;
    use warnings;
    use base qw/Handel::Order/;
    __PACKAGE__->checkout_class('CustomCheckout');

clear

Deletes all items from the current order.

    $cart->clear;

count

Returns the number of items in the order object.

    my $numitems = $order->count;

copy_cart

Arguments: $order, $cart

When creating a new order from an existing cart, copy_cart will be called to copy the carts contents into the new order object. If you are using custom cart or order subclasses, the default copy_cart will only copy the fields declared in Handel::Cart, ignoring any custom fields you may add.

To fix this, simply subclass Handel::Order and override copy_cart. As its parameters, it will receive the order and cart objects.

    package CustomOrder;
    use strict;
    use warnings;
    use base qw/Handel::Order/;
    
    sub copy_cart {
        my ($self, $order, $cart) = @_;
    
        # copy stock fields
        $self->SUPER::copy_cart($order, $cart);

        # now catch the custom ones
        $order->customfield($cart->customfield);
    };

copy_cart_items

Arguments: $order, $cart

When creating a new order from an existing cart, copy_cart_items will be called to copy the cart items into the new order object. If you are using custom cart or order subclasses, the default copy_cart_item will only copy the fields that in both the cart item and the order item schemas.

To fix this, simply subclass Handel::Order and override copy_cart. As its parameters, it will receive the order and cart objects.

    package CustomOrder;
    use strict;
    use warnings;
    use base qw/Handel::Order/;
    
    __PACKAGE__->cart_class('CustomCart');
    
    sub copy_cart_items {
        my ($self, $order, $cart) = @_;
        my $items = $cart->items(undef, RETURNAS_ITERATOR);
    
        while (my $item = $items->next) {
            my %copy;
    
            foreach (CustomCart::Item->columns) {
                next if $_ =~ /^(id|cart)$/i;
                $copy{$_} = $item->$_;
            };
    
            $copy{'id'} = $self->uuid unless constraint_uuid($copy{'id'});
            $copy{'orderid'} = $order->id;
            $copy{'total'} = $copy{'quantity'}*$copy{'price'};
    
            $order->add_to__items(\%copy);
        };
    };

delete

Arguments: \%filter

Deletes the item matching the supplied filter from the current order.

    $order->delete({
        sku => 'ABC-123'
    });

destroy

Arguments: \%filter

Deletes entire orders (and their items) from the database. When called as an object method, this will delete all items from the current order object and deletes the order object itself. filter will be ignored.

    $order->destroy;

When called as a class method, this will delete all orders matching filter.

    Handel::Order->destroy({
        shopper => 'D597DEED-5B9F-11D1-8DD2-00AA004ABD5E'
    });

A Handel::Exception::Argument exception will be thrown if filter is not a HASH reference.

items

Arguments: \%filter [, \%options]

Loads the current orders items matching the specified filter and returns a Handel::Iterator in scalar context, or a list of items in list context.

    my $iterator = $order->items;
    while (my $item = $iterator->next) {
        print $item->sku;
    };
    
    my @items = $order->items;

By default, the items returned as Handel::Order::Item objects. To return something different, set item_class in the local storage object.

The following options are available:

order_by

Order the items by the column(s) and order specified. This option uses the SQL style syntax:

    my $items = $order->items(undef, {order_by => 'sku ASC'});

A Handel::Exception::Argument exception is thrown if parameter one isn't a hashref or undef.

Arguments: \%filter [, \%options]

Loads existing orders matching the specified filter and returns a Handel::Iterator in scalar context, or a list of orders in list context.

    my $iterator = Handel::Order->search({
        shopper => 'D597DEED-5B9F-11D1-8DD2-00AA004ABD5E',
        type    => ORDER_TYPE_SAVED
    });
    
    while (my $order = $iterator->next) {
        print $order->id;
    };
    
    my @orders = Handel::Orders->search();

The following options are available:

storage

A storage object to use to load order objects. Currently, this storage object must have the same columns as the default storage object for the current order class.

order_by

Order the items by the column(s) and order specified. This option uses the SQL style syntax:

    my $orders = Handel::Order->search(undef, {order_by => 'updated DESC'});

A Handel::Exception::Argument exception is thrown if the first parameter is not a hashref.

save

Marks the current order type as ORDER_TYPE_SAVED.

    $order->save

reconcile

Arguments: $cart_id | $cart | \%filter

This method copies the specified carts items into the order only if the item count or the subtotal differ.

The cart key can be a cart id (uuid), a cart object, or a hash reference contain the search criteria to load matching carts.

    $order->reconcile('11111111-1111-1111-1111-111111111111');
    $order->reconcile({name => 'My Cart'});
    
    my $cart = Handel::Cart->search({
        id => '11111111-1111-1111-1111-111111111111'
    })->first;
    $order->reconcile($cart);

By default, new will use Handel::Cart to load the specified cart, unless you have set cart_classon in the local <storage> object to use another class.

COLUMNS

The following methods are mapped to columns in the default order schema. These methods may or may not be available in any subclasses, or in situations where a custom schema is being used that has different column names.

id

Returns the id of the current order.

    print $order->id;

See "id" in Handel::Schema::Order for more information about this column.

shopper

Arguments: $shopper

Gets/sets the id of the shopper the order should be associated with.

    $order->shopper('11111111-1111-1111-1111-111111111111');
    print $order->shopper;

See "shopper" in Handel::Schema::Order for more information about this column.

type

Arguments: $type

Gets/sets the type of the current order. Currently the two types allowed are:

ORDER_TYPE_TEMP

The order is temporary and may be purged during any [external] cleanup process after the designated amount of inactivity.

ORDER_TYPE_SAVED

The order should be left untouched by any cleanup process and is available to the shopper at any time.

    $order->type(ORDER_TYPE_SAVED);
    print $order->type;

See "type" in Handel::Schema::Order for more information about this column.

number

Arguments: $number

Gets/sets the order number.

    $order->number(1015275);
    print $order->number;

See "number" in Handel::Schema::Order for more information about this column.

created

$datetime

Gets/sets the date/time when the order was created. The date is returned as a stringified DateTime object.

    $order->created('2006-04-11T12:34:65');
    print $order->created;

See "created" in Handel::Schema::Order for more information about this column.

updated

$datetime

Gets/sets the date/time when the order was last updated. The date is returned as a stringified DateTime object.

    $order->updated('2006-04-11T12:34:65');
    print $order->updated;

See "updated" in Handel::Schema::Order for more information about this column.

comments

$comments

Gets/sets the comments for this order.

    $order->comments('Handel with care');
    print $order->comments;

See "comments" in Handel::Schema::Order for more information about this column.

shipmethod

$shipmethod

Gets/sets the shipping method for this order.

    $order->shipmethod('UPS 2nd Day');
    print $order->shipmethod;

See "shipmethod" in Handel::Schema::Order for more information about this column.

shipping

Arguments: $price

Gets/sets the shipping cost for the order item. The price is returned as a stringified Handel::Currency object.

    $item->shipping(12.95);
    print $item->shipping;
    print $item->shipping->format;

See "shipping" in Handel::Schema::Order for more information about this column.

handling

Arguments: $price

Gets/sets the handling cost for the order item. The price is returned as a stringified Handel::Currency object.

    $item->handling(12.95);
    print $item->handling;
    print $item->handling->format;

See "handling" in Handel::Schema::Order for more information about this column.

tax

Arguments: $price

Gets/sets the tax for the order item. The price is returned as a stringified Handel::Currency object.

    $item->tax(12.95);
    print $item->tax;
    print $item->tax->format;

See "tax" in Handel::Schema::Order for more information about this column.

subtotal

Arguments: $price

Gets/sets the subtotal for the order item. The price is returned as a stringified Handel::Currency object.

    $item->subtotal(12.95);
    print $item->subtotal;
    print $item->subtotal->format;

See "subtotal" in Handel::Schema::Order for more information about this column.

total

Arguments: $price

Gets/sets the total for the order item. The price is returned as a stringified Handel::Currency object.

    $item->total(12.95);
    print $item->total;
    print $item->total->format;

See "total" in Handel::Schema::Order for more information about this column.

billtofirstname

Arguments: $firstname

Gets/sets the bill to first name.

    $order->billtofirstname('Chistopher');
    print $order->billtofirstname;

See "billtofirstname" in Handel::Schema::Order for more information about this column.

billtolastname

Arguments: $lastname

Gets/sets the bill to last name

    $order->billtolastname('Chistopher');
    print $order->billtolastname;

See "billtolastname" in Handel::Schema::Order for more information about this column.

billtoaddress1

Arguments: $address1

Gets/sets the bill to address line 1

    $order->billtoaddress1('1234 Main Street');
    print $order->billtoaddress1;

See "billtoaddress1" in Handel::Schema::Order for more information about this column.

billtoaddress2

Arguments: $address2

Gets/sets the bill to address line 2

    $order->billtoaddress2('Suite 34b');
    print $order->billtoaddress2;

See "billtoaddress2" in Handel::Schema::Order for more information about this column.

billtoaddress3

Arguments: $address3

Gets/sets the bill to address line 3

    $order->billtoaddress3('Floor 5');
    print $order->billtoaddress3;

See "billtoaddress3" in Handel::Schema::Order for more information about this column.

billtocity

Arguments: $city

Gets/sets the bill to city

    $order->billtocity('Smallville');
    print $order->billtocity;

See "billtocity" in Handel::Schema::Order for more information about this column.

billtostate

Arguments: $state

Gets/sets the bill to state/province

    $order->billtostate('OH');
    print $order->billtostate;

See "billtostate" in Handel::Schema::Order for more information about this column.

billtozip

Arguments: $zip

Gets/sets the bill to zip/postal code

    $order->billtozip('12345-6500');
    print $order->billtozip;

See "billtozip" in Handel::Schema::Order for more information about this column.

billtocountry

Arguments: $country

Gets/sets the bill to country

    $order->billtocountry('US');
    print $order->billtocountry;

See "billtocountry" in Handel::Schema::Order for more information about this column.

billtodayphone

Arguments: $phone

Gets/sets the bill to day phone number

    $order->billtodayphone('800-867-5309');
    print $order->billtodayphone;

See "billtodayphone" in Handel::Schema::Order for more information about this column.

billtonightphone

Arguments: $phone

Gets/sets the bill to night phone number

    $order->billtonightphone('800-867-5309');
    print $order->billtonightphone;

See "billtonightphone" in Handel::Schema::Order for more information about this column.

billtofax

Arguments: $fax

Gets/sets the bill to fax number

    $order->billtofax('888-132-4335');
    print $order->billtofax;

See "billtofax" in Handel::Schema::Order for more information about this column.

billtoemail

Arguments: $email

Gets/sets the bill to email address

    $order->billtoemail('claco@chrislaco.com');
    print $order->billtoemail;

See "billtoemail" in Handel::Schema::Order for more information about this column.

shiptosameasbillto

Arguments: 0|1

When true, the ship address is the same as the bill to address.

    $order->shiptosameasbillto(1);
    print $order->shiptosameasbillto;

See "shiptosameasbillto" in Handel::Schema::Order for more information about this column.

shiptofirstname

Arguments: $firstname

Gets/sets the ship to first name.

    $order->shiptofirstname('Chistopher');
    print $order->shiptofirstname;

See "shiptofirstname" in Handel::Schema::Order for more information about this column.

shiptolastname

Arguments: $lastname

Gets/sets the ship to last name

    $order->shiptolastname('Chistopher');
    print $order->shiptolastname;

See "shiptolastname" in Handel::Schema::Order for more information about this column.

shiptoaddress1

Arguments: $address1

Gets/sets the ship to address line 1

    $order->shiptoaddress1('1234 Main Street');
    print $order->shiptoaddress1;

See "shiptoaddress1" in Handel::Schema::Order for more information about this column.

shiptoaddress2

Arguments: $address2

Gets/sets the ship to address line 2

    $order->shiptoaddress2('Suite 34b');
    print $order->shiptoaddress2;

See "shiptoaddress2" in Handel::Schema::Order for more information about this column.

shiptoaddress3

Arguments: $address3

Gets/sets the ship to address line 3

    $order->shiptoaddress3('Floor 5');
    print $order->shiptoaddress3;

See "shiptoaddress3" in Handel::Schema::Order for more information about this column.

shiptocity

Arguments: $city

Gets/sets the ship to city

    $order->shiptocity('Smallville');
    print $order->shiptocity;

See "shiptocity" in Handel::Schema::Order for more information about this column.

shiptostate

Arguments: $state

Gets/sets the ship to state/province

    $order->shiptostate('OH');
    print $order->shiptostate;

See "shiptostate" in Handel::Schema::Order for more information about this column.

shiptozip

Arguments: $zip

Gets/sets the ship to zip/postal code

    $order->shiptozip('12345-6500');
    print $order->shiptozip;

See "shiptozip" in Handel::Schema::Order for more information about this column.

shiptocountry

Arguments: $country

Gets/sets the ship to country

    $order->shiptocountry('US');
    print $order->shiptocountry;

See "shiptocountry" in Handel::Schema::Order for more information about this column.

shiptodayphone

Arguments: $phone

Gets/sets the ship to day phone number

    $order->shiptodayphone('800-867-5309');
    print $order->shiptodayphone;

See "shiptodayphone" in Handel::Schema::Order for more information about this column.

shiptonightphone

Arguments: $phone

Gets/sets the ship to night phone number

    $order->shiptonightphone('800-867-5309');
    print $order->shiptonightphone;

See "shiptonightphone" in Handel::Schema::Order for more information about this column.

shiptofax

Arguments: $fax

Gets/sets the ship to fax number

    $order->shiptofax('888-132-4335');
    print $order->shiptofax;

See "shiptofax" in Handel::Schema::Order for more information about this column.

shiptoemail

Arguments: $email

Gets/sets the ship to email address

    $order->shiptoemail('claco@chrislaco.com');
    print $order->shiptoemail;

See "shiptoemail" in Handel::Schema::Order for more information about this column.

TEMPORARY COLUMNS

The following columns are really just methods to hold sensitive order data that we don't want to actually store in the database.

ccn

Arguments: $ccn

Gets/sets the credit cart number.

    $order->ccn(4444333322221111);
    print $order->ccn;

cctype

Arguments: $type

Gets/sets the credit cart type.

    $order->cctype('MasterCard');
    print $order->cctype;

ccm

Arguments: $month

Gets/sets the credit cart expiration month.

    $order->ccm(1);
    print $order->ccm;

ccy

Arguments: $year

Gets/sets the credit cart expiration year.

    $order->ccyear(2010);
    print $order->ccyear;

ccvn

Arguments: $cvvn

Gets/sets the credit cart verification number.

    $order->cvvn(102);
    print $order->cvvn;

ccname

Arguments: $name

Gets/sets the credit cart holders name as it appears on the card.

    $order->ccname('CHRISTOPHER H. LACO');
    print $order->ccname;

ccissuenumber

Arguments: $number

Gets/sets the credit cart issue number.

    $order->ccissuenumber(16544);
    print $order->ccissuenumber;

ccstartdate

Arguments: $startdate

Gets/sets the credit cart start date.

    $order->ccstartdate('1/2/2009');
    print $order->ccstartdate;

ccenddate

Arguments: $enddate

Gets/sets the credit cart end date.

    $order->ccenddate('12/31/2011');
    print $order->ccenddate;

SEE ALSO

Handel::Order::Item, Handel::Schema::Order, Handel::Constants

AUTHOR

    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/