——use
utf8;
=head1 NAME
Interchange6::Schema::ResultSet::Order
=cut
=head1 SYNOPSIS
Provides extra accessor methods for L<Interchange6::Schema::Result::Order>
=cut
use
strict;
use
warnings;
=head1 METHODS
=head2 with_status
Adds C<status> column which is available to order_by clauses and
whose value can be retrieved via
L<Interchange6::Schema::Result::Order/status>.
=cut
sub
with_status {
my
$self
=
shift
;
return
$self
->search(
undef
,
{
'+columns'
=> {
status
=>
$self
->correlate(
'statuses'
)->rows(1)
->order_by(
'!created,!order_status_id'
)->get_column(
'status'
)
->as_query,
},
}
);
}
1;