Hello, my name is dummy_name.
Today's date is dummy_date.
metaperl@pool-71-109-151-76:/ernest/dev/catalyst-simpleapp/MyApp/root/html$
metaperl@pool-71-109-151-76:/ernest/dev/catalyst-simpleapp/MyApp/root/html$ spkg.pl --base_pkg=MyApp::View::Seamstress --base_pkg_root=`pwd`/../../lib hello_world.html
comp_root........ /ernest/dev/catalyst-simpleapp/MyApp/root/
html_file_path... /ernest/dev/catalyst-simpleapp/MyApp/root/html/
html_file........ hello_world.html
html_file sans... hello_world
hello_world.html compiled to package html::hello_world
metaperl@pool-71-109-151-76:/ernest/dev/catalyst-simpleapp/MyApp/root/html$
# Lets see what html::hello_world looks like. Everything other than #
"process()" was auto-generated
package html::hello_world;
use strict;
use warnings;
use HTML::TreeBuilder;
use lib '/ernest/dev/catalyst-simpleapp/MyApp/root/html/../../lib';
use base qw(MyApp::View::Seamstress);
our $tree;
sub new {
my $file = __PACKAGE__->comp_root() . 'html/hello_world.html' ;
-e $file or die "$file does not exist. Therefore cannot load";
$tree =HTML::TreeBuilder->new;
$tree->store_declarations;
$tree->parse_file($file);
$tree->eof;
bless $tree, __PACKAGE__;
}
sub process {
my ($self, $c) = @_;
$tree->look_down(id => 'name')->replace_content($c->stash->{$_})
for qw(name date);
}
1;
DESCRIPTION
This is the Catalyst view class for HTML::Seamstress. Your application
should define a view class which is a subclass of this module. The
easiest way to achieve this is using the myapp_create.pl script (where
myapp should be replaced with whatever your application is called). This
script is created as part of the Catalyst setup.
$ script/myapp_create.pl view Seamstress Seamstress
This creates a MyApp::View::Seamstress.pm module in the lib directory
(again, replacing "MyApp" with the name of your application) which looks
something like this:
package FooBar::View::Seamstress;
use strict;
use base 'Catalyst::View::Seamstress';
__PACKAGE__->config->{DEBUG} = 'all';
Now you can modify your action handlers in the main application and/or
controllers to forward to your view class. You might choose to do this
in the end() method, for example, to automatically forward all actions
to the Seamstress view class.
# In MyApp or MyApp::Controller::SomeController
sub end : Private {
my( $self, $c ) = @_;
$c->forward('MyApp::V::Seamstress');
}
CONFIGURATION
There are a three different ways to configure your view class. The first
way is to call the "config()" method in the view subclass. This happens
when the module is first loaded.
package MyApp::V::Seamstress;
use strict;
use base 'Catalyst::View::Seamstress';
MyApp::V::Seamstress->config({
comp_root '/absolute/path/to/html/files/'
});
The second way is to define a "new()" method in your view subclass. This
performs the configuration when the view object is created, shortly
after being loaded. Remember to delegate to the base class "new()"
method (via "$self->NEXT::new()" in the example below) after performing
any configuration.
sub new {
my $self = shift;
$self->config({
comp_root '/absolute/path/to/html/files/'
});
return $self->NEXT::new(@_);
}
The final, and perhaps most direct way, is to define a class item in
your main application configuration, again by calling the uniquitous
"config()" method. The items in the class hash are added to those
already defined by the above two methods. This happens in the base class
new() method (which is one reason why you must remember to call it via
"NEXT" if you redefine the "new()" method in a subclass).
package MyApp;
use strict;
use Catalyst;
MyApp->config({
comp_root '/absolute/path/to/html/files/'
});
Note that any configuration items defined by one of the earlier methods
will be overwritten by items of the same name provided by the latter
methods.
RENDERING VIEWS
The view plugin renders using the class named in the "template" item in
the stash. The items defined in the stash are passed to the Seamstress
"process()" method in the same class:
sub message : Global {
my ( $self, $c ) = @_;
$c->stash->{template} = 'html::hello_world';
$c->stash->{name} = 'Billy Bob';
$c->stash->{date} = 'medjool sahara';
$c->forward('MyApp::View::Seamstress');
}
A "process()" method was shown in the SYNOPSIS.
The output generated by the template is stored in
"$c->response->output".
TEMPLATE PROFILING
METHODS
new The constructor for the Seamstress view (uses inherited "new").
process
eval-requires the module specified in "$c->stash->{template}". Gets
the "HTML::Tree" representation of the file via "new" and then calls
"process()" to rewrite the tree. Template arguments are $c. Output
is stored in "$c->response->body".
template_vars
Returns a list of keys/values to be used as the variables in the
template.
"CATALYST_VAR"
Allows you to change the name of the Catalyst context object. If
set, it will also remove the base and name aliases, so you will
have access them through