CLACO / Mango-0.01000_10 / lib / Mango / Order / Item.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
—
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164

              
# $Id: /local/CPAN/Mango/trunk/lib/Mango/Order/Item.pm 1959 2007-08-10T05:27:29.884596Z claco  $
package Mango::Order::Item;
use strict;
use warnings;
BEGIN {
    use base qw/Handel::Order::Item/;
    use Handel::Constraints ();
    use DateTime ();
};
__PACKAGE__->storage->setup({
    autoupdate       => 0,
    currency_class   => 'Mango::Currency',
    schema_class     => 'Mango::Schema',
    schema_source    => 'OrderItems',
    currency_columns => [qw/price total/],
    constraints      => {
        quantity     => {'Check Quantity' => \&Handel::Constraints::constraint_quantity},
        price        => {'Check Price'    => \&Handel::Constraints::constraint_price},
        total        => {'Check Total'    => \&Handel::Constraints::constraint_price}
    },
    default_values   => {
        price        => 0,
        quantity     => 1,
        total        => 0,
        created      => sub {DateTime->now},
        updated      => sub {DateTime->now}
    }
});
__PACKAGE__->result_iterator_class('Mango::Iterator');
__PACKAGE__->create_accessors;
sub update {
    my $self = shift;
    $self->updated(DateTime->now);
   
    return $self->SUPER::update(@_);
};
1;
__END__
=head1 NAME
Mango::Order::Item - Module representing an individual order item
=head1 SYNOPSIS
    my $items = $order->items;
     
    while (my $item = $items->next) {
        print $item->sku;
    };
=head1 DESCRIPTION
Mango::Order::Item represents an individual order item.
=head1 METHODS
=head2 created
Returns the date and time in UTC the order item was created as a DateTime
object.
    print $item->created;
=head2 description
=over
=item Arguments: $description
=back
Gets/sets the description for the current order item.
    $item->description('Best Item Ever');
    print $item->description;
=head2 id
Returns the id of the current order item.
    print $item->id;
=head2 sku
=over
=item Arguments: $sku
=back
Gets/sets the sku (stock keeping unit/part number) for the order item.
    $item->sku('ABC123');
    print $item->sku;
=head2 price
=over
=item Arguments: $price
=back
Gets/sets the price for the current order item. The price is returned as a
L<Mango::Currency|Mango::Currency> object.
    $item->price(12.95);
    print $item->price;
    print $item->price->format;
=head2 quantity
=over
=item Arguments: $quantity
=back
Gets/sets the quantity, or the number of this item being purchased.
    $item->quantity(3);
    print $item->quantity;
=head2 total
Returns the total price for the order item as a
L<Mango::Currency|Mango::Currency> object. This is really just quantity*total
and is provided for convenience.
    print $item->total;
    print $item->total->format;
=head2 update
Saves any changes made to the order item back to the provider.
    $item->quantity(2);
    $item->update;
Whenever L</update> is called, L</updated> is automatically set to the
current time in UTC.
=head2 updated
Returns the date and time in UTC the order item was last updated as a DateTime
object.
    print $item->updated;
=head1 SEE ALSO
L<Mango::Order>, L<Mango::Schema::Order::Item>, L<Mango::Currency>
=head1 AUTHOR
    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/