projects
/
dbsrgits/SQL-Translator-2.0-ish.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
fix database_events
[dbsrgits/SQL-Translator-2.0-ish.git]
/
lib
/
SQL
/
Translator
/
Object
/
Trigger.pm
diff --git
a/lib/SQL/Translator/Object/Trigger.pm
b/lib/SQL/Translator/Object/Trigger.pm
index
5e324b5
..
2bd60d5
100644
(file)
--- a/
lib/SQL/Translator/Object/Trigger.pm
+++ b/
lib/SQL/Translator/Object/Trigger.pm
@@
-90,4
+90,12
@@
class SQL::Translator::Object::Trigger extends SQL::Translator::Object {
}
method is_valid { 1 }
+
+ around BUILDARGS(ClassName $self: @args) {
+ my $args = $self->$orig(@args);
+
+ $args->{_database_events} = delete $args->{database_events} || [];
+
+ return $args;
+ }
}