line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Form::Factory::Feature::Role::PostProcess; |
2
|
|
|
|
|
|
|
$Form::Factory::Feature::Role::PostProcess::VERSION = '0.022'; |
3
|
1
|
|
|
1
|
|
412
|
use Moose::Role; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
5
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
requires qw( post_process ); |
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
# ABSTRACT: features that run just after processing |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
1; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
__END__ |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
=pod |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
=encoding UTF-8 |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
=head1 NAME |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
Form::Factory::Feature::Role::PostProcess - features that run just after processing |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
=head1 VERSION |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
version 0.022 |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
=head1 SYNOPSIS |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
package MyApp::Feature::Qux; |
29
|
|
|
|
|
|
|
use Moose; |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
with qw( |
32
|
|
|
|
|
|
|
Form::Factory::Feature |
33
|
|
|
|
|
|
|
Form::Factory::Feature::Role::PostProcess |
34
|
|
|
|
|
|
|
); |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
sub post_process { |
37
|
|
|
|
|
|
|
my $self = shift; |
38
|
|
|
|
|
|
|
MyApp::Logger->info('Ending the process.'); |
39
|
|
|
|
|
|
|
} |
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
package Form::Factory::Feature::Custom::Qux; |
42
|
|
|
|
|
|
|
sub register_implementation { 'MyApp::Feature::Qux' } |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
=head1 DESCRIPTION |
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
Features that run something immediately after the action runs may implement this role. This feature will run after the action does whether it succeeds or not. It will not run if an exception is thrown. |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
=head1 ROLE METHOD |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
=head2 post_process |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
This method is called immediately after the C<run> method is called. It is passed no arguments other than the feature object it is called upon. It's return value is ignored. |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
=head1 AUTHOR |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
Andrew Sterling Hanenkamp <hanenkamp@cpan.org> |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
=head1 COPYRIGHT AND LICENSE |
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
This software is copyright (c) 2015 by Qubling Software LLC. |
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
This is free software; you can redistribute it and/or modify it under |
63
|
|
|
|
|
|
|
the same terms as the Perl 5 programming language system itself. |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
=cut |