r66407 - in /branches/upstream/libpoex-role-sessioninstantiation-perl/current: ./ lib/POEx/Role/ lib/POEx/Role/SessionInstantiation/Meta/ lib/POEx/Role/SessionInstantiation/Meta/Session/ t/ t/lib/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Dec 25 23:54:48 UTC 2010
Author: jawnsy-guest
Date: Sat Dec 25 23:54:40 2010
New Revision: 66407
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66407
Log:
[svn-upgrade] new version libpoex-role-sessioninstantiation-perl (1.102610)
Added:
branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.json
Removed:
branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/release-pod-coverage.t
Modified:
branches/upstream/libpoex-role-sessioninstantiation-perl/current/Changes
branches/upstream/libpoex-role-sessioninstantiation-perl/current/MANIFEST
branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.yml
branches/upstream/libpoex-role-sessioninstantiation-perl/current/Makefile.PL
branches/upstream/libpoex-role-sessioninstantiation-perl/current/README
branches/upstream/libpoex-role-sessioninstantiation-perl/current/dist.ini
branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/Event.pm
branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation.pm
branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/POEState.pm
branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Events.pm
branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Implementation.pm
branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Magic.pm
branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Sugar.pm
branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/01-basic.t
branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/02-traits.t
branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/lib/MyTrait.pm
branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/release-pod-syntax.t
branches/upstream/libpoex-role-sessioninstantiation-perl/current/weaver.ini
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/Changes?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/Changes (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/Changes Sat Dec 25 23:54:40 2010
@@ -1,4 +1,8 @@
-Revision history for POEx-Role-SessionInstantiation: 1.101040
+Revision history for POEx-Role-SessionInstantiation: 1.102610
+
+1.102610 2010-09-18 15:23:33 America/Chicago
+ Move the braces as a work around for MXD/MXMS/DD bug on whitespace-before-braces
+ Update dzil files
1.101040 2010-04-14 10:17:12 America/Chicago
Make sure we add the consuming class to the super classes for anonymous clone
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/MANIFEST?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/MANIFEST (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/MANIFEST Sat Dec 25 23:54:40 2010
@@ -1,6 +1,7 @@
Changes
LICENSE
MANIFEST
+META.json
META.yml
Makefile.PL
README
@@ -16,6 +17,5 @@
t/01-basic.t
t/02-traits.t
t/lib/MyTrait.pm
-t/release-pod-coverage.t
t/release-pod-syntax.t
-weaver.ini
+weaver.ini
Added: branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.json?rev=66407&op=file
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.json (added)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.json Sat Dec 25 23:54:40 2010
@@ -1,0 +1,49 @@
+{
+ "abstract" : "A Moose Role for turning objects into POE Sessions",
+ "author" : [
+ "Nicholas Perez <nperez at cpan.org>"
+ ],
+ "dynamic_config" : 0,
+ "generated_by" : "Dist::Zilla version 4.102340, CPAN::Meta::Converter version 2.102400",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "POEx-Role-SessionInstantiation",
+ "prereqs" : {
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "6.31"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "MooseX::CompileTime::Traits" : 0,
+ "MooseX::Declare" : 0,
+ "MooseX::Types" : 0,
+ "MooseX::Types::Moose" : 0,
+ "POE" : 0,
+ "POEx::Types" : 0,
+ "aliased" : 0,
+ "overload" : 0
+ }
+ },
+ "test" : {
+ "requires" : {
+ "Test::More" : 0
+ }
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "repository" : {
+ "type" : "git",
+ "url" : "git://github.com/nperez/psm.git"
+ }
+ },
+ "version" : "1.102610"
+}
+
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.yml?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.yml (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/META.yml Sat Dec 25 23:54:40 2010
@@ -1,18 +1,18 @@
---
-abstract: 'Moose Role for turning ordinary objects into POE sessions'
+abstract: 'A Moose Role for turning objects into POE Sessions'
author:
- 'Nicholas Perez <nperez at cpan.org>'
build_requires:
Test::More: 0
configure_requires:
ExtUtils::MakeMaker: 6.31
-generated_by: 'Dist::Zilla version 2.100922'
+dynamic_config: 0
+generated_by: 'Dist::Zilla version 4.102340, CPAN::Meta::Converter version 2.102400'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: POEx-Role-SessionInstantiation
-recommends: {}
requires:
MooseX::CompileTime::Traits: 0
MooseX::Declare: 0
@@ -24,4 +24,4 @@
overload: 0
resources:
repository: git://github.com/nperez/psm.git
-version: 1.101040
+version: 1.102610
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/Makefile.PL?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/Makefile.PL (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/Makefile.PL Sat Dec 25 23:54:40 2010
@@ -9,37 +9,47 @@
my %WriteMakefileArgs = (
- 'test' => {
- 'TESTS' => 't/*.t'
- },
- 'NAME' => 'POEx::Role::SessionInstantiation',
- 'DISTNAME' => 'POEx-Role-SessionInstantiation',
- 'CONFIGURE_REQUIRES' => {
- 'ExtUtils::MakeMaker' => '6.31'
- },
- 'AUTHOR' => 'Nicholas Perez <nperez at cpan.org>',
- 'BUILD_REQUIRES' => {
- 'Test::More' => '0'
- },
- 'ABSTRACT' => 'Moose Role for turning ordinary objects into POE sessions',
- 'EXE_FILES' => [],
- 'VERSION' => '1.101040',
- 'PREREQ_PM' => {
- 'MooseX::Types::Moose' => '0',
- 'MooseX::Declare' => '0',
- 'overload' => '0',
- 'aliased' => '0',
- 'MooseX::CompileTime::Traits' => '0',
- 'MooseX::Types' => '0',
- 'POE' => '0',
- 'POEx::Types' => '0'
- },
- 'LICENSE' => 'perl'
- );
+ 'ABSTRACT' => 'A Moose Role for turning objects into POE Sessions',
+ 'AUTHOR' => 'Nicholas Perez <nperez at cpan.org>',
+ 'BUILD_REQUIRES' => {
+ 'Test::More' => '0'
+ },
+ 'CONFIGURE_REQUIRES' => {
+ 'ExtUtils::MakeMaker' => '6.31'
+ },
+ 'DISTNAME' => 'POEx-Role-SessionInstantiation',
+ 'EXE_FILES' => [],
+ 'LICENSE' => 'perl',
+ 'NAME' => 'POEx::Role::SessionInstantiation',
+ 'PREREQ_PM' => {
+ 'MooseX::CompileTime::Traits' => '0',
+ 'MooseX::Declare' => '0',
+ 'MooseX::Types' => '0',
+ 'MooseX::Types::Moose' => '0',
+ 'POE' => '0',
+ 'POEx::Types' => '0',
+ 'aliased' => '0',
+ 'overload' => '0'
+ },
+ 'VERSION' => '1.102610',
+ 'test' => {
+ 'TESTS' => 't/*.t'
+ }
+);
-delete $WriteMakefileArgs{BUILD_REQUIRES}
- unless eval { ExtUtils::MakeMaker->VERSION(6.56) };
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
+ my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
+ my $pp = $WriteMakefileArgs{PREREQ_PM};
+ for my $mod ( keys %$br ) {
+ if ( exists $pp->{$mod} ) {
+ $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
+ }
+ else {
+ $pp->{$mod} = $br->{$mod};
+ }
+ }
+}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/README?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/README (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/README Sat Dec 25 23:54:40 2010
@@ -1,9 +1,9 @@
This archive contains the distribution POEx-Role-SessionInstantiation,
-version 1.101040:
+version 1.102610:
- Moose Role for turning ordinary objects into POE sessions
+ A Moose Role for turning objects into POE Sessions
This software is copyright (c) 2010 by Nicholas Perez.
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/dist.ini?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/dist.ini (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/dist.ini Sat Dec 25 23:54:40 2010
@@ -2,14 +2,19 @@
author = Nicholas Perez <nperez at cpan.org>
license = Perl_5
copyright_holder = Nicholas Perez
-abstract = Moose Role for turning ordinary objects into POE sessions
+copyright_year = 2010
-[@Classic]
+[@Basic]
[AutoVersion]
+[PkgVersion]
[PodWeaver]
-[NextRelease]
[AutoPrereq]
[Prereq]
-MooseX::CompileTime::Traits = 0
+MooseX::CompileTime::Traits = 0
+[NextRelease]
+[PodSyntaxTests]
+[MetaJSON]
[MetaResources]
-repository = git://github.com/nperez/psm.git
+repository.url = git://github.com/nperez/psm.git
+repository.type = git
+[@Git]
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/Event.pm?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/Event.pm (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/Event.pm Sat Dec 25 23:54:40 2010
@@ -1,6 +1,6 @@
package POEx::Role::Event;
BEGIN {
- $POEx::Role::Event::VERSION = '1.101040';
+ $POEx::Role::Event::VERSION = '1.102610';
}
#ABSTRACT: Provide a decorator to label events
@@ -21,11 +21,11 @@
=head1 VERSION
-version 1.101040
+version 1.102610
=head1 AUTHOR
- Nicholas Perez <nperez at cpan.org>
+Nicholas Perez <nperez at cpan.org>
=head1 COPYRIGHT AND LICENSE
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation.pm?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation.pm (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation.pm Sat Dec 25 23:54:40 2010
@@ -1,14 +1,13 @@
package POEx::Role::SessionInstantiation;
BEGIN {
- $POEx::Role::SessionInstantiation::VERSION = '1.101040';
+ $POEx::Role::SessionInstantiation::VERSION = '1.102610';
}
use MooseX::Declare;
#ABSTRACT: A Moose Role for turning objects into POE Sessions
-role POEx::Role::SessionInstantiation with MooseX::CompileTime::Traits
-{
+role POEx::Role::SessionInstantiation with MooseX::CompileTime::Traits {
with 'POEx::Role::SessionInstantiation::Meta::Session::Magic';
with 'POEx::Role::SessionInstantiation::Meta::Session::Implementation';
with 'POEx::Role::SessionInstantiation::Meta::Session::Events';
@@ -26,7 +25,7 @@
=head1 VERSION
-version 1.101040
+version 1.102610
=head1 DESCRIPTION
@@ -258,7 +257,7 @@
=head1 AUTHOR
- Nicholas Perez <nperez at cpan.org>
+Nicholas Perez <nperez at cpan.org>
=head1 COPYRIGHT AND LICENSE
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/POEState.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/POEState.pm?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/POEState.pm (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/POEState.pm Sat Dec 25 23:54:40 2010
@@ -1,6 +1,6 @@
package POEx::Role::SessionInstantiation::Meta::POEState;
BEGIN {
- $POEx::Role::SessionInstantiation::Meta::POEState::VERSION = '1.101040';
+ $POEx::Role::SessionInstantiation::Meta::POEState::VERSION = '1.102610';
}
use MooseX::Declare;
@@ -27,8 +27,7 @@
has from => ( is => 'ro', isa => Maybe[Str] );
- method clone
- {
+ method clone {
return $self->meta->clone_object($self);
}
}
@@ -45,7 +44,7 @@
=head1 VERSION
-version 1.101040
+version 1.102610
=head1 PUBLIC_ATTRIBUTES
@@ -88,7 +87,7 @@
=head1 AUTHOR
- Nicholas Perez <nperez at cpan.org>
+Nicholas Perez <nperez at cpan.org>
=head1 COPYRIGHT AND LICENSE
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Events.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Events.pm?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Events.pm (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Events.pm Sat Dec 25 23:54:40 2010
@@ -1,20 +1,18 @@
package POEx::Role::SessionInstantiation::Meta::Session::Events;
BEGIN {
- $POEx::Role::SessionInstantiation::Meta::Session::Events::VERSION = '1.101040';
+ $POEx::Role::SessionInstantiation::Meta::Session::Events::VERSION = '1.102610';
}
#ABSTRACT: Provides default events such as _start, _stop, etc
use MooseX::Declare;
-role POEx::Role::SessionInstantiation::Meta::Session::Events
-{
+role POEx::Role::SessionInstantiation::Meta::Session::Events {
use POEx::Types(':all');
use aliased 'POEx::Role::Event';
- method _start is Event
- {
+ method _start is Event {
if($self->alias)
{
# inside a poe context now, so fire the trigger
@@ -24,31 +22,23 @@
}
- method _stop() is Event
- {
+ method _stop() is Event {
$self->clear_alias();
1;
}
- method _default(Maybe[ArrayRef] $args) is Event
- {
+ method _default(Maybe[ArrayRef] $args) is Event {
my $string = defined($self->alias) ? $self->alias : $self->ID;
my $state = $self->poe->state;
warn "Nonexistent '$state' event delivered to $string";
}
- method _child(Str $event, Session|DoesSessionInstantiation $child, Any $ret) is Event
- {
- 1;
- }
+ method _child(Str $event, Session|DoesSessionInstantiation $child, Any $ret) is Event { 1; }
- method _parent(Session|DoesSessionInstantiation|Kernel $previous_parent, Session|DoesSessionInstantiation|Kernel $new_parent) is Event
- {
- 1;
- }
+ method _parent(Session|DoesSessionInstantiation|Kernel $previous_parent, Session|DoesSessionInstantiation|Kernel $new_parent) is Event { 1; }
}
1;
@@ -63,7 +53,7 @@
=head1 VERSION
-version 1.101040
+version 1.102610
=head1 PRIVATE_METHODS
@@ -112,7 +102,7 @@
=head1 AUTHOR
- Nicholas Perez <nperez at cpan.org>
+Nicholas Perez <nperez at cpan.org>
=head1 COPYRIGHT AND LICENSE
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Implementation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Implementation.pm?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Implementation.pm (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Implementation.pm Sat Dec 25 23:54:40 2010
@@ -1,14 +1,13 @@
package POEx::Role::SessionInstantiation::Meta::Session::Implementation;
BEGIN {
- $POEx::Role::SessionInstantiation::Meta::Session::Implementation::VERSION = '1.101040';
+ $POEx::Role::SessionInstantiation::Meta::Session::Implementation::VERSION = '1.102610';
}
#ABSTRACT: Provides actual POE::Session implementation
use MooseX::Declare;
-role POEx::Role::SessionInstantiation::Meta::Session::Implementation
-{
+role POEx::Role::SessionInstantiation::Meta::Session::Implementation {
use POE;
use MooseX::Types;
use POEx::Types(':all');
@@ -46,8 +45,7 @@
lazy_build => 1,
);
- method _build_poe
- {
+ method _build_poe {
return POEState->new();
}
@@ -74,8 +72,7 @@
clearer => '_clear_alias',
);
- method clear_alias
- {
+ method clear_alias {
# we need to check to make sure we are currently in a POE context
return if not defined($self->poe->kernel);
$self->poe->kernel->alias_remove($self->alias()) if $self->alias;
@@ -92,8 +89,7 @@
);
- method _invoke_state(Kernel|Session|DoesSessionInstantiation $sender, Str $state, ArrayRef $etc, Maybe[Str] $file, Maybe[Int] $line, Maybe[Str] $from)
- {
+ method _invoke_state(Kernel|Session|DoesSessionInstantiation $sender, Str $state, ArrayRef $etc, Maybe[Str] $file, Maybe[Int] $line, Maybe[Str] $from) {
my $method = $self->meta->find_method_by_name($state) || $self->meta->find_method_by_name('_default');
if(defined($method))
@@ -163,8 +159,7 @@
}
- method _register_state (Str $method_name, Maybe[CodeRef|MooseX::Method::Signatures::Meta::Method] $coderef, Maybe[Str] $ignore)
- {
+ method _register_state (Str $method_name, Maybe[CodeRef|MooseX::Method::Signatures::Meta::Method] $coderef, Maybe[Str] $ignore) {
# per instance changes
$self = $self->_clone_self();
@@ -231,8 +226,7 @@
# Note: this is a horrible hack.
- method _wheel_wrap_method (CodeRef|MooseX::Method::Signatures::Meta::Method $ref)
- {
+ method _wheel_wrap_method (CodeRef|MooseX::Method::Signatures::Meta::Method $ref) {
sub
{
my $obj = shift;
@@ -278,7 +272,7 @@
=head1 VERSION
-version 1.101040
+version 1.102610
=head1 PUBLIC_ATTRIBUTES
@@ -381,7 +375,7 @@
=head1 AUTHOR
- Nicholas Perez <nperez at cpan.org>
+Nicholas Perez <nperez at cpan.org>
=head1 COPYRIGHT AND LICENSE
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Magic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Magic.pm?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Magic.pm (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Magic.pm Sat Dec 25 23:54:40 2010
@@ -1,14 +1,13 @@
package POEx::Role::SessionInstantiation::Meta::Session::Magic;
BEGIN {
- $POEx::Role::SessionInstantiation::Meta::Session::Magic::VERSION = '1.101040';
+ $POEx::Role::SessionInstantiation::Meta::Session::Magic::VERSION = '1.102610';
}
use MooseX::Declare;
#ABSTRACT: Provides the magic necessary to integrate with POE
-role POEx::Role::SessionInstantiation::Meta::Session::Magic
-{
+role POEx::Role::SessionInstantiation::Meta::Session::Magic {
use POE;
use MooseX::Types::Moose(':all');
@@ -47,15 +46,13 @@
after BUILD { $self->_post_build() }
- method _post_build
- {
+ method _post_build {
$self->_overload_magic();
$self->_poe_register();
}
- method _overload_magic
- {
+ method _overload_magic {
#enable overload in the composed class (ripped from overload.pm)
{
no strict 'refs';
@@ -70,16 +67,14 @@
}
- method _poe_register
- {
+ method _poe_register {
#this registers us with the POE::Kernel
$POE::Kernel::poe_kernel->session_alloc($self, @{$self->args()})
if not $self->orig;
}
- method _clone_self
- {
+ method _clone_self {
# we only need to clone once
if($self->orig)
{
@@ -154,7 +149,7 @@
=head1 VERSION
-version 1.101040
+version 1.102610
=head1 PRIVATE_ATTRIBUTES
@@ -217,7 +212,7 @@
=head1 AUTHOR
- Nicholas Perez <nperez at cpan.org>
+Nicholas Perez <nperez at cpan.org>
=head1 COPYRIGHT AND LICENSE
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Sugar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Sugar.pm?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Sugar.pm (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/lib/POEx/Role/SessionInstantiation/Meta/Session/Sugar.pm Sat Dec 25 23:54:40 2010
@@ -1,31 +1,27 @@
package POEx::Role::SessionInstantiation::Meta::Session::Sugar;
BEGIN {
- $POEx::Role::SessionInstantiation::Meta::Session::Sugar::VERSION = '1.101040';
+ $POEx::Role::SessionInstantiation::Meta::Session::Sugar::VERSION = '1.102610';
}
#ABSTRACT: Provides some convenience methods for some POE::Kernel methods
use MooseX::Declare;
-role POEx::Role::SessionInstantiation::Meta::Session::Sugar
-{
+role POEx::Role::SessionInstantiation::Meta::Session::Sugar {
use POEx::Types(':all');
- method post(SessionAlias|SessionID|Session|DoesSessionInstantiation $session, Str $event_name, @args)
- {
+ method post(SessionAlias|SessionID|Session|DoesSessionInstantiation $session, Str $event_name, @args) {
confess('No POE context') if not defined($self->poe->kernel);
return $self->poe->kernel->post($session, $event_name, @args);
}
- method yield(Str $event_name, @args)
- {
+ method yield(Str $event_name, @args) {
confess('No POE context') if not defined($self->poe->kernel);
return $self->poe->kernel->yield($event_name, @args);
}
- method call(SessionAlias|SessionID|Session|DoesSessionInstantiation $session, Str $event_name, @args)
- {
+ method call(SessionAlias|SessionID|Session|DoesSessionInstantiation $session, Str $event_name, @args) {
confess('No POE context') if not defined($self->poe->kernel);
return $self->poe->kernel->call($session, $event_name, @args);
}
@@ -42,7 +38,7 @@
=head1 VERSION
-version 1.101040
+version 1.102610
=head1 PUBLIC_METHODS
@@ -52,7 +48,7 @@
=head1 AUTHOR
- Nicholas Perez <nperez at cpan.org>
+Nicholas Perez <nperez at cpan.org>
=head1 COPYRIGHT AND LICENSE
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/01-basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/01-basic.t?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/01-basic.t (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/01-basic.t Sat Dec 25 23:54:40 2010
@@ -4,44 +4,36 @@
my $test = 0;
-class My::Session
-{
+class My::Session {
use aliased 'POEx::Role::Event';
with 'POEx::Role::SessionInstantiation';
- method _stop is Event
- {
+ method _stop is Event {
Test::More::pass('Stop called');
}
- after _start(@args) is Event
- {
+ after _start(@args) is Event {
Test::More::pass('Start called');
$self->yield('foo');
}
- method foo is Event
- {
+ method foo is Event {
Test::More::pass('foo called');
if($test == 0)
{
$self->poe()->kernel()->state
(
'bar',
- method
- {
+ method {
Test::More::pass('bar called');
- class Foo
- {
+ class Foo {
with 'POEx::Role::SessionInstantiation';
use aliased 'POEx::Role::Event';
- after _start is Event
- {
+ after _start is Event {
Test::More::pass('after _start called');
}
- method blat is Event
- {
+ method blat is Event {
Test::More::pass('blat called');
$self->clear_alias;
}
@@ -50,17 +42,14 @@
Foo->new( options => { 'trace' => 1 }, alias => 'blat_alias' );
$self->post('blat_alias', 'blat');
- class Bar
- {
+ class Bar {
with 'POEx::Role::SessionInstantiation';
use aliased 'POEx::Role::Event';
- method flarg is Event
- {
+ method flarg is Event {
Test::More::pass('flarg called');
$self->clear_alias;
}
- before _stop is Event
- {
+ before _stop is Event {
Test::More::pass('before _stop called');
}
}
@@ -89,8 +78,7 @@
$self->yield('bar');
}
- method _default(@args) is Event
- {
+ method _default(@args) is Event {
if($self->poe->state eq 'foo')
{
$test++;
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/02-traits.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/02-traits.t?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/02-traits.t (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/02-traits.t Sat Dec 25 23:54:40 2010
@@ -4,64 +4,55 @@
use lib 't/lib';
-class My::Session
-{
+class My::Session {
use Test::More;
use aliased 'POEx::Role::Event';
use MyTrait;
use POEx::Role::SessionInstantiation traits => [ MyTrait => { attr => 'foo' }, MyTrait => { attr => 'bar' } ];
with 'POEx::Role::SessionInstantiation';
- method _stop is Event
- {
+ method _stop is Event {
is($self->foo, 1, 'Trait worked appropriately: foo');
is($self->bar, 1, 'Trait worked appropriately: bar');
pass('Stop called');
}
- after _start is Event
- {
+ after _start is Event {
pass('Start called');
}
}
-class My::Session2
-{
+class My::Session2 {
use Test::More;
use aliased 'POEx::Role::Event';
use MyTrait;
use POEx::Role::SessionInstantiation traits => [ 'MyTrait' => { attr => 'baz' } ];
with 'POEx::Role::SessionInstantiation';
- method _stop is Event
- {
+ method _stop is Event {
is($self->baz, 1, 'Trait worked appropriately: baz');
pass('Stop called');
}
- after _start is Event
- {
+ after _start is Event {
pass('Start called');
}
}
-class My::Session3
-{
+class My::Session3 {
use Test::More;
use aliased 'POEx::Role::Event';
use MyTrait;
use POEx::Role::SessionInstantiation traits => [ 'MyTrait', MyTrait => { attr => 'zarg' } ];
with 'POEx::Role::SessionInstantiation';
- method _stop is Event
- {
+ method _stop is Event {
is($self->blarg, 1, 'Trait worked appropriately: blarg');
is($self->zarg, 1, 'Trait worked appropriately: zarg');
pass('Stop called');
}
- after _start is Event
- {
+ after _start is Event {
pass('Start called');
}
}
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/lib/MyTrait.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/lib/MyTrait.pm?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/lib/MyTrait.pm (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/lib/MyTrait.pm Sat Dec 25 23:54:40 2010
@@ -1,8 +1,6 @@
-{package MyTrait;}
use MooseX::Declare;
-role MyTrait(Str :$attr = 'blarg')
-{
+role MyTrait(Str :$attr = 'blarg') {
use Test::More;
use aliased 'POEx::Role::Event';
use MooseX::Types::Moose('Int');
@@ -11,8 +9,7 @@
has $attr => ( is => 'rw', isa => Int );
- after _start is Event
- {
+ after _start is Event {
$self->$attr(1);
pass("Trait start called and attribute($attr) set");
}
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/release-pod-syntax.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/release-pod-syntax.t?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/release-pod-syntax.t (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/t/release-pod-syntax.t Sat Dec 25 23:54:40 2010
@@ -9,7 +9,7 @@
use Test::More;
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+eval "use Test::Pod 1.41";
+plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
-all_pod_files_ok();
+all_pod_files_ok();
Modified: branches/upstream/libpoex-role-sessioninstantiation-perl/current/weaver.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoex-role-sessioninstantiation-perl/current/weaver.ini?rev=66407&op=diff
==============================================================================
--- branches/upstream/libpoex-role-sessioninstantiation-perl/current/weaver.ini (original)
+++ branches/upstream/libpoex-role-sessioninstantiation-perl/current/weaver.ini Sat Dec 25 23:54:40 2010
@@ -6,6 +6,9 @@
[Generic / SYNOPSIS]
[Generic / DESCRIPTION]
[Generic / OVERVIEW]
+
+[Collect / CLASS_METHODS]
+command = class_method
[Collect / PUBLIC_ATTRIBUTES]
command = attribute_public
@@ -26,6 +29,9 @@
[Collect / COERCIONS]
command = coerce
+[Collect / CONSTANTS]
+command = constant
+
[Leftovers]
[Authors]
More information about the Pkg-perl-cvs-commits
mailing list