[svn:dbi] r14174 - dbi/trunk/lib/DBD

Author: hmbrand
Date: Sat Jun 19 00:38:04 2010
New Revision: 14174

Modified:
   dbi/trunk/lib/DBD/File.pm

Log:
tidy

Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm	(original)
+++ dbi/trunk/lib/DBD/File.pm	Sat Jun 19 00:38:04 2010
@@ -525,7 +525,7 @@
 
     (my $drv_class = $dbh->{ImplementorClass}) =~ s/::db$//;
     my $drv_prefix = DBI->driver_prefix ($drv_class);
-    my $ddgv = $dbh->{ImplementorClass}->can( "get_" . $drv_prefix . "versions" );
+    my $ddgv = $dbh->{ImplementorClass}->can ("get_${drv_prefix}versions");
     if ($ddgv) {
 	$vsn{"DBD::File"} = $dbd_file_verinfo;
 	$vmp{"DBD::File"} = "  DBD::File";
@@ -537,11 +537,10 @@
 
     $DBI::PurePerl and $vsn{"DBI::PurePerl"} = $DBI::PurePerl::VERSION;
 
-    my @versions = map { sprintf "%-16s %s", $vmp{$_} || $_, $vsn{$_} }
-		   sort
-		   {
+    my @versions = map  { sprintf "%-16s %s", $vmp{$_} || $_, $vsn{$_} }
+		   sort {
 		       $a->isa ($b) and return -1;
-		       $b->isa ($a) and return 1;
+		       $b->isa ($a) and return  1;
 		       return $a cmp $b;
 		       } keys %vsn;
 
@@ -582,7 +581,7 @@
 	}
     else {
 	ref $table or $table = [ $table ];
-	ref $attr or $attr = [ $attr ];
+	ref $attr  or $attr  = [ $attr  ];
 	"ARRAY" eq ref $table or
 	    croak "Invalid argument for \$table - SCALAR, Regexp or ARRAY expected but got " . ref $table;
 	"ARRAY" eq ref $attr or
@@ -594,7 +593,7 @@
 	    foreach my $aname (@{$attr}) {
 		$tattrs{$aname} = &$gstm ($dbh, $tname, $aname);
 		}
-		$results{$tname} = \%tattrs;
+	    $results{$tname} = \%tattrs;
 	    }
 
 	return \%results;
@@ -630,26 +629,24 @@
     ref ($table) eq "Regexp" and
 	$table = [ grep { $_ =~ $table } keys %{$dbh->{f_meta}} ];
 
-    unless (ref ($table) or ref ($attr)) {
+    ref $table || ref $attr or
 	return &$sstm ($dbh, $table, $attr, $value);
-	}
-    else {
-	ref $table or $table = [ $table ];
-	ref $attr or $attr = { $attr => $value };
-	"ARRAY" eq ref $table or
-	    croak "Invalid argument for \$table - SCALAR, Regexp or ARRAY expected but got " . ref $table;
-	"HASH" eq ref $attr or
-	    croak "Invalid argument for \$attr - SCALAR or HASH expected but got " . ref $attr;
 
-	foreach my $tname (@{$table}) {
-	    my %tattrs;
-	    while (my ($aname, $aval) = each %$attr) {
-		&$sstm ($dbh, $tname, $aname, $aval);
-		}
+    ref $table or $table = [ $table ];
+    ref $attr  or $attr  = { $attr => $value };
+    "ARRAY" eq ref $table or
+	croak "Invalid argument for \$table - SCALAR, Regexp or ARRAY expected but got " . ref $table;
+    "HASH" eq ref $attr or
+	croak "Invalid argument for \$attr - SCALAR or HASH expected but got " . ref $attr;
+
+    foreach my $tname (@{$table}) {
+	my %tattrs;
+	while (my ($aname, $aval) = each %$attr) {
+	    &$sstm ($dbh, $tname, $aname, $aval);
 	    }
-
-	return $dbh;
 	}
+
+    return $dbh;
     } # set_file_meta
 
 sub clear_file_meta