OpenFrame::WebApp::Segment::Session::Saver - pipeline segment to save sessions

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

Index

Code Index:

NAME

Top

OpenFrame::WebApp::Segment::Session::Saver - pipeline segment to save sessions

SYNOPSIS

Top

  # installed automatically in cleanup pipeline
  # by OpenFrame::WebApp::Segment::Session::Loader

DESCRIPTION

Top

The OpenFrame::WebApp::Segment::Session::Saver is a session saving segment. It inherits its interface from Pipeline::Segment.

On dispatch() the session stored.

METHODS

Top

session

set/get the OpenFrame::WebApp::Session object.

dispatch

dispatch this segment.

AUTHOR

Top

Steve Purkis <spurkis@epn.nu>

Based on OpenFrame::AppKit::Segment::SessionLoader, by James A. Duncan

COPYRIGHT

Top

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

SEE ALSO

Top

OpenFrame::WebApp::Session, OpenFrame::WebApp::Segment::Session::Loader

OpenFrame-WebApp documentation Contained in the OpenFrame-WebApp distribution. 
package OpenFrame::WebApp::Segment::Session::Saver;

use strict;
use warnings::register;

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

use base qw( Pipeline::Segment );

sub session {
    my $self = shift;
    if (@_) {
	$self->{session} = shift;
	return $self;
    } else {
	return $self->{session};
    }
}

sub dispatch {
    my $self = shift;
    $self->session->store();
}


1;


__END__