# $Id: /local/CPAN/Mango/lib/Mango/Provider/Orders.pm 1644 2008-06-02T01:46:53.055259Z claco  $
package Mango::Provider::Orders;
use strict;
use warnings;

BEGIN {
    use base qw/Mango::Provider/;

    __PACKAGE__->mk_group_accessors( 'simple', qw/storage/ );
}
__PACKAGE__->result_class('Mango::Order');

sub setup {
    my ( $self, $args ) = @_;
    my $storage = $self->result_class->storage->clone;

    $storage->setup($args);

    $self->storage( bless { storage => $storage }, $self->result_class );

    return;
}

sub create {
    my $self = shift;
    my $data = shift || {};

    if ( my $user = delete $data->{'user'} ) {
        if ( Scalar::Util::blessed($user) ) {
            if ( $user->isa('Mango::User') ) {
                $data->{'user_id'} = $user->id;
            } else {
                Mango::Exception->throw('NOT_A_USER');
            }
        } else {
            $data->{'user_id'} = $user;
        }
    }

    if ( !$data->{'user_id'} ) {
        Mango::Exception->throw('NO_USER_SPECIFIED');
    }

    return $self->storage->create( $data, @_ );
}

sub search {
    my $self = shift;
    my $filter = shift || {};

    if ( my $user = delete $filter->{'user'} ) {
        if ( Scalar::Util::blessed $user) {
            if ( $user->isa('Mango::User') ) {
                $filter->{'user_id'} = $user->id;
            } else {
                Mango::Exception->throw('NOT_A_USER');
            }
        } else {
            $filter->{'user_id'} = $user;
        }
    }

    return $self->storage->search( $filter, @_ );
}

sub update {
    my ( $self, $object ) = @_;

    return $object->update;
}

sub delete {
    my $self   = shift;
    my $filter = shift;

    if ( Scalar::Util::blessed $filter) {
        if ( $filter->isa('Mango::Order') ) {
            $filter = { id => $filter->id };
        } else {
            Mango::Exception->throw('NOT_A_ORDER');
        }
    } elsif ( ref $filter eq 'HASH' ) {
        if ( my $user = delete $filter->{'user'} ) {
            if ( Scalar::Util::blessed $user) {
                if ( $user->isa('Mango::User') ) {
                    $filter->{'user_id'} = $user->id;
                } else {
                    Mango::Exception->throw('NOT_A_USER');
                }
            } else {
                $filter->{'user_id'} = $user;
            }
        }
    } else {
        $filter = { id => $filter };
    }

    return $self->storage->destroy( $filter, @_ );
}

1;
__END__

=head1 NAME

Mango::Provider::Orders - Provider class for order information

=head1 SYNOPSIS

    my $provider = Mango::Provider::Orders->new;
    my $order = $provider->get_by_id(23);

=head1 DESCRIPTION

Mango::Provider::Orders is the provider class responsible for creating,
deleting, updating and searching order information.

=head1 CONSTRUCTOR

=head2 new

=over

=item Arguments: \%options

=back

Creates a new order provider object. If options are passed to new, those are
sent to C<setup>.

    my $provider = Mango::Provider::Orders->new;

See L<Mango::Provider/new> for a list of other possible options.

=head1 METHODS

=head2 create

=over

=item Arguments: \%data

=back

Creates a new Mango::Order object using the supplied data.

    my $order = $provider->create({
        user => 23
    });
    
    print $order->count;

In addition to using the column names, the following special keys are
available:

=over

=item user

This can be a user id, or a user object for which this order is assigned to.

    my $order = $provider->create({
        user => $user
    });

It is recommended that you use this key, rather than setting the foreign key
column manually in case it changes later.

=back

=head2 delete

=over

=item Arguments: \%filter

=back

Deletes orders from the provider matching the supplied filter.

    $provider->delete({
        id => 23
    });

In addition to using the column names, the following special keys are
available:

=over

=item user

This can be a user id, or a user object for which this order is assigned to.

    $provider->delete({
        user => $user
    });

It is recommended that you use this key, rather than setting the foreign key
column manually in case it changes later.

=back

=head2 get_by_id

=over

=item Arguments: $id

=back

Returns a Mango::Order object matching the specified id.

    my $order = $provider->get_by_id(23);

Returns undef if no matching order can be found.

=head2 search

=over

=item Arguments: \%filter, \%options

=back

Returns a list of Mango::Order objects in list context, or a Mango::Iterator
in scalar context matching the specified filter.

    my @orders = $provider->search({
        last_name => 'Alberts'
    });
    
    my $iterator = $provider->search({
        last_name => 'Alberts'
    });

In addition to using the column names, the following special keys are
available:

=over

=item user

This can be a user id, or a user object for which orders are assigned to.

    my @carts = $provider->search({
        user => $user
    });
    
    my $carts = $provider->search({
        user => $user
    });

=back

See L<Handel::Order/search> for a list of other possible options.

=head2 update

=over

=item Arguments: $cart

=back

Sets the 'updated' column to DateTime->now and saves any changes made to the
order back to the underlying store.

    my $order = $provider->create(\%data);
    $order->number(154325);
    
    $provider->update($order);

=head1 SEE ALSO

L<Mango::Provider>, L<Mango::Order>, L<Handel::Order>

=head1 AUTHOR

    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/