1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package PoC::Plugin::Polite;
# ABSTRACT - register Dancer2::Plugin::Polite under a diferent namespace
use Dancer2::Plugin;
has polite => (
is => 'ro',
lazy => 1,
default => sub {
$_[0]->app->with_plugin( 'Polite' );
},
handles => [ qw( smiley add_smileys ) ],
);
register_hook 'smileys';
plugin_keywords qw(add_smileys hooked_smileys);
sub hooked_smileys {
my ($self, @args) = @_;
$self->execute_plugin_hook('smileys');
$self->add_smileys(@args);
};
register_plugin;
1;
|
