++ed by:
MRDVT

1 PAUSE user

Michael R. Davis
and 1 contributors

NAME

DBIx::Array::Session::Action - Ties DBIx::Array->{"action"} to the database

SYNOPSIS

  use DBIx::Array;
  my $dbx=DBIx::Array->new;
  $dbx->connect($connection, $user, $pass, \%opt); #passed to DBI
  $dbx->{"action"}="Main";
  while ($this or $that) {
    local $dbx->{"action"}="This or That Loop";
  }

DESCRIPTION

This package ties the $dbx->{"action"} scalar to the database so that a local assignment to $dbx->{"action"} will set action twice. Once at the beginning and once at the end of the local variable scope.

USAGE

  $dbx->action("Default");
  { #any block
    local $dbx->{"action"}="block action";
    #action is now "block action".
  }
  #action is now "Default" again.

  foreach my $i (1 .. 5) {
    local $dbx->{"action"}="Loop $i";
    #action is now "Loop X".
  }
  #action is now "Default" again.

TIESCALAR

FETCH

Gets action from database

STORE

Sets Action in database

PROPERTIES

parent

  my $parent=$self->parent; #isa L<DBIx::Array>

BUGS

Send email to author and log on RT.

SUPPORT

DavisNetworks.com supports all Perl applications big or small.

AUTHOR

  Michael R. Davis
  CPAN ID: MRDVT
  STOP, LLC
  domain=>stopllc,tld=>com,account=>mdavis
  http://www.stopllc.com/

COPYRIGHT

This program is free software licensed under the...

  The BSD License

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

DBIx::Array