Changeset 173

Show
Ignore:
Timestamp:
05/04/06 00:16:20 (4 years ago)
Author:
sky
Message:

r176@crucially-3 (orig r1210): plindner | 2006-04-07 17:12:29 -0700
Stylistic Change, use spaces within map brace style

Location:
trunk/lib/Data/ObjectDriver
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • trunk/lib/Data/ObjectDriver/BaseObject.pm

    r167 r173  
    5454    my $obj = shift; 
    5555    my $pk = $obj->primary_key_tuple; 
    56     my @val = map {$obj->$_()} @$pk; 
     56    my @val = map { $obj->$_() } @$pk; 
    5757    @val == 1 ? $val[0] : \@val; 
    5858} 

  • trunk/lib/Data/ObjectDriver/Driver/BaseCache.pm

    r169 r173  
    144144    ## Load all of the objects using a lookup_multi, which is fast from 
    145145    ## cache. 
    146     my $objs = $driver->lookup_multi($class, [ map {$_->primary_key} @objs ]); 
     146    my $objs = $driver->lookup_multi($class, [ map { $_->primary_key } @objs ]); 
    147147 
    148148    $driver->list_or_iterator($objs); 

  • trunk/lib/Data/ObjectDriver/Driver/DBI.pm

    r169 r173  
    252252    my $dbd = $driver->dbd; 
    253253    $sql .= '(' . join(', ', 
    254                   map {$dbd->db_column_name($tbl, $_)} 
     254                  map { $dbd->db_column_name($tbl, $_) } 
    255255                  @$cols) . 
    256256            ')' . "\n" . 
    … …  
    315315    my $dbd = $driver->dbd; 
    316316    $sql .= join(', ', 
    317             map {$dbd->db_column_name($tbl, $_) . " = ?"} 
     317            map { $dbd->db_column_name($tbl, $_) . " = ?" } 
    318318            @changed_cols) . "\n"; 
    319319    my $stmt = $driver->prepare_statement(ref($obj), $obj->primary_key_to_terms);