OpenFrame::WebApp::Segment::User::SaveInSession - save user to session.

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

Index

Code Index:

NAME

Top

OpenFrame::WebApp::Segment::User::SaveInSession - save user to session.

SYNOPSIS

Top

  use Pipeline;
  use OpenFrame::WebApp;

  my $pipe = new Pipeline;

  $OpenFrame::WebApp::Segment::User::Session::USER_KEY = 'my_user';

  my $usaver = new OpenFrame::WebApp::Segment::User::SaveInSession;
  $pipe->add_segment( $uloader, ... $usaver, ... );

  $pipe->dispatch;

DESCRIPTION

Top

Save a User into the Session if both objects can be found in the store.

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::Segment::User, OpenFrame::WebApp::Segment::User::Session

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

use strict;
use warnings::register;

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

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

sub dispatch {
    my $self = shift;
    my $user = $self->get_user_from_store || return;
    return $self->save_user_in_session( $user );
}

1;

__END__