OpenFrame::WebApp::Segment::Decline::UserInSession - decline if User found in

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

Index

Code Index:

NAME

Top

OpenFrame::WebApp::Segment::Decline::UserInSession - decline if User found in Session

SYNOPSIS

Top

  # see OpenFrame::WebApp::Segment::Decline

  $OpenFrame::WebApp::Segment::Decline::UserInSession::USER_KEY = 'user';

DESCRIPTION

Top

Decline to process this pipe if a registered OpenFrame::WebApp::User is found in the session.

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

OpenFrame-WebApp documentation Contained in the OpenFrame-WebApp distribution. 
package OpenFrame::WebApp::Segment::Decline::UserInSession;

use strict;
use warnings::register;

use Pipeline::Production;
use OpenFrame::WebApp::Error::Abstract;

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

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

use constant message => 'declined: user in session';
our $USER_KEY = 'user';

sub should_decline {
    my $self = shift;
    return $self->get_user_from_session ? 1 : 0;
}

sub get_user_from_session {
    my $self    = shift;
    my $session = $self->get_session_from_store || return;
    return $session->get( $USER_KEY );
}

1;

__END__