view release on metacpan or  search on metacpan

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

package Business::Cart::Generic::Util::Logger;

use strict;
use warnings;

use Log::Handler::Output::DBI;

use Moose;

has config =>
(
 is       => 'rw',
 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;

	$self -> logger
		(
		 Log::Handler::Output::DBI -> new
		 (
		  columns     => [qw/level message/],
		  data_source => $$config{dsn},
		  password    => $$config{password},
		  persistent  => 1,
		  table       => 'log',
		  user        => $$config{username},
		  values      => [qw/%level %message/],
		  )
		);

}	# End of BUILD.

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

sub log
{
	my($self, $level, $s) = @_;

	$self -> logger -> log(level => $level, message => $s || '')

} # End of log.

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

__PACKAGE__ -> meta -> make_immutable;

1;

=pod

=head1 NAME

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

=head1 Synopsis

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

=head1 Description

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

=head1 Installation

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