OpenFrame::WebApp::Segment::User::RequestLoader - a pipeline segment to load

OpenFrame-WebApp documentation Contained in the OpenFrame-WebApp distribution.

Index

Code Index:

NAME

Top

OpenFrame::WebApp::Segment::User::RequestLoader - a pipeline segment to load users from requests

SYNOPSIS

Top

  # see OpenFrame::WebApp::Segment::User::Loader for usage

  # get id from request param: http://123.com/?user_id=id
  $OpenFrame::WebApp::Segment::User::RequestLoader::USER_KEY = 'user_id';

DESCRIPTION

Top

The OpenFrame::WebApp::Segment::User::RequestLoader class is a user loader that gets user id's from the OpenFrame::Request object in store. It inherits its interface from OpenFrame::WebApp::Segment::User::Loader.

METHODS

Top

$id = $obj->find_user_id()

finds user id.

$id = $obj->look_in_request()

gets user id from OpenFrame::Request argument named $USER_KEY.

AUTHOR

Top

Steve Purkis <spurkis@epn.nu>

COPYRIGHT

Top

Copyright (c) 2003 Steve Purkis. All rights reserved. Released under the same license as Perl itself.

SEE ALSO

Top

OpenFrame::WebApp::User, OpenFrame::WebApp::User::Factory OpenFrame::WebApp::Segment::User::Loader

OpenFrame-WebApp documentation Contained in the OpenFrame-WebApp distribution. 
package OpenFrame::WebApp::Segment::User::RequestLoader;

use strict;
use warnings::register;

our $VERSION = (split(/ /, '$Revision: 1.1 $'))[1];

use base qw( OpenFrame::WebApp::Segment::User::Loader );

our $USER_KEY = 'user_id';

sub find_user_id {
    my $self = shift;
    return $self->look_in_request;
}

sub look_in_request {
    my $self    = shift;
    my $request = $self->store->get('OpenFrame::Request') || return;
    my $args    = $request->arguments || return;
    return $args->{$USER_KEY};
}


1;

__END__