X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=Debbugs%2FOOBase.pm;h=6600e0222833fc26ac07fc26d3f02aa3f35c8f6a;hp=37896bc4fee9d34af79be0f4e5b7b723fe44a254;hb=0fe38bac72b8f278399b99d1521350fd5083a219;hpb=01c360c8831df87a69fe1f49a08dda22ded51950

diff --git a/Debbugs/OOBase.pm b/Debbugs/OOBase.pm
index 37896bc..6600e02 100644
--- a/Debbugs/OOBase.pm
+++ b/Debbugs/OOBase.pm
@@ -28,6 +28,15 @@ has schema => (is => 'ro', isa => 'Object',
 	       predicate => 'has_schema',
 	      );
 
+sub schema_argument {
+    my $self = shift;
+    if ($self->has_schema) {
+        return (schema => $self->schema);
+    } else {
+       return ();
+    }
+}
+
 __PACKAGE__->meta->make_immutable;
 
 1;