58 lines
1.2 KiB
Perl
58 lines
1.2 KiB
Perl
package Pear::LocalLoop::Schema::ResultSet::Transaction;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use base 'DBIx::Class::ResultSet';
|
|
|
|
use DateTime;
|
|
|
|
sub search_between {
|
|
my ( $self, $from, $to ) = @_;
|
|
|
|
my $dtf = $self->result_source->schema->storage->datetime_parser;
|
|
return $self->search(
|
|
{
|
|
purchase_time => {
|
|
-between =>
|
|
[ $dtf->format_datetime($from), $dtf->format_datetime($to), ],
|
|
},
|
|
}
|
|
);
|
|
}
|
|
|
|
sub search_before {
|
|
my ( $self, $date ) = @_;
|
|
|
|
my $dtf = $self->result_source->schema->storage->datetime_parser;
|
|
return $self->search(
|
|
{
|
|
purchase_time => { '<' => $dtf->format_datetime($date) },
|
|
}
|
|
);
|
|
}
|
|
|
|
sub today_rs {
|
|
my ($self) = @_;
|
|
|
|
my $today = DateTime->today();
|
|
return $self->search_between( $today, $today->clone->add( days => 1 ) );
|
|
}
|
|
|
|
sub week_rs {
|
|
my ($self) = @_;
|
|
|
|
my $today = DateTime->today();
|
|
return $self->search_between( $today->clone->subtract( days => 7 ),
|
|
$today );
|
|
}
|
|
|
|
sub month_rs {
|
|
my ($self) = @_;
|
|
|
|
my $today = DateTime->today();
|
|
return $self->search_between( $today->clone->subtract( days => 30 ),
|
|
$today );
|
|
}
|
|
|
|
1;
|