NAME
SQL::Translator::Schema::Trigger - SQL::Translator trigger object
SYNOPSIS
use SQL::Translator::Schema::Trigger;
my $trigger = SQL::Translator::Schema::Trigger->new(
name => 'foo',
perform_action_when => 'before', # or after
database_events => [qw/update insert/], # also update, update_on, delete
fields => [], # if event is "update"
on_table => 'foo', # table name
action => '...', # text of trigger
schema => $schema, # Schema object
scope => 'row', # or statement
);DESCRIPTION
SQL::Translator::Schema::Trigger is the trigger object.
METHODS
new
Object constructor.
my $schema = SQL::Translator::Schema::Trigger->new;perform_action_when
Gets or sets whether the event happens "before" or "after" the database_event.
$trigger->perform_action_when('after');database_event
Obsolete please use database_events!
database_events
Gets or sets the events that triggers the trigger.
my $ok = $trigger->database_events('insert');fields
Gets and set which fields to monitor for database_event.
$view->fields('id');
$view->fields('id', 'name');
$view->fields( 'id, name' );
$view->fields( [ 'id', 'name' ] );
$view->fields( qw[ id name ] );
my @fields = $view->fields;table
Gets or set the table on which the trigger works, as a SQL::Translator::Schema::Table object. $trigger->table($triggered_table);
on_table
Gets or set the table name on which the trigger works, as a string. $trigger->on_table('foo');
action
Gets or set the action of the trigger.
$trigger->action(
q[
BEGIN
select ...;
update ...;
END
]
);is_valid
Determine whether the trigger is valid or not.
my $ok = $trigger->is_valid;name
Get or set the trigger's name.
my $name = $trigger->name('foo');order
Get or set the trigger's order.
my $order = $trigger->order(3);scope
Get or set the trigger's scope (row or statement).
my $scope = $trigger->scope('statement');schema
Get or set the trigger's schema object.
$trigger->schema( $schema );
my $schema = $trigger->schema;compare_arrays
Compare two arrays.
equals
Determines if this trigger is the same as another
my $is_identical = $trigger1->equals( $trigger2 );AUTHORS
Anonymous, Ken Youens-Clark <kclark@cpan.org>.