| OpenFrame-WebApp documentation | Contained in the OpenFrame-WebApp distribution. |
OpenFrame::WebApp::Segment::User::SessionLoader - a pipeline segment to load users from sessions
# see OpenFrame::WebApp::Segment::User::Loader for usage $OpenFrame::WebApp::Segment::User::Session::USER_KEY = 'my_user';
Load a User from the stored Session.
Steve Purkis <spurkis@epn.nu>
Copyright (c) 2003 Steve Purkis. All rights reserved. Released under the same license as Perl itself.
| OpenFrame-WebApp documentation | Contained in the OpenFrame-WebApp distribution. |
package OpenFrame::WebApp::Segment::User::SessionLoader; use strict; use warnings::register; use base qw( OpenFrame::WebApp::Segment::User::Loader OpenFrame::WebApp::Segment::User::Session ); our $VERSION = (split(/ /, '$Revision: 1.1 $'))[1]; sub get_user { my $self = shift; return $self->get_user_from_session; } 1; __END__