From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Wed, 19 Aug 2009 09:37:41 +0000 (-0700)
Subject: add triggers to Schema
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a939ce63b52b466e10b9961a55951569f12290ee;p=dbsrgits%2FSQL-Translator-2.0-ish.git

add triggers to Schema
---

diff --git a/lib/SQL/Translator/Object/Schema.pm b/lib/SQL/Translator/Object/Schema.pm
index 4830a46..178e236 100644
--- a/lib/SQL/Translator/Object/Schema.pm
+++ b/lib/SQL/Translator/Object/Schema.pm
@@ -2,9 +2,9 @@ use MooseX::Declare;
 class SQL::Translator::Object::Schema {
     use MooseX::Types::Moose qw(HashRef Maybe Str);
     use MooseX::AttributeHelpers;
-    use SQL::Translator::Types qw(Procedure Table View);
+    use SQL::Translator::Types qw(Procedure Table Trigger View);
     extends 'SQL::Translator::Object';
-    
+ 
     has 'name' => (
         is => 'rw',
         isa => Maybe[Str],
@@ -72,7 +72,28 @@ class SQL::Translator::Object::Schema {
                 }
             }
         },
-        default => sub { {} },
+        default => sub { my %hash = (); tie %hash, 'Tie::IxHash'; return \%hash },
+    );
+
+    has 'triggers' => (
+        metaclass => 'Collection::Hash',
+        is => 'rw',
+        isa => HashRef[Trigger],
+        provides => {
+            exists => 'exists_trigger',
+            keys   => 'trigger_ids',
+            values => 'get_triggers',
+            get    => 'get_trigger',
+        },
+        curries => {
+            set => {
+                add_trigger => sub {
+                    my ($self, $body, $trigger) = @_;
+                    $self->$body($trigger->name, $trigger);
+                }
+            }
+        },
+        default => sub { my %hash = (); tie %hash, 'Tie::IxHash'; return \%hash },
     );
 
     method is_valid { 1 }