|
Lines 4-9
use Modern::Perl;
Link Here
|
| 4 |
|
4 |
|
| 5 |
use Mojo::Base 'Mojolicious'; |
5 |
use Mojo::Base 'Mojolicious'; |
| 6 |
|
6 |
|
|
|
7 |
use Koha::Caches; |
| 8 |
use Koha::Cache::Memory::Lite; |
| 9 |
|
| 7 |
sub startup { |
10 |
sub startup { |
| 8 |
my ($self) = @_; |
11 |
my ($self) = @_; |
| 9 |
|
12 |
|
|
Lines 51-56
sub _before_dispatch {
Link Here
|
| 51 |
} |
54 |
} |
| 52 |
|
55 |
|
| 53 |
$c->req->url->parse($url); |
56 |
$c->req->url->parse($url); |
|
|
57 |
|
| 58 |
# Flush caches before every request |
| 59 |
Koha::Caches->flush_L1_caches(); |
| 60 |
Koha::Cache::Memory::Lite->flush(); |
| 54 |
} |
61 |
} |
| 55 |
|
62 |
|
| 56 |
1; |
63 |
1; |
| 57 |
- |
|
|