lib/DoQueue/Schema/Tasks.pm

• Custom ResultSet methods:

sub deleted :ResultSet {
    my $self = shift;
    $self->search({ deleted => \'IS NOT NULL' },
                  { order_by => \'deleted DESC' });
}

sub active :ResultSet {
    my $self = shift;
    $self->search({ deleted => \'IS NULL'},
                  { order_by => \'priority ASC' });
}

• Uses ResultSetManager component (loaded at top)
• mst says it's deprecated
• I find it convenient