view release on metacpan or  search on metacpan

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)");

	return $self -> db -> schema -> resultset('Order') -> search
		(
		 {
		   id => $id,
		 },
		 {
		 }
		) -> single;

} # End of find.

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

__PACKAGE__ -> meta -> make_immutable;

1;

=pod

=head1 NAME

L<Business::Cart::Generic::Database::Search> - 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>.

=head1 Constructor and Initialization

=head2 Parentage

This class extends L<Business::Cart::Generic::Database::Base>.

=head2 Using new()

This class is used by L<Business::Cart::Generic::Controller::Search>. See L<Business::Cart::Generic::Database>.

=head1 Methods

=head2 find($id)