/usr/share/perl5/DBIx/Class/CDBICompat/Triggers.pm is in libdbix-class-perl 0.082840-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | package # hide from PAUSE
DBIx::Class::CDBICompat::Triggers;
use strict;
use warnings;
use Class::Trigger;
sub insert {
my $self = shift;
return $self->create(@_) unless ref $self;
$self->call_trigger('before_create');
$self->next::method(@_);
$self->call_trigger('after_create');
return $self;
}
sub update {
my $self = shift;
$self->call_trigger('before_update');
my @to_update = keys %{$self->{_dirty_columns} || {}};
return -1 unless @to_update;
$self->next::method(@_);
$self->call_trigger('after_update');
return $self;
}
sub delete {
my $self = shift;
$self->call_trigger('before_delete') if ref $self;
$self->next::method(@_);
$self->call_trigger('after_delete') if ref $self;
return $self;
}
sub store_column {
my ($self, $column, $value, @rest) = @_;
my $vals = { $column => $value };
$self->call_trigger("before_set_${column}", $value, $vals);
return $self->next::method($column, $vals->{$column});
}
1;
|