DBIx::Class manipulating result source

result_source_example.pl

package Schema::Result::Alarm;
use Moose;
use MooseX::NonMoose;
use MooseX::MarkAsMethods autoclean => 1;
extends 'DBIx::Class::Core';

__PACKAGE__->table_class('Schema::ResultSource::Alarm');

__PACKAGE__->table("alarm");

...


# must be old-school perl -- dunno why :-(
package Schema::ResultSource::Alarm;
use strict;
use warnings;
use base 'DBIx::Class::ResultSource::Table';

sub set_xxx {
    my $self = shift;
    $self->{_xxx} = shift // 'bla_foo';
}

sub from {
    my $self = shift;
    
    warn "FROM running..., self = $self";
    
    my $from = $self->next::method(@_);
    
    return "(select *, '$self->{_xxx}' as text from $from)";
}

1;