Pkgreport now uses Mouse OO interface

[debbugs.git] / Debbugs / OOBase.pm

diff --git a/Debbugs/OOBase.pm b/Debbugs/OOBase.pm
index 37896bc4fee9d34af79be0f4e5b7b723fe44a254..6600e0222833fc26ac07fc26d3f02aa3f35c8f6a 100644 (file)
--- 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;