/ 
CatalystX-Usul-0.9.0
/ CatalystX::Usul::Model::Session

Name

CatalystX::Usul::Model::Session - Current session information

Version

Describes v0.9.$Rev: 0 $

Synopsis

package YourApp;

use Moose;
use Catalyst qw(ConfigComponents...);

with qw(CatalystX::Usul::TraitFor::ListSessions);

$class->config
   ( 'Model::Session' => {
        base_class    => q(CatalystX::Usul::Model::Session) }, );

package YourApp::Controller::YourController;

sub sessions : Chained(common) Args(0) {
   my ($self, $c) = @_; my $s = $c->stash;

   $c->model( q(Session) )->list_sessions( $c );
   return;
}

sub ttys : Chained(common) Args(0) {
   my ($self, $c) = @_; my $s = $c->stash;

   $c->model( q(Session) )->list_TTY_sessions( $s );
   return;
}

Description

Provides a utility method to display current session information

Configuration and Environment

Defines the following list of attributes;

ipc_class

A loadable class which defaults to Class::Usul::IPC

table_class

A loadable class which defaults to Class::Usul::Response::Table These table objects are stashed and rendered later by HTML::FormWidgets::Table

Subroutines/Methods

build_per_context_instance

Returns a clone of the model instance. Instantiates query object

delete_session

$self->delete_session( $c, $sid );

Deletes the specified session

delete_sessions

$bool = $self->delete_sessions;

Delete the selected sessions. Returns true

list_sessions

$self->list_sessions;

Stuffs the stash with table data for the current user sessions

list_TTY_sessions

$self->list_TTY_sessions;

Calls "_list_TTY_sessions" to obtain a list of terminal sessions. Stuffs the stash with the data needed by HTML::FormWidgets to display this information as a table

_get_tty_session_table

$table_object = $self->_get_tty_session_table( $user_model );

Generates table data for current terminal sessions

Diagnostics

None

Dependencies

CatalystX::Usul::Model
CatalystX::Usul::TraitFor::Model::QueryingRequest
CatalystX::Usul::TraitFor::Model::StashHelper
CatalystX::Usul::Moose
Class::Usul::Response::Table
Class::Usul::Time

Incompatibilities

There are no known incompatibilities in this module

Bugs and Limitations

Only works with Catalyst::Session::FastMmap

There are no known bugs in this module. Please report problems to the address below. Patches are welcome

Author

Peter Flanigan, <Support at RoxSoft.co.uk>

License and Copyright

Copyright (c) 2013 Peter Flanigan. All rights reserved

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic

This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE