NAME

MOP4Import::Base::Configure - OO Base class (based on MOP4Import)

SYNOPSIS

  package MyPSGIMiddlewareSample {
    use MOP4Import::Base::Configure -as_base
      , [fields =>

         , [app =>
             , doc => 'For Plack::Middleware standard conformance.']

         , [dbname =>
             , doc => 'Name of SQLite dbfile']
        ];

    use parent qw( Plack::Middleware );

    use DBI;

    sub call {
      (my MY $self, my $env) = @_;

      $env->{'myapp.dbh'} = DBI->connect("dbi:SQLite:dbname=$self->{dbname}");

      return $self->app->($env);
    }
  };

DESCRIPTION

MOP4Import::Base::Configure is a MOP4Import family and is my latest implementation of Tk-like configure based object base classs. This class also inherits MOP4Import::Declare, so you can define your own declare_.. pragmas too.

METHODS

new (%opts | \%opts)

Usual constructor. This passes given %opts to "configure".

configure (%opts | \%opts)

General setter interface for public fields. See also Tk style configure method.

configure_default ()

This fills undefined public fields with their default values. Default values are obtained via default_FIELD hook. They are normally defined by default field spec.

HOOK METHODS

after_new

This hook is called just after call of configure in new.

FIELD SPECs

For field spec, you can also have hook for field spec.

default => VALUE

This defines default_FIELDNAME method with given VALUE.

weakref => 1

This generates set hook (onconfigure_FIELDNAME) wrapped with "weaken" in Scalar::Util.