overridden new()

Service.pm

package My::DB::ResultSet::Service;

use our::way;

use parent 'DBIx::Class::ResultSet';

# Wrapper to exclude services with 'deleted' status from search
sub new {
    my $class = shift;

    my $self         = $class->next::method(@_);
    my $status_alias = $self->current_source_alias . '.status';

    # Fuck with resultset internals
    $self->{attrs}->{where} = $self->_stack_cond(
        $self->{attrs}->{where},
        { $status_alias => { '!=' => 'deleted' } },
    );
    $self->{cond} = $self->{attrs}->{where};

    return $self;
}

1;