[siesta-commit] siesta/lib/Siesta/Storage DBI.pm,1.32,1.33

[prev] [thread] [next] [lurker] [Date index for 2002/09/20]

Update of /cvsroot/siesta/siesta/lib/Siesta/Storage
In directory usw-pr-cvs1:/tmp/cvs-serv24478/lib/Siesta/Storage

Modified Files:
	DBI.pm 
Log Message:
perltidy

Index: DBI.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage/DBI.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- DBI.pm	20 Sep 2002 13:29:39 -0000	1.32
+++ DBI.pm	20 Sep 2002 20:32:06 -0000	1.33
@@ -80,18 +80,17 @@
       or die $dbh->errstr;
 }
 
-sub _delete
-{
-    my $self    = shift;
-    my %args    = @_;
-    my %where   = %{ $args{where} || {} };
-    my $dbh     = $self->_dbh();
+sub _delete {
+    my $self  = shift;
+    my %args  = @_;
+    my %where = %{ $args{where} || {} };
+    my $dbh   = $self->_dbh();
 
-    my $sql     = "DELETE FROM $args{'table'}";
-    $sql       .= " WHERE "
-               . join ( ' AND ',
-                 map { "$_ = " . $dbh->quote( $where{$_} ) } keys %where )
-                 if %where;
+    my $sql = "DELETE FROM $args{'table'}";
+    $sql .= " WHERE "
+      . join ( ' AND ',
+               map { "$_ = " . $dbh->quote( $where{$_} ) } keys %where )
+      if %where;
 
     $dbh->do($sql)
       or die $dbh->errstr;
@@ -388,7 +387,7 @@
 }
 
 sub delete_config {
-    my ( $self, $namespace, $user_id, $list_id, $key) = @_;
+    my ( $self, $namespace, $user_id, $list_id, $key ) = @_;
 
     # just to be sure
     $user_id ||= '';
@@ -399,18 +398,15 @@
                   key       => $key,
                   namespace => $namespace
                   };
-    
-    my %args = (
-                table   => 'config',
-                where   => $where,
-	       );
 
+    my %args = (
+                 table => 'config',
+                 where => $where,
+                 );
 
     my @results = $self->_delete(%args);
 
 }
-
-
 
 # add plugin into the processing queue for a list
 # providing a number will insert at that position.

• [siesta-commit] siesta/lib/Siesta/Storage DBI.pm,1.32,1.33 clampr 21:32 on 20 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52