Changeset 2185

Show
Ignore:
Timestamp:
04/06/07 20:52:25
Author:
jesse
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Class-Trigger/branches/return-values/lib/Class/Trigger.pm

    r2177 r2185  
    6969 
    7070    if (my @triggers = __fetch_all_triggers($self, $when)) { # any triggers? 
    71         for (@triggers) { 
    72               my @return = $_->[0]->($self, @_); 
     71        for my $trigger (@triggers) { 
     72              my @return = $trigger->[0]->($self, @_); 
    7373                push @{$result_store->{'_class_trigger_results'}}, \@return; 
    74                 return undef if ($_->[1] and not $return[0]); # only abort on false values. 
     74                return undef if ($trigger->[1] and not $return[0]); # only abort on false values. 
    7575          
    7676    }