view release on metacpan or  search on metacpan

lib/Business/Cart/Generic/View.pm  view on Meta::CPAN

package Business::Cart::Generic::View;

use strict;
use warnings;

use Business::Cart::Generic::View::Order;
use Business::Cart::Generic::View::Product;
use Business::Cart::Generic::View::Search;

use Moose;

extends 'Business::Cart::Generic::View::Base';

has order =>
(
 is  => 'rw',
 isa => 'Business::Cart::Generic::View::Order',
);

has product =>
(
 is  => 'rw',
 isa => 'Business::Cart::Generic::View::Product',
);

has search =>
(
 is  => 'rw',
 isa => 'Business::Cart::Generic::View::Search',
);

use namespace::autoclean;

our $VERSION = '0.85';

# -----------------------------------------------

sub BUILD
{
	my($self) = @_;

	$self -> order
		(
		 Business::Cart::Generic::View::Order -> new
		 (
		  config    => $self -> config,
		  db        => $self -> db,
		  templater => $self -> templater,
		 )
		);

	$self -> product
		(
		 Business::Cart::Generic::View::Product -> new
		 (
		  config    => $self -> config,
		  db        => $self -> db,
		  templater => $self -> templater,
		 )
		);

	$self -> search
		(
		 Business::Cart::Generic::View::Search -> new
		 (
		  config    => $self -> config,
		  db        => $self -> db,
		  templater => $self -> templater,
		 )
		);

}	# End of BUILD.

# --------------------------------------------------

__PACKAGE__ -> meta -> make_immutable;

1;

=pod

=head1 NAME

L<Business::Cart::Generic::View> - Basic shopping cart

=head1 Synopsis

See L<Business::Cart::Generic>.

=head1 Description

L<Business::Cart::Generic> implements parts of osCommerce and PrestaShop in Perl.