blob: afc8248e802190c5957d87991cfbff5f51fa3961 (
plain) (
blame)
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
package Plack::Middleware::Class::Refresh;
use strict;
use warnings;
use Plack::Util::Accessor 'verbose';
# ABSTRACT: Refresh your app classes with Class::Refresh before requests
use Class::Refresh;
use base 'Plack::Middleware';
=head1 SYNOPSIS
use Plack::Builder;
builder {
enable 'Class::Refresh', verbose => 1;
...
}
=head1 DESCRIPTION
This middleware simply calls C<< Class::Refresh->refresh >> before each
request, to ensure that the most recent versions of all of your classes are
loaded. This is a faster alternative to L<Plack::Loader::Restarter>, although
be sure you read the caveats in L<Class::Refresh>, as this module will likely
be less reliable in some cases.
You can set the C<verbose> option when debugging to make it give a warning
whenever it refreshes any classes.
=cut
sub call {
my $self = shift;
if ($self->verbose && (my @changed = Class::Refresh->modified_modules)) {
warn ((@changed > 1
? "Classes " . join(', ', @changed) . " have"
: "Class $changed[0] has")
. " been changed, refreshing");
}
Class::Refresh->refresh;
$self->app->(@_);
}
=head1 BUGS
No known bugs.
Please report any bugs through RT: email
C<bug-plack-middleware-class-refresh at rt.cpan.org>, or browse to
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Plack-Middleware-Class-Refresh>.
=head1 SEE ALSO
L<Class::Refresh>
L<Plack>
=head1 SUPPORT
You can find this documentation for this module with the perldoc command.
perldoc Plack::Middleware::Class::Refresh
You can also look for information at:
=over 4
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/Plack-Middleware-Class-Refresh>
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/Plack-Middleware-Class-Refresh>
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Plack-Middleware-Class-Refresh>
=item * Search CPAN
L<http://search.cpan.org/dist/Plack-Middleware-Class-Refresh>
=back
=begin Pod::Coverage
call
=end Pod::Coverage
=cut
1;
|