Business-Cart-Generic

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

 	DBIx::Class                                => 0.08121,
 	DBIx::Class::Schema::Loader                => 0.06001,
 	DBIx::Connector                            => 0.42,
	File::Copy                                 => 2.18,
 	File::HomeDir                              => 0.97,
	FindBin                                    => 1.50,
	IO::File                                   => 1.14,
 	JSON::XS                                   => 2.3,
 	Log::Handler::Output::DBI                  => 0.11,
 	Moose                                      => 0.98,
 	namespace::autoclean                       => 0.09,
 	parent                                     => 0.224,
 	Path::Class                                => 0.23,
	Perl6::Slurp                               => 0.03,
	Try::Tiny                                  => 0.09,
	Text::CSV_XS                               => 0.80,
 	Text::Xslate                               => 1.0007,
	WWW::Scraper::Wikipedia::ISO3166::Database => 1.01,

 },
) -> create_build_script();

META.json  view on Meta::CPAN

            "IO::File" : "1.14",
            "JSON::XS" : "2.3",
            "Log::Handler::Output::DBI" : "0.11",
            "Moose" : "0.98",
            "Path::Class" : "0.23",
            "Perl6::Slurp" : "0.03",
            "Text::CSV_XS" : "0.8",
            "Text::Xslate" : "1.0007",
            "Try::Tiny" : "0.09",
            "WWW::Scraper::Wikipedia::ISO3166::Database" : "1.01",
            "namespace::autoclean" : "0.09",
            "parent" : "0.224"
         }
      }
   },
   "provides" : {
      "Business::Cart::Generic" : {
         "file" : "lib/Business/Cart/Generic.pm",
         "version" : "0.85"
      },
      "Business::Cart::Generic::Base" : {

META.yml  view on Meta::CPAN

  IO::File: 1.14
  JSON::XS: 2.3
  Log::Handler::Output::DBI: 0.11
  Moose: 0.98
  Path::Class: 0.23
  Perl6::Slurp: 0.03
  Text::CSV_XS: 0.8
  Text::Xslate: 1.0007
  Try::Tiny: 0.09
  WWW::Scraper::Wikipedia::ISO3166::Database: 1.01
  namespace::autoclean: 0.09
  parent: 0.224
resources:
  license: http://opensource.org/licenses/artistic-license.php
version: 0.85

Makefile.PL  view on Meta::CPAN

 	DBIx::Class                                => 0.08121,
 	DBIx::Class::Schema::Loader                => 0.06001,
 	DBIx::Connector                            => 0.42,
	File::Copy                                 => 2.18,
 	File::HomeDir                              => 0.97,
	FindBin                                    => 1.50,
	IO::File                                   => 1.14,
 	JSON::XS                                   => 2.3,
 	Log::Handler::Output::DBI                  => 0.11,
 	Moose                                      => 0.98,
 	namespace::autoclean                       => 0.09,
 	parent                                     => 0.224,
 	Path::Class                                => 0.23,
	Perl6::Slurp                               => 0.03,
	Try::Tiny                                  => 0.09,
	Test::More                                 => 0.94,
	Test::Pod                                  => 1.44,
	Text::CSV_XS                               => 0.80,
 	Text::Xslate                               => 1.0007,
	WWW::Scraper::Wikipedia::ISO3166::Database => 1.01,
 },

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

 required => 0,
);

has logger =>
(
 is       => 'rw',
 isa      => 'Business::Cart::Generic::Util::Logger',
 required => 0,
);

use namespace::autoclean;

our $VERSION = '0.85';

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

sub BUILD
{
	my($self)   = @_;
	my($config) = $self -> config;
	my($attr)   = {AutoCommit => $$config{AutoCommit}, RaiseError => $$config{RaiseError} };

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

 required => 0,
);

has session =>
(
 is  => 'rw',
 isa => 'Data::Session',
 required => 0,
);

use namespace::autoclean;

our $VERSION = '0.85';

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

sub BUILD
{
	my($self)   = @_;
	my($config) = $self -> config;
	my($attr)   = {AutoCommit => $$config{AutoCommit}, RaiseError => $$config{RaiseError} };

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

 required => 0,
);

has schema =>
(
 is  => 'rw',
 isa => 'Business::Cart::Generic::Schema',
 required => 0,
);

use namespace::autoclean;

our $VERSION = '0.85';

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

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

	$self -> schema

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

 required => 0,
);

has time_option =>
(
 is       => 'rw',
 isa      => 'Str',
 required => 0,
);

use namespace::autoclean;

our $VERSION = '0.85';

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

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

	$self -> creator

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

 required => 0,
);

has tx =>
(
 is       => 'rw',
 isa      => 'Text::Xslate',
 required => 0,
);

use namespace::autoclean;

our $VERSION = '0.85';

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

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

	$self -> db

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

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

has country_map =>
(
	default  => sub{return build_country_map()},
	is       => 'rw',
	isa      => 'HashRef',
	required => 0,
);

use namespace::autoclean;

our $VERSION = '0.85';

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

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

	$self -> db

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

use Perl6::Slurp;

use Text::CSV_XS;
use Text::Xslate;

use Try::Tiny;

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

use namespace::autoclean;

our $VERSION = '0.85';

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

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

	$self -> db

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

package Business::Cart::Generic::Database::Order;

use strict;
use warnings;

use Moose;

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

use namespace::autoclean;

our $VERSION = '0.85';

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

sub add_to_cart
{
	my($self, $order) = @_;

	$self -> db -> logger -> log(debug => 'add_to_cart()');

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

package Business::Cart::Generic::Database::Product;

use strict;
use warnings;

use Moose;

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

use namespace::autoclean;

our $VERSION = '0.85';

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

sub inflate_product
{
	my($self, $product) = @_;

	$self -> db -> logger -> log(debug => 'inflate_product()');

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

package Business::Cart::Generic::Database::Search;

use strict;
use warnings;

use Moose;

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

use namespace::autoclean;

our $VERSION = '0.85';

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

sub find
{
	my($self, $id) = @_;

	$self -> db -> logger -> log(debug => "search($id)");

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

use File::HomeDir;

use Moose;

use Path::Class;

has config           => (is => 'rw', isa => 'Any', required => 0);
has config_file_path => (is => 'rw', isa => 'Path::Class::File', required => 0);
has section          => (is => 'rw', isa => 'Str', required => 0);

use namespace::autoclean;

our $VERSION = '0.85';

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

sub BUILD
{
	my($self) = @_;
	my($path) = Path::Class::file(File::HomeDir -> my_dist_config('Business-Cart-Generic'), '.htbusiness.cart.generic.conf');

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

 isa      => 'HashRef',
 required => 1,
);

has logger =>
(
 is  => 'rw',
 isa => 'Any',
);

use namespace::autoclean;

our $VERSION = '0.85';

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

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

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

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

has query =>
(
 is  => 'ro',
 isa => 'CGI',
 required => 1,
);

use namespace::autoclean;

our $VERSION = '0.85';

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

sub clean_user_data
{
	my($self, $data, $max_length, $integer) = @_;
	$max_length  ||= 255;
	$data = '' if (! defined($data) || (length($data) == 0) || (length($data) > $max_length) );

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

 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

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

 required => 1,
);

has templater =>
(
 is       => 'ro',
 isa      => 'Text::Xslate',
 required => 1,
);

use namespace::autoclean;

our $VERSION = '0.85';

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

sub build_select
{
	my($self, $class_name, $default, $id_name, $column_list, $onchange) = @_;

	$self -> db -> logger -> log(debug => "build_select($class_name, $default)");

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

use warnings;

use JSON::XS;

use Moose;

use Text::Xslate 'mark_raw';

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

use namespace::autoclean;

our $VERSION = '0.85';

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

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

	$self -> db -> logger -> log(debug => 'build_order_html()');

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

use warnings;

use JSON::XS;

use Moose;

use Text::Xslate 'mark_raw';

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

use namespace::autoclean;

our $VERSION = '0.85';

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

sub format_products
{
	my($self, $product) = @_;

	$self -> db -> logger -> log(debug => "format_products(...)");

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

use strict;
use warnings;

use JSON::XS;

use Moose;

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

use namespace::autoclean;

our $VERSION = '0.85';

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

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

	$self -> db -> logger -> log(debug => 'build_search_html()');

 view all matches for this distribution
 view release on metacpan -  search on metacpan