You can use an around method modifier on your schemas
deployment_statements method or do it the oldschool way like:

sub deployment_statements {
    my $self = shift;

    my @ret;
    my $wa = wantarray;

    my @additional_after_sql;

    # add Oracle specific stored functions
    if ( $self->storage->sqlt_type eq 'Oracle' ) {
        @additional_after_sql = (
           ...
         );
    }

    if ($wa) {
        @ret = $self->next::method(@_);
        push @ret, @additional_after_sql;
    }
    else {
        $ret[0] = $self->next::method(@_);
        $ret[0] .= join( ";\n\n", @additional_after_sql );
    }

    return $wa ? @ret : $ret[0];
}

Best regards, Alex

On 2015-04-25 17:26, Adam Witney wrote:
Hi,

I want to use a CREATE RULE ON INSERT TO TABLE in my database (PostgreSQL) but 
I can't seem to figure out where I would put it in my Result class so that it 
is deployed with the schema.

Is this possible?

Thanks

Adam

_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk



*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
T-Systems Austria GesmbH Rennweg 97-99, 1030 Wien
Handelsgericht Wien, FN 79340b
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
Notice: This e-mail contains information that is confidential and may be 
privileged.
If you are not the intended recipient, please notify the sender and then
delete this e-mail immediately.
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*

_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk

Reply via email to