Name

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

Version

Describes v0.17.$Rev: 1 $

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) 2014 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

cpanm CatalystX::Usul

perl -MCPAN -e shell
install CatalystX::Usul