Re: Default column values in DBIx::Class


Perl-Sensitive Sunglasses
	PerlMonks

Re: Default column values in DBIx::Class

by jasonk (Parson)

on Jan 12, 2008 at 03:29 UTC ( [id://662023]=note: print w/replies, xml )

Need Help??

in reply to Default column values in DBIx::Class

To tell the object "you're not current" and have it reloaded from the database:

$row->discard_changes;
[download]

To set the default value from your DBIx::Class object instead of from the database, and avoid the whole problem...

package MyDB::T;
use base qw( DBIx::Class );
# setup stuff ...
sub new {
    my ( $class, $attrs ) = @_;

    $attrs->{ 'i' } = 3 unless defined $attrs->{ 'i' };

    return $class->next::method( $attrs );
}
[download]

We're not surrounded, we're in a target-rich environment!

Comment on Re: Default column values in DBIx::Class Select or Download Code

Replies are listed 'Best First'.

Re^2: Default column values in DBIx::Class
by kyle (Abbot) on Jan 12, 2008 at 03:51 UTC

Thank you!!

So as not to have my constants in two places, I've written something like this:

sub new {
    my ( $class, $attr ) = @_;

    foreach my $col ( $class->columns ) {
        my $col_info = $class->column_info( $col );
        if (    ! defined $attr->{$col}
             && exists $col_info->{default_value}
             && ! $col_info->{is_auto_increment} )
        {
            $attr->{$col} = $col_info->{default_value};
        }
    }

    return $class->next::method( $attr );
}
[download]

With the little testing that I've done so far, this seems to work like a charm.

Thanks again!

[reply]
[d/l]

In Section Seekers of Perl Wisdom