1 package Catalyst::View::Component::SubInclude;
5 use namespace::clean qw/croak/;
9 Catalyst::View::Component::SubInclude - Use subincludes in your Catalyst views
17 our $VERSION = '0.01';
21 package MyApp::View::TT;
24 extends 'Catalyst::View::TT';
25 with 'Catalyst::View::Component::SubInclude';
27 __PACKAGE__->config( subinclude_plugin => 'SubRequest' );
29 Then, somewhere in your templates:
31 [% subinclude('/my/widget') %]
35 C<Catalyst::View::Component::SubInclude> allows you to include content in your
36 templates (or, more generally, somewhere in your view's C<render> processing)
37 which comes from another action in your application. It's implemented as a
38 L<Moose::Role>, so using L<Moose> in your view is required.
40 Simply put, it's a way to include the output of a Catalyst sub-request somewhere
43 It's built in an extensible way so that you're free to use sub-requests, Varnish
44 ESI (L<http://www.catalystframework.org/calendar/2008/17>) or any other
45 sub-include plugin you might want to implement. An LWP plugin seems useful and
46 might be developed in the future.
50 This component does its magic by exporting a C<subinclude> coderef entry to the
51 stash. This way, it's easily accessible by the templates (which is the most
54 =head2 C<subinclude( $path, @args )>
56 This will return the body of the requested resource (as specified by C<$path>).
58 =head1 SUBINCLUDE PLUGINS
60 The module comes with two subinclude plugins:
61 L<SubRequest|Catalyst::Plugin::View::Component::SubRequest> and
62 L<ESI|Catalyst::Plugin::View::Component::ESI>.
64 By default, the SubRequest plugin will be used. This can be changed in the
65 view's configuration options (either in the config file or in the view module
68 Configuration file example:
76 has 'subinclude_plugin' => (
85 my $self = $class->$next( @_ );
87 my $subinclude_plugin = $self->config->{subinclude_plugin} || 'SubRequest';
88 my $subinclude_class = __PACKAGE__ . '::' . $subinclude_plugin;
90 eval "require $subinclude_class";
91 croak "Error requiring $subinclude_class: $@" if $@;
93 $self->subinclude_plugin( $subinclude_class );
98 around 'render' => sub {
100 my ($self, $c, @args) = @_;
102 $c->stash->{subinclude} = sub {
103 $self->subinclude_plugin->generate_subinclude( $c, @_ );
106 $self->$next( $c, @args );
111 L<Catalyst::Plugin::SubRequest>, L<Moose::Role>, L<Moose>,
112 L<http://www.catalystframework.org/calendar/2008/17>
116 Please report any bugs or feature requests to
117 C<bug-catalyst-view-component-subinclude at rt.cpan.org>, or through the web interface at
118 L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-View-Component-SubInclude>.
119 I will be notified, and then you'll automatically be notified of progress on
120 your bug as I make changes.
124 Nilson Santos Figueiredo Junior, C<< <nilsonsfj at cpan.org> >>
128 Development sponsored by Ionzero LLC L<http://www.ionzero.com/>.
130 =head1 COPYRIGHT & LICENSE
132 Copyright (C) 2009 Nilson Santos Figueiredo Junior.
134 Copyright (C) 2009 Ionzero LLC.
136 This program is free software; you can redistribute it and/or modify it
137 under the same terms as Perl itself.