POE-Stage

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

configure_requires:
    ExtUtils::MakeMaker:  0
build_requires:
    ExtUtils::MakeMaker:  0
requires:
    Attribute::Handlers:  0.78
    Devel::LexAlias:      0.04
    Hash::Util::FieldHash:  1.03
    Lexical::Persistence:  0.95
    Net::DNS:             0.53
    PadWalker:            1
    POE:                  1.007
    Scalar::Util:         1.18
    Test::More:           0
resources:
    license:     http://dev.perl.org/licenses/
    repository:  http://thirdlobe.com/svn/poe-stage/trunk
no_index:
    directory:
        - t
        - inc

Makefile.PL  view on Meta::CPAN

WriteMakefile(
  NAME         => 'POE::Stage',
  AUTHOR       => 'Rocco Caputo <rcaputo@cpan.org>',
  ABSTRACT     => 'a prototype of a successor to POE::Component',
  LICENSE      => 'perl',
  VERSION_FROM => 'lib/POE/Stage.pm',
  PREREQ_PM    => {
    'Attribute::Handlers'   => 0.78,
    'Net::DNS'              => 0.53,
    'PadWalker'             => 1.0,
    'Scalar::Util'          => 1.18,
    'POE'                   => 1.007,
    'Test::More'            => 0,
    'Devel::LexAlias'       => 0.04,
		'Lexical::Persistence'  => 0.95, # Currently unused.
		'Hash::Util::FieldHash' => 1.03,
  },
  META_ADD     => {
    resources  => {
      license    => 'http://dev.perl.org/licenses/',

lib/POE/Callback.pm  view on Meta::CPAN

It's used internally by the classes that comprise POE::Stage.

=cut

package POE::Callback;

use warnings;
use strict;

use PadWalker qw(var_name peek_my peek_sub);
use Scalar::Util qw(blessed reftype weaken);
use Devel::LexAlias qw(lexalias);
use Carp qw(croak);

# Track our wrappers to avoid wrapping them.  Otherwise hilarity may
# ensue.

my %callbacks;
use constant CB_SELF => 0;
use constant CB_NAME => 1;

lib/POE/Stage.pm  view on Meta::CPAN

use strict;

use vars qw($VERSION);
$VERSION = '0.060';

use POE::Session;

use Attribute::Handlers;
use Carp qw(croak);
use Devel::LexAlias qw(lexalias);
use PadWalker qw(var_name);

use Hash::Util::FieldHash;
use POE::Callback;

use POE::Request::Emit;
use POE::Request::Return;
use POE::Request::Recall;
use POE::Request qw(REQ_ID);

# Field hash tracks POE::Stage's out-of-band data for each object.