Debbugs/OOBase.pm

   1 # This module is part of debbugs, and
   2 # is released under the terms of the GPL version 2, or any later
   3 # version (at your option). See the file README and COPYING for more
   4 # information.
   5 # Copyright 2018 by Don Armstrong <don@donarmstrong.com>.
   6
   7 package Debbugs::OOBase;
   8
   9 =head1 NAME
  10
  11 Debbugs::OOBase -- OO Base class for Debbugs
  12
  13 =head1 SYNOPSIS
  14
  15
  16 =head1 DESCRIPTION
  17
  18
  19
  20 =cut
  21
  22 use Mouse;
  23 use strictures 2;
  24 use namespace::autoclean;
  25
  26 has schema => (is => 'ro', isa => 'Object',
  27                required => 0,
  28                predicate => 'has_schema',
  29               );
  30
  31 sub schema_argument {
  32     my $self = shift;
  33     if ($self->has_schema) {
  34         return (schema => $self->schema);
  35     } else {
  36        return ();
  37     }
  38 }
  39
  40 __PACKAGE__->meta->make_immutable;
  41
  42 1;
  43
  44 __END__
  45 # Local Variables:
  46 # indent-tabs-mode: nil
  47 # cperl-indent-level: 4
  48 # End: