package Scaffold::Stash;
our $VERSION = '0.01';
use 5.8.8;
use Scaffold::Stash::View;
use Scaffold::Stash::Cookies;
use Scaffold::Stash::Controller;
use Scaffold::Class
version => $VERSION,
base => 'Scaffold::Base',
accessors => 'view controller cookies',
;
# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------
# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------
sub init {
my ($self, $config) = @_;
$self->{config} = $config;
$self->{view} = Scaffold::Stash::View->new();
$self->{controller} = Scaffold::Stash::Controller->new();
$self->{cookies} = Scaffold::Stash::Cookies->new(
request => $config->{request}
);
return $self;
}
1;
__END__
=head1 NAME
Scaffold::Stash - The base class for the stash within Scaffold
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 ACCESSORS
=over 4
=back
=head1 SEE ALSO
Scaffold
Scaffold::Base
Scaffold::Cache
Scaffold::Cache::FastMmap
Scaffold::Cache::Manager
Scaffold::Cache::Memcached
Scaffold::Class
Scaffold::Constants
Scaffold::Engine
Scaffold::Handler
Scaffold::Handler::Default
Scaffold::Handler::Favicon
Scaffold::Handler::Robots
Scaffold::Handler::Static
Scaffold::Lockmgr
Scaffold::Lockmgr::KeyedMutex
Scaffold::Lockmgr::UnixMutex
Scaffold::Plugins
Scaffold::Render
Scaffold::Render::Default
Scaffold::Render::TT
Scaffold::Routes
Scaffold::Server
Scaffold::Session::Manager
Scaffold::Stash
Scaffold::Stash::Controller
Scaffold::Stash::Cookie
Scaffold::Stash::View
Scaffold::Uaf::Authenticate
Scaffold::Uaf::AuthorizeFactory
Scaffold::Uaf::Authorize
Scaffold::Uaf::GrantAllRule
Scaffold::Uaf::Login
Scaffold::Uaf::Logout
Scaffold::Uaf::Manager
Scaffold::Uaf::Rule
Scaffold::Uaf::User
Scaffold::Utils
=head1 AUTHOR
Kevin L. Esteb, E<lt>kevin@kesteb.usE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009 by Kevin L. Esteb
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.
=cut