[Jifty-commit] r5053 - in Jifty-DBI/branches/tisql: lib/Jifty/DBI

[Jifty commits]

Author: ruz
Date: Tue Feb  5 21:19:59 2008
New Revision: 5053

Modified:
   Jifty-DBI/branches/tisql/   (props changed)
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm

Log:
 r4993 at cubic-pc (orig r4992):  ruz | 2008-02-05 03:12:16 +0300
 * micro-optimization of _filters which is called quite often


Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm	Tue Feb  5 21:19:59 2008
@@ -1528,14 +1528,13 @@
     my $self = shift;
     my %args = ( direction => 'input', column => undef, @_ );
 
-    my @filters = ();
-    my @objs = ( $self, $args{'column'}, $self->_handle );
-    @objs = reverse @objs if $args{'direction'} eq 'output';
-    my $method = $args{'direction'} . "_filters";
-    foreach my $obj (@objs) {
-        push @filters, $obj->$method();
+    if ( $args{'direction'} eq 'input' ) {
+        return grep $_, map $_->input_filters,
+            ( $self, $args{'column'}, $self->_handle );
+    } else {
+        return grep $_, map $_->output_filters,
+            ( $self->_handle, $args{'column'}, $self );
     }
-    return grep $_, @filters;
 }
 
 sub _apply_input_filters {