[Midnightbsd-cvs] mports: DBI.pm: Add refresh method.

[ctriv at midnightbsd.org]

Log Message:
-----------
Add refresh method.

Modified Files:
--------------
    mports/Tools/lib/Magus:
        DBI.pm (r1.3 -> r1.4)

-------------- next part --------------
Index: DBI.pm
===================================================================
RCS file: /home/cvs/mports/Tools/lib/Magus/DBI.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -L Tools/lib/Magus/DBI.pm -L Tools/lib/Magus/DBI.pm -u -r1.3 -r1.4
--- Tools/lib/Magus/DBI.pm
+++ Tools/lib/Magus/DBI.pm
@@ -42,5 +42,23 @@
 );
 
 
+
+=head2 $obj->refresh
+
+Get new values for the columns from the database.
+
+=cut
+
+sub refresh {
+  my ($self) = @_;
+  
+  my %pk = map { $_ => 1 } $self->primary_columns;
+  
+  $self->_attribute_delete(grep { !$pk{$_} } $self->all_columns);
+  
+  return $self;
+}
+
+
 1;
 __END__