MooseX::POE::Meta::Trait::SweetArgs - Yes, its a trap... i mean trait

MooseX-POE documentation

Contained in the MooseX-POE distribution.

Index

NAME
VERSION
SYNOPSIS
DESCRIPTION
SUBROUTINES / METHODS
AUTHORS
COPYRIGHT AND LICENSE

Code Index:

package MooseX::POE::Meta::Trait::SweetArgs
__END__
EOF

NAME

MooseX::POE::Meta::Trait::SweetArgs - Yes, its a trap... i mean trait

VERSION

version 0.214

SYNOPSIS

use MooseX::POE::Meta::Trait::SweetArgs;

DESCRIPTION

The MooseX::POE::Meta::Trait::SweetArgs class implements ...

SUBROUTINES / METHODS

There are no public methods.

AUTHORS

Chris Prather <chris@prather.org>
Ash Berlin <ash@cpan.org>
Chris Williams <chris@bingosnet.co.uk>
Yuval (nothingmuch) Kogman
Torsten Raudssus <torsten@raudssus.de> http://www.raudssus.de/

COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Chris Prather, Ash Berlin, Chris Williams, Yuval Kogman, Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

MooseX-POE documentation

Contained in the MooseX-POE distribution.

package MooseX::POE::Meta::Trait::SweetArgs;
BEGIN {
  $MooseX::POE::Meta::Trait::SweetArgs::VERSION = '0.214';
}
# ABSTRACT: Yes, its a trap... i mean trait

use Moose::Role;

around add_state_method => sub {
  my $orig = shift;
  my ($self, $name, $method) = @_;
  $orig->($self, $name, sub {
    $method->(@_[POE::Session::OBJECT(), POE::Session::ARG0()..$#_])
  });
}; 

no Moose::Role;

1;


__END__