Code Index:

package Gantry::Stash::Controller
package controller
- AUTOLOAD
- DESTROY
- new
- data
__END__
EOF

NAME

Gantry::Stash::Controller - Stash object for the controller

SYNOPSIS

    $self->stash->controller->data( {} );

DESCRIPTION

Controller data is an alternative to things like pnotes for data you want to track during a single requiest.

METHODS

data

LIMITATIONS

AUTHOR

Phil Crow <pcrow@sunflowerbroadband.com> Tim Keefer <tkeefer@gmail.com>

COPYRIGHT and LICENSE

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.6 or, at your option, any later version of Perl 5 you may have available.

package Gantry::Stash::Controller; package controller; #------------------------------------------------- # AUTOLOAD #------------------------------------------------- sub AUTOLOAD { my $self = shift; my $command = our $AUTOLOAD; $command =~ s/.*://; die( "Undefined stash->controller method $command" ); } # end AUTOLOAD #------------------------------------------------- # DESTROY #------------------------------------------------- sub DESTROY { } #------------------------------------------------- # new #------------------------------------------------- sub new { my $class = shift; my $self = bless( {}, $class ); return $self; } # end new #------------------------------------------------- # data( value ) #------------------------------------------------- sub data { my( $self, $p ) = ( shift, shift ); $self->{__DATA__} = $p if defined $p; return( $self->{__DATA__} ); } # end data 1; __END__