}
sub _initialize_object{
- my($self, $object, $args) = @_;
+ my($self, $object, $args, $ignore_triggers) = @_;
my @triggers_queue;
}
}
- foreach my $trigger_and_value(@triggers_queue){
- my($trigger, $value) = @{$trigger_and_value};
- $trigger->($object, $value);
+ if(!$ignore_triggers){
+ foreach my $trigger_and_value(@triggers_queue){
+ my($trigger, $value) = @{$trigger_and_value};
+ $trigger->($object, $value);
+ }
}
if($self->is_anon_class){