Template::Plugin::Handel::Cart - Template Toolkit plugin for shopping cart

Handel documentation Contained in the Handel distribution.

Index

Code Index:

NAME

Top

Template::Plugin::Handel::Cart - Template Toolkit plugin for shopping cart

SYNOPSIS

Top

    [% USE Handel.Cart %]
    [% IF (cart = Handel.Cart.search({id => 'A2CCD312-73B5-4EE4-B77E-3D027349A055'}).first) %]
        [% cart.name %]
        [% FOREACH item IN cart.items.all %]
            [% item.sku %]
        [% END %]
    [% END %]

DESCRIPTION

Top

Template::Plugin::Handel::Cart is a TT2 (Template Toolkit 2) plugin for Handel::Cart. It's API is exactly the same as Handel::Cart.

Handel::Constants are imported into this module automatically. This removes the need to use Template::Plugin::Handel::Constants separately when working with carts.

    [% USE hc = Handel.Cart %]
    [% cart = hc.create(...) %]
    [% cart.type(hc.CART_TYPE_TEMP) %]

SEE ALSO

Top

Template::Plugin::Handel::Constants, Handel::Constants, Handel::Cart, Template::Plugin

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 Template::Plugin::Handel::Cart;
use strict;
use warnings;
use base qw/Template::Plugin/;
use Handel::Constants ();

sub new {
    my ($class, $context, @params) = @_;
    my $self = bless {_CONTEXT => $context}, 'Template::Plugin::Handel::Cart::Proxy';

    foreach my $const (@Handel::Constants::EXPORT_OK) {
        if ($const =~ /^[A-Z]{1}/) {
            $self->{$const} = Handel::Constants->$const;
        };
    };
    return $self;
};

sub load {
    my ($class, $context) = @_;

    return $class;
};

package Template::Plugin::Handel::Cart::Proxy;
use strict;
use warnings;
use base qw/Handel::Cart/;

__PACKAGE__->init_storage;

sub search {
    my ($self, $filter) = @_;
    my $iterator = $self->SUPER::search($filter);

    return $iterator;
};

sub items {
    my ($self, $filter) = @_;
    my $iterator = $self->SUPER::items($filter);

    return $iterator;
};

sub uuid {
    return shift->storage->new_uuid;
};

*guid = \&uuid;

1;
__END__