[Jifty-commit] r3430 - Jifty-DBI/trunk/lib/Jifty/DBI/Class
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Sun Jun 10 20:37:21 EDT 2007
Author: clkao
Date: Sun Jun 10 20:37:20 2007
New Revision: 3430
Modified:
Jifty-DBI/trunk/lib/Jifty/DBI/Class/Trigger.pm
Log:
Remove duplicated code.
Modified: Jifty-DBI/trunk/lib/Jifty/DBI/Class/Trigger.pm
==============================================================================
--- Jifty-DBI/trunk/lib/Jifty/DBI/Class/Trigger.pm (original)
+++ Jifty-DBI/trunk/lib/Jifty/DBI/Class/Trigger.pm Sun Jun 10 20:37:20 2007
@@ -25,27 +25,18 @@
my $triggers = __fetch_triggers($proto);
- if ($#_ == 1 && ref($_[1]) eq 'CODE') {
- while (my($when, $code) = splice @_, 0, 2) {
- __validate_triggerpoint($proto, $when);
- Carp::croak('add_trigger() needs coderef') unless ref($code) eq 'CODE';
- push @{$triggers->{$when}}, [$code, undef];
- }
+ if ( $#_ == 1 && ref( $_[1] ) eq 'CODE' ) {
+ @_ = ( name => $_[0], callback => $_[1] );
}
- elsif (grep {'name'} @_) {
- my %args = ( name => undef, callback => undef, abortable => undef, @_);
- my $when= $args{'name'};
- my $code = $args{'callback'};
- my $abortable = $args{'abortable'};
- __validate_triggerpoint($proto, $when);
- Carp::croak('add_trigger() needs coderef') unless ref($code) eq 'CODE';
- push @{$triggers->{$when}}, [$code, $abortable];
-
- } else {
- Carp::croak('add_trigger() needs coderef');
+ my %args = ( name => undef, callback => undef, abortable => undef, @_ );
+ my $when = $args{'name'};
+ my $code = $args{'callback'};
+ my $abortable = $args{'abortable'};
+ __validate_triggerpoint( $proto, $when );
+ Carp::croak('add_trigger() needs coderef') unless ref($code) eq 'CODE';
+ push @{ $triggers->{$when} }, [ $code, $abortable ];
- }
1;
}
More information about the Jifty-commit
mailing list