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
|
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
#
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Quantum::Plugin::Glue;
use Mojo::Base 'Mojolicious::Plugin';
use Try::Tiny;
use Bugzilla::Constants;
use Bugzilla::Quantum::CGI;
use Bugzilla::Quantum::Template;
sub register {
my ( $self, $app, $conf ) = @_;
my $template = Bugzilla::Template->create;
$template->{_is_main} = 1;
$app->renderer->add_handler(
'bugzilla' => sub {
my ( $renderer, $c, $output, $options ) = @_;
my %params;
# Helpers
foreach my $method ( grep {m/^\w+\z/} keys %{ $renderer->helpers } ) {
my $sub = $renderer->helpers->{$method};
$params{$method} = sub { $c->$sub(@_) };
}
# Stash values
$params{$_} = $c->stash->{$_} for grep {m/^\w+\z/} keys %{ $c->stash };
$params{self} = $params{c} = $c;
my $name = $options->{template};
unless ($name =~ /\./) {
$name = sprintf '%s.%s.tmpl', $options->{template}, $options->{format};
}
$template->process( $name, \%params, $output )
or die $template->error;
}
);
$app->hook(
around_dispatch => sub {
my ($next, $c) = @_;
try {
local %{ Bugzilla->request_cache } = ();
Bugzilla->usage_mode(USAGE_MODE_QUANTUM);
Bugzilla->cgi( Bugzilla::Quantum::CGI->new(controller => $c) );
Bugzilla->template( Bugzilla::Quantum::Template->new( controller => $c, template => $template ) );
$next->();
} catch {
die $_ unless /\bModPerl::Util::exit\b/;
};
}
);
}
1;
|