File Coverage

blib/lib/Interchange6/Schema/ResultSet/Order.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	24	24	100.0

use utf8;

package Interchange6::Schema::ResultSet::Order;

=head1 NAME

Interchange6::Schema::ResultSet::Order

=cut

=head1 SYNOPSIS

Provides extra accessor methods for L<Interchange6::Schema::Result::Order>

=cut

use strict;
use warnings;
use mro 'c3';

use parent 'Interchange6::Schema::ResultSet';

=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;