X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c805dfd964cc6b4d24868b1835548024363e1f0f..ba802064109d19f3488e5555ec04491681e37b51:/SL/Clipboard/Base.pm

diff --git a/SL/Clipboard/Base.pm b/SL/Clipboard/Base.pm
index 8b7f92a64..47ccc2413 100644
--- a/SL/Clipboard/Base.pm
+++ b/SL/Clipboard/Base.pm
@@ -69,6 +69,13 @@ sub _fix_tree {
   }
 }
 
+sub _binary_column_names {
+  my ($self, $class) = @_;
+  return map  { $_->name }
+         grep { ref($_) =~ m/Pg::Bytea$/i }
+         @{ $class->meta->columns };
+}
+
 1;
 __END__
 
@@ -187,6 +194,12 @@ the newly created object before handing it back to the caller.
 Returns the actual clipped type (e.g. C<RequirementSpecItem>). This is
 derived from the actual class name of C<$self>.
 
+=item C<_binary_column_names $class>
+
+Returns an array of column names that have a binary type. Useful for
+sub-classes which need to encode binary content in Base64 during
+C<dump>.
+
 =item C<_fix_object $object>
 
 This function is called by L</to_object> before the object is passed