view release on metacpan or  search on metacpan

lib/DBIx/Class/Events.pm  view on Meta::CPAN

76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
    my ( $class, @args ) = @_;
 
    my $self = $class->next::method(@args);
 
    my %inserted = $self->get_columns;
    $self->event( insert => { details => \%inserted } );
 
    return $self;
};
 
sub update {
    my ( $self, @args ) = @_;
 
    # Do this here instead of letting our parent do it
    # so that we can use get_dirty_columns.
    $self->set_inflated_columns(@args) if @args;
 
    my %changed = $self->get_dirty_columns;
 
    $self->next::method();    # we already set_inflated_columns