| Poet::Manual::Subclassing(3pm) | User Contributed Perl Documentation | Poet::Manual::Subclassing(3pm) |
Poet::Manual::Subclassing - Customizing Poet with subclasses
You can subclass the following Poet classes for your application:
Poet::Cache
Poet::Conf
Poet::Log
Poet::Mason
Poet::Import
Poet::Plack::Request
Poet::Plack::Response
and arrange things so that Poet always uses your subclass instead of its default class.
Place Poet subclasses under "lib/MyApp/Class.pm" in your environment, where "MyApp" is your app name and "Class" is the class you are subclassing minus the "Poet" prefix. A few of these subclasses are generated for you by "poet new".
For example, to subclass "Poet::Cache":
package MyApp::Cache;
use Poet::Moose;
extends 'Poet::Cache';
# put your modifications here
1;
(Note: Poet::Moose is Moose plus a few Poet standards. You could also use plain "Moose" here.)
Poet will automatically detect, load and use any such subclasses. Internally it uses the app_class environment method whenever it needs a classname, e.g.
# Do something with MyApp::Cache or Poet::Cache
$poet->app_class('Cache')->...
As long as you have even a bare-bones "Poet::Mason" subclass, e.g.
package MyApp::Mason;
use Poet::Moose;
extends 'Poet::Mason';
1;
then your Mason subclasses will be autodetected as well, e.g.
package MyApp::Mason::Interp;
use Moose;
extends 'Mason::Interp';
# put your modifications here
1;
"poet new" will create the bare-bones subclass for you; it is otherwise harmless.
See Mason::Manual::Subclasses for more information.
package MyApp::Conf;
use Config::INI;
use Moose;
extends 'Poet::Conf';
override 'read_conf_file' => sub {
my ($self, $file) = @_;
return Config::INI::Reader->read_file($file);
};
package MyApp::Mason::Request;
use Moose;
extends 'Mason::Request';
override 'run' => sub {
my $self = shift;
# Perform tasks before request
my $result = super();
# Perform tasks after request
return $result;
};
package MyApp::Mason::Compilation;
use Moose;
extends 'Mason::Compilation';
override 'output_class_header' => sub {
return join("\n", super(), 'use Foo;', 'use Bar qw(baz);');
};
package MyApp::Log;
use Log::Any::Adapter;
use Log::Dispatch;
use Moose;
extends 'Poet::Log';
override 'initialize_logging' => sub {
my $log = Log::Dispatch->new( ... );
Log::Any::Adapter->set('Dispatch', dispatcher => $log);
};
package MyApp::Import
use DBI;
use Poet::Moose;
extends 'Poet::Import';
method provide_dbh ($caller, $poet) {
$dbh = DBI->connect(...);
}
Poet
Jonathan Swartz <swartz@pobox.com>
This software is copyright (c) 2012 by Jonathan Swartz.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
| 2015-01-08 | perl v5.20.2 |