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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
use strict;
use warnings;
use Test::More tests => 3;
use Plack::Test;
use HTTP::Request::Common;
{
package Dancer2::Plugin::FooDetector;
use Dancer2::Plugin;
plugin_hooks 'foo';
sub BUILD {
my $plugin = shift;
$plugin->app->add_hook(
Dancer2::Core::Hook->new(
name => 'after',
code => sub {
$plugin->app->execute_hook( 'plugin.foodetector.foo' )
if $_[0]->content =~ /foo/;
}
) );
}
}
{
package PoC;
use Dancer2;
use Dancer2::Plugin::FooDetector;
my $hooked = 'nope';
my $counter = 0;
hook 'plugin.foodetector.foo' => sub {
$counter++;
$hooked = 'hooked';
};
get '/' => sub {
"saying foo triggers the hook"
};
get 'meh' => sub { 'meh' };
get '/hooked' => sub { $hooked };
get '/counter' => sub { $counter };
}
my $test = Plack::Test->create( PoC->to_app );
subtest 'initial state' => sub {
ok $test->request( GET '/meh' )->is_success;
my $res = $test->request( GET '/hooked' );
ok $res->is_success;
is $res->content, 'nope';
is $test->request( GET '/counter' )->content, '0';
};
subtest 'trigger hook' => sub {
ok $test->request( GET '/' )->is_success;
my $res = $test->request( GET '/hooked' );
ok $res->is_success;
is $res->content, 'hooked';
is $test->request( GET '/counter' )->content, '1';
};
# GH #1018 - ensure hooks are called the correct number of times
subtest 'execute hook counting' => sub {
ok $test->request( GET '/' )->is_success;
my $res = $test->request( GET '/hooked' );
ok $res->is_success;
is $res->content, 'hooked';
is $test->request( GET '/counter' )->content, '2';
};
|
