DAMI / App-AutoCRUD-0.11 / lib / App / AutoCRUD / Controller.pm 

            

              
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

              
package App::AutoCRUD::Controller;
use 5.010;
use strict;
use warnings;
use Moose;
use Time::HiRes qw/time/;
use namespace::clean -except => 'meta';
has 'context' => (is => 'ro', isa => 'App::AutoCRUD::Context',
                  required => 1,
                  handles => [qw/app config dir logger datasource/]);
sub respond {
  my ($self) = @_;
  # compute response data
  my $t0   = time;
  my $data = $self->serve();
  my $t1   = time;
  # record processing time
  my $context = $self->context;
  $context->set_process_time($t1-$t0);
  # render through view
  my $view = $context->view;
  return $view->render($data, $context);
}
sub serve {
  die "attempt to serve() from abstract class Controller.pm";
}
sub redirect { # implemented through a view, which is a bit hacky, but fits
               # nicely with the general "respond" method above
  my ($self, $url) = @_;
  my $context    = $self->context;
  my $view_class = $context->app->find_class("View::Redirect")
    or die "no Redirect view";
  $context->set_view($view_class->new);
  return $url;
}
1;
__END__
=head1 NAME
App::AutoCRUD::Controller - parent class for controllers
=head1 DESCRIPTION
Parent class for all controllers
=head1 METHODS
=head2 respond
Calls the L</serve> method to build response data; then calls the
L<App::AutoCRUD::View/render> method within the appropriate
view to build the Plack response.
=head2 serve
Abstract method (to be redefined in subclasses);
should return the datastructure to be passed to the
L<App::AutoCRUD::View> class.
=head2 redirect
  $controller->redirect($url);
Convenience method to redirect to another URL.
Sets the C<view> attribute in L<App::AutoCRUD::Context>
to an instance of L<App::AutoCRUD::View::Redirect>;
then returns the given URL.
This is used by all POST methods, following the
L<http://en.wikipedia.org/wiki/Post/Redirect/Get> pattern
to avoid duplicate form submissions.