projects
/
dbsrgits/DBIx-Class-Historic.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
initial merge of Schwern's CDBICompat work, with many thanks
[dbsrgits/DBIx-Class-Historic.git]
/
lib
/
DBIx
/
Class
/
CDBICompat
/
Triggers.pm
diff --git
a/lib/DBIx/Class/CDBICompat/Triggers.pm
b/lib/DBIx/Class/CDBICompat/Triggers.pm
index
2c4ff30
..
3f6aef7
100644
(file)
--- a/
lib/DBIx/Class/CDBICompat/Triggers.pm
+++ b/
lib/DBIx/Class/CDBICompat/Triggers.pm
@@
-7,6
+7,9
@@
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');