| SweetPea-Application documentation | Contained in the SweetPea-Application distribution. |
SweetPea::Application::View - Model support for SweetPea-Application.
... from inside SweetPea::Application or a Controller;
#access View::Email::welcome_letter()
$s->view('Email')->welcome_letter();
The new method instantiates a new SweetPea::Application::View object
which loads view packages on requests ands provides accessors to it's
functions.
$s->plug( 'view', sub { return SweetPea::Application::View->new($s); });
Al Newkirk, <al.newkirk at awnstudio.com>
| SweetPea-Application documentation | Contained in the SweetPea-Application distribution. |
package SweetPea::Application::View; use warnings; use strict;
our $VERSION = '0.001';
sub new { my ($class, $s, $view) = @_; my $self = {}; my $pckg = $view; bless $self, $class; $view =~ s/^\///; $pckg =~ s/[\\\:]/\//g; $pckg = 'View::' . $view; $view = 'View/' . $view . '.pm'; require $view; return $pckg->new($s); }
1; # End of SweetPea::Application::View