Hello community,
here is the log from the commit of package perl-MooseX-POE for openSUSE:Factory checked in at 2012-06-01 07:22:34
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-MooseX-POE (Old)
and /work/SRC/openSUSE:Factory/.perl-MooseX-POE.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MooseX-POE", Maintainer is ""
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-MooseX-POE/perl-MooseX-POE.changes 2011-12-30 08:46:17.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-MooseX-POE.new/perl-MooseX-POE.changes 2012-06-01 07:22:39.000000000 +0200
@@ -1,0 +2,6 @@
+Mon May 28 13:45:46 UTC 2012 - coolo@suse.com
+
+- updated to 0.215
+ * no changelog (actually an improvement against 0.214)
+
+-------------------------------------------------------------------
Old:
----
MooseX-POE-0.214.tar.gz
New:
----
MooseX-POE-0.215.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-MooseX-POE.spec ++++++
--- /var/tmp/diff_new_pack.QLcxmH/_old 2012-06-01 07:22:41.000000000 +0200
+++ /var/tmp/diff_new_pack.QLcxmH/_new 2012-06-01 07:22:41.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-MooseX-POE
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,11 +17,11 @@
Name: perl-MooseX-POE
-Version: 0.214
+Version: 0.215
Release: 0
%define cpan_name MooseX-POE
Summary: The Illicit Love Child of Moose and POE
-License: GPL-1.0+ or Artistic-1.0
+License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/MooseX-POE/
Source: http://www.cpan.org/authors/id/G/GE/GETTY/%{cpan_name}-%{version}.tar.gz
@@ -29,12 +29,42 @@
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(Moose) >= 0.90
-BuildRequires: perl(POE) >= 1.004
+BuildRequires: perl(Moose) >= 2.0002
+BuildRequires: perl(POE) >= 1.310
BuildRequires: perl(Test::Fatal) >= 0.003
BuildRequires: perl(Test::More) >= 0.90
-Requires: perl(Moose) >= 0.90
-Requires: perl(POE) >= 1.004
+#BuildRequires: perl(Base)
+#BuildRequires: perl(Coro)
+#BuildRequires: perl(Coro::Semaphore)
+#BuildRequires: perl(Coro::Util)
+#BuildRequires: perl(Device::SerialPort)
+#BuildRequires: perl(Getty)
+#BuildRequires: perl(JSON::Any)
+#BuildRequires: perl(Moose::Exporter)
+#BuildRequires: perl(Moose::Meta::Method)
+#BuildRequires: perl(Moose::Role)
+#BuildRequires: perl(MooseX::Coro)
+#BuildRequires: perl(MooseX::Daemonize)
+#BuildRequires: perl(MooseX::POE)
+#BuildRequires: perl(MooseX::POE::Aliased)
+#BuildRequires: perl(MooseX::POE::Meta::Method::State)
+#BuildRequires: perl(MooseX::POE::Meta::Role)
+#BuildRequires: perl(MooseX::POE::Meta::Trait)
+#BuildRequires: perl(MooseX::POE::Role)
+#BuildRequires: perl(MooseX::POE::SweetArgs)
+#BuildRequires: perl(MooseX::Workers)
+#BuildRequires: perl(mxpoe)
+#BuildRequires: perl(Pants)
+#BuildRequires: perl(POE::Filter::Line)
+#BuildRequires: perl(POE::Session)
+#BuildRequires: perl(POE::Wheel::ReadLine)
+#BuildRequires: perl(POE::Wheel::ReadWrite)
+#BuildRequires: perl(Rollo)
+#BuildRequires: perl(Sys::Mmap)
+#BuildRequires: perl(Test::Memory::Cycle)
+#BuildRequires: perl(Test::Moose)
+Requires: perl(Moose) >= 2.0002
+Requires: perl(POE) >= 1.310
%{perl_requires}
%description
@@ -43,7 +73,6 @@
%prep
%setup -q -n %{cpan_name}-%{version}
-find . -type f -print0 | xargs -0 chmod 644
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -57,11 +86,8 @@
%perl_process_packlist
%perl_gen_filelist
-%clean
-%{__rm} -rf %{buildroot}
-
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc bench Changes ex LICENSE README README.md
+%doc Changes LICENSE README README.md
%changelog
++++++ MooseX-POE-0.214.tar.gz -> MooseX-POE-0.215.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/Changes new/MooseX-POE-0.215/Changes
--- old/MooseX-POE-0.214/Changes 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/Changes 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,7 @@
Revision history for MooseX-POE
+0.215 2012-04-25 18:06:29 Europe/Berlin
+
0.214 2011-05-03 00:30:50 Europe/Berlin
+ Bumped versions for being more modern ;) (Getty)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/MANIFEST new/MooseX-POE-0.215/MANIFEST
--- old/MooseX-POE-0.214/MANIFEST 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/MANIFEST 2012-04-25 18:06:46.000000000 +0200
@@ -35,10 +35,12 @@
t/03_extend.t
t/04_with.t
t/04_with_before.t
+t/04_with_before_fixed.t
t/04_with_override.t
t/05_daemonize.t
t/06_sweet.t
t/07_aliased.t
+t/07_aliased_assert.t
t/08_moosex_declare.t
t/09_extend.t
t/10_immutability.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/META.json new/MooseX-POE-0.215/META.json
--- old/MooseX-POE-0.214/META.json 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/META.json 2012-04-25 18:06:46.000000000 +0200
@@ -8,7 +8,7 @@
"Torsten Raudssus Lhttp://www.raudssus.de/"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.200005, CPAN::Meta::Converter version 2.110240",
+ "generated_by" : "Dist::Zilla version 4.300014, CPAN::Meta::Converter version 2.120630",
"license" : [
"perl_5"
],
@@ -25,7 +25,7 @@
"prereqs" : {
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : "6.31"
+ "ExtUtils::MakeMaker" : "6.30"
}
},
"runtime" : {
@@ -43,14 +43,14 @@
},
"release_status" : "stable",
"resources" : {
- "homepage" : "http://github.com/perigrin/moosex-poe/tree",
+ "homepage" : "https://github.com/perigrin/moosex-poe",
"repository" : {
"type" : "git",
"url" : "git://github.com/perigrin/moosex-poe.git",
"web" : "http://github.com/perigrin/moosex-poe"
}
},
- "version" : "0.214",
+ "version" : "0.215",
"x_Dist_Zilla" : {
"plugins" : [
{
@@ -62,7 +62,7 @@
}
},
"name" : "Prereqs",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
@@ -73,112 +73,112 @@
}
},
"name" : "TestRequires",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::GatherDir",
"name" : "@Basic/GatherDir",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@Basic/PruneCruft",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::ManifestSkip",
"name" : "@Basic/ManifestSkip",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::MetaYAML",
"name" : "@Basic/MetaYAML",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::License",
"name" : "@Basic/License",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::Readme",
"name" : "@Basic/Readme",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::ExtraTests",
"name" : "@Basic/ExtraTests",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
"name" : "@Basic/ExecDir",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::ShareDir",
"name" : "@Basic/ShareDir",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::MakeMaker",
"name" : "@Basic/MakeMaker",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::Manifest",
"name" : "@Basic/Manifest",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::TestRelease",
"name" : "@Basic/TestRelease",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::ConfirmRelease",
"name" : "@Basic/ConfirmRelease",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::UploadToCPAN",
"name" : "@Basic/UploadToCPAN",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::Git::NextVersion",
"name" : "Git::NextVersion",
- "version" : "1.110500"
+ "version" : "1.112510"
},
{
"class" : "Dist::Zilla::Plugin::PkgVersion",
"name" : "PkgVersion",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "MetaConfig",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "MetaJSON",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::NextRelease",
"name" : "NextRelease",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
"name" : "PodSyntaxTests",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::GithubMeta",
"name" : "GithubMeta",
- "version" : "0.10"
+ "version" : "0.26"
},
{
"class" : "Dist::Zilla::Plugin::PodWeaver",
@@ -188,60 +188,70 @@
{
"class" : "Dist::Zilla::Plugin::Repository",
"name" : "Repository",
- "version" : "0.17"
+ "version" : "0.18"
},
{
"class" : "Dist::Zilla::Plugin::MetaNoIndex",
"name" : "MetaNoIndex",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::Git::Check",
"name" : "@Git/Check",
- "version" : "1.110500"
+ "version" : "1.112510"
},
{
"class" : "Dist::Zilla::Plugin::Git::Commit",
"name" : "@Git/Commit",
- "version" : "1.110500"
+ "version" : "1.112510"
},
{
"class" : "Dist::Zilla::Plugin::Git::Tag",
"name" : "@Git/Tag",
- "version" : "1.110500"
+ "version" : "1.112510"
},
{
"class" : "Dist::Zilla::Plugin::Git::Push",
"name" : "@Git/Push",
- "version" : "1.110500"
+ "version" : "1.112510"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
- "version" : "4.200005"
+ "version" : "4.300014"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":IncModules",
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":TestFiles",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExecFiles",
- "version" : "4.200005"
+ "version" : "4.300014"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ShareFiles",
- "version" : "4.200005"
+ "version" : "4.300014"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":MainModule",
+ "version" : "4.300014"
}
],
"zilla" : {
"class" : "Dist::Zilla::Dist::Builder",
"config" : {
- "is_trial" : 0
+ "is_trial" : "0"
},
- "version" : "4.200005"
+ "version" : "4.300014"
}
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/META.yml new/MooseX-POE-0.215/META.yml
--- old/MooseX-POE-0.214/META.yml 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/META.yml 2012-04-25 18:06:46.000000000 +0200
@@ -10,9 +10,9 @@
Test::Fatal: 0.003
Test::More: 0.90
configure_requires:
- ExtUtils::MakeMaker: 6.31
+ ExtUtils::MakeMaker: 6.30
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200005, CPAN::Meta::Converter version 2.110240'
+generated_by: 'Dist::Zilla version 4.300014, CPAN::Meta::Converter version 2.120630'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -25,9 +25,9 @@
Moose: 2.0002
POE: 1.310
resources:
- homepage: http://github.com/perigrin/moosex-poe/tree
+ homepage: https://github.com/perigrin/moosex-poe
repository: git://github.com/perigrin/moosex-poe.git
-version: 0.214
+version: 0.215
x_Dist_Zilla:
plugins:
-
@@ -37,7 +37,7 @@
phase: runtime
type: requires
name: Prereqs
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::Prereqs
config:
@@ -45,91 +45,91 @@
phase: test
type: requires
name: TestRequires
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::GatherDir
name: '@Basic/GatherDir'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@Basic/PruneCruft'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::ManifestSkip
name: '@Basic/ManifestSkip'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@Basic/MetaYAML'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::License
name: '@Basic/License'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::Readme
name: '@Basic/Readme'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::ExtraTests
name: '@Basic/ExtraTests'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::ExecDir
name: '@Basic/ExecDir'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::ShareDir
name: '@Basic/ShareDir'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::MakeMaker
name: '@Basic/MakeMaker'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::Manifest
name: '@Basic/Manifest'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::TestRelease
name: '@Basic/TestRelease'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::ConfirmRelease
name: '@Basic/ConfirmRelease'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@Basic/UploadToCPAN'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::Git::NextVersion
name: Git::NextVersion
- version: 1.110500
+ version: 1.112510
-
class: Dist::Zilla::Plugin::PkgVersion
name: PkgVersion
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::MetaConfig
name: MetaConfig
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::MetaJSON
name: MetaJSON
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::NextRelease
name: NextRelease
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: PodSyntaxTests
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::GithubMeta
name: GithubMeta
- version: 0.10
+ version: 0.26
-
class: Dist::Zilla::Plugin::PodWeaver
name: PodWeaver
@@ -137,45 +137,53 @@
-
class: Dist::Zilla::Plugin::Repository
name: Repository
- version: 0.17
+ version: 0.18
-
class: Dist::Zilla::Plugin::MetaNoIndex
name: MetaNoIndex
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::Git::Check
name: '@Git/Check'
- version: 1.110500
+ version: 1.112510
-
class: Dist::Zilla::Plugin::Git::Commit
name: '@Git/Commit'
- version: 1.110500
+ version: 1.112510
-
class: Dist::Zilla::Plugin::Git::Tag
name: '@Git/Tag'
- version: 1.110500
+ version: 1.112510
-
class: Dist::Zilla::Plugin::Git::Push
name: '@Git/Push'
- version: 1.110500
+ version: 1.112510
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
- version: 4.200005
+ version: 4.300014
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':IncModules'
+ version: 4.300014
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
- version: 4.200005
+ version: 4.300014
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
- version: 4.200005
+ version: 4.300014
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':MainModule'
+ version: 4.300014
zilla:
class: Dist::Zilla::Dist::Builder
config:
is_trial: 0
- version: 4.200005
+ version: 4.300014
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/Makefile.PL new/MooseX-POE-0.215/Makefile.PL
--- old/MooseX-POE-0.214/Makefile.PL 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/Makefile.PL 2012-04-25 18:06:46.000000000 +0200
@@ -4,31 +4,31 @@
-use ExtUtils::MakeMaker 6.31;
+use ExtUtils::MakeMaker 6.30;
my %WriteMakefileArgs = (
- 'ABSTRACT' => 'The Illicit Love Child of Moose and POE',
- 'AUTHOR' => 'Chris Prather , Ash Berlin , Chris Williams , Yuval (nothingmuch) Kogman, Torsten Raudssus Lhttp://www.raudssus.de/',
- 'BUILD_REQUIRES' => {
- 'Test::Fatal' => '0.003',
- 'Test::More' => '0.90'
+ "ABSTRACT" => "The Illicit Love Child of Moose and POE",
+ "AUTHOR" => "Chris Prather , Ash Berlin , Chris Williams , Yuval (nothingmuch) Kogman, Torsten Raudssus Lhttp://www.raudssus.de/",
+ "BUILD_REQUIRES" => {
+ "Test::Fatal" => "0.003",
+ "Test::More" => "0.90"
},
- 'CONFIGURE_REQUIRES' => {
- 'ExtUtils::MakeMaker' => '6.31'
+ "CONFIGURE_REQUIRES" => {
+ "ExtUtils::MakeMaker" => "6.30"
},
- 'DISTNAME' => 'MooseX-POE',
- 'EXE_FILES' => [],
- 'LICENSE' => 'perl',
- 'NAME' => 'MooseX::POE',
- 'PREREQ_PM' => {
- 'Moose' => '2.0002',
- 'POE' => '1.310'
+ "DISTNAME" => "MooseX-POE",
+ "EXE_FILES" => [],
+ "LICENSE" => "perl",
+ "NAME" => "MooseX::POE",
+ "PREREQ_PM" => {
+ "Moose" => "2.0002",
+ "POE" => "1.310"
},
- 'VERSION' => '0.214',
- 'test' => {
- 'TESTS' => 't/*.t'
+ "VERSION" => "0.215",
+ "test" => {
+ "TESTS" => "t/*.t"
}
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/README new/MooseX-POE-0.215/README
--- old/MooseX-POE-0.214/README 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/README 2012-04-25 18:06:46.000000000 +0200
@@ -1,7 +1,7 @@
This archive contains the distribution MooseX-POE,
-version 0.214:
+version 0.215:
The Illicit Love Child of Moose and POE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Aliased.pm new/MooseX-POE-0.215/lib/MooseX/POE/Aliased.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Aliased.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Aliased.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Aliased;
-BEGIN {
- $MooseX::POE::Aliased::VERSION = '0.214';
+{
+ $MooseX::POE::Aliased::VERSION = '0.215';
}
# ABSTRACT: A sane alias attribute for your MooseX::POE objects.
use MooseX::POE::Role;
@@ -17,16 +17,20 @@
predicate => "has_alias",
trigger => sub {
my ( $self, $alias ) = @_;
+
+ # we cannot set the alias UNTIL we construct the object!
+ # or ASSERT_DEFAULT will complain...
+ return unless defined $self->get_session_id;
$self->call( _update_alias => $alias );
}
);
-sub BUILD {
+before 'STARTALL' => sub {
my ($self) = @_;
$self->call( _update_alias => $self->alias )
if $self->has_alias;
-}
+};
sub _build_alias {
my $self = shift;
@@ -38,9 +42,10 @@
# we need to remove the prev alias like this because we don't know the
# previous value.
- $kernel->alarm_remove_all();
+ $kernel->alias_remove($_) for $kernel->alias_list( $self->get_session_id );
+ $kernel->alias_set($alias) if defined $alias;
- $kernel->alias_set($alias) if defined $alias;
+ return;
};
__PACKAGE__;
@@ -55,7 +60,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Method/State.pm new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Method/State.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Method/State.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Method/State.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Meta::Method::State;
-BEGIN {
- $MooseX::POE::Meta::Method::State::VERSION = '0.214';
+{
+ $MooseX::POE::Meta::Method::State::VERSION = '0.215';
}
# ABSTRACT: Dont look into this, its boring
use strict;
@@ -19,7 +19,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Role.pm new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Role.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Role.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Role.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Meta::Role;
-BEGIN {
- $MooseX::POE::Meta::Role::VERSION = '0.214';
+{
+ $MooseX::POE::Meta::Role::VERSION = '0.215';
}
# ABSTRACT: Pay no attention to this.
use Moose::Role;
@@ -34,7 +34,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait/Class.pm new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait/Class.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait/Class.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait/Class.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Meta::Trait::Class;
-BEGIN {
- $MooseX::POE::Meta::Trait::Class::VERSION = '0.214';
+{
+ $MooseX::POE::Meta::Trait::Class::VERSION = '0.215';
}
# ABSTRACT: No achmed inside
use Moose::Role;
@@ -64,7 +64,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 METHODS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait/Instance.pm new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait/Instance.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait/Instance.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait/Instance.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Meta::Trait::Instance;
-BEGIN {
- $MooseX::POE::Meta::Trait::Instance::VERSION = '0.214';
+{
+ $MooseX::POE::Meta::Trait::Instance::VERSION = '0.215';
}
# ABSTRACT: A Instance Metaclass for MooseX::POE
@@ -52,7 +52,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait/Object.pm new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait/Object.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait/Object.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait/Object.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Meta::Trait::Object;
-BEGIN {
- $MooseX::POE::Meta::Trait::Object::VERSION = '0.214';
+{
+ $MooseX::POE::Meta::Trait::Object::VERSION = '0.215';
}
# ABSTRACT: The base class role for MooseX::POE
@@ -105,7 +105,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait/SweetArgs.pm new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait/SweetArgs.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait/SweetArgs.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait/SweetArgs.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Meta::Trait::SweetArgs;
-BEGIN {
- $MooseX::POE::Meta::Trait::SweetArgs::VERSION = '0.214';
+{
+ $MooseX::POE::Meta::Trait::SweetArgs::VERSION = '0.215';
}
# ABSTRACT: Yes, its a trap... i mean trait
@@ -27,7 +27,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait.pm new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Meta/Trait.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Meta/Trait.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Meta::Trait;
-BEGIN {
- $MooseX::POE::Meta::Trait::VERSION = '0.214';
+{
+ $MooseX::POE::Meta::Trait::VERSION = '0.215';
}
# ABSTRACT: There be dragons here.
use Moose::Role;
@@ -57,7 +57,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/Role.pm new/MooseX-POE-0.215/lib/MooseX/POE/Role.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/Role.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/Role.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::Role;
-BEGIN {
- $MooseX::POE::Role::VERSION = '0.214';
+{
+ $MooseX::POE::Role::VERSION = '0.215';
}
# ABSTRACT: Eventful roles
use MooseX::POE::Meta::Role;
@@ -45,7 +45,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE/SweetArgs.pm new/MooseX-POE-0.215/lib/MooseX/POE/SweetArgs.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE/SweetArgs.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE/SweetArgs.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE::SweetArgs;
-BEGIN {
- $MooseX::POE::SweetArgs::VERSION = '0.214';
+{
+ $MooseX::POE::SweetArgs::VERSION = '0.215';
}
# ABSTRACT: sugar around MooseX::POE event arguments
@@ -15,7 +15,7 @@
sub init_meta {
my ($class, %args) = @_;
- MooseX::POE->init_meta(%args);
+ MooseX::POE->import({ into => $args{for_class} });
Moose::Util::MetaRole::apply_metaroles(
for => $args{for_class},
@@ -37,7 +37,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/lib/MooseX/POE.pm new/MooseX-POE-0.215/lib/MooseX/POE.pm
--- old/MooseX-POE-0.214/lib/MooseX/POE.pm 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/lib/MooseX/POE.pm 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,6 @@
package MooseX::POE;
-BEGIN {
- $MooseX::POE::VERSION = '0.214';
+{
+ $MooseX::POE::VERSION = '0.215';
}
# ABSTRACT: The Illicit Love Child of Moose and POE
@@ -46,7 +46,7 @@
=head1 VERSION
-version 0.214
+version 0.215
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/01_basic.t new/MooseX-POE-0.215/t/01_basic.t
--- old/MooseX-POE-0.214/t/01_basic.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/01_basic.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use strict;
+use strict; use warnings;
use Test::More;
my $mem_cycle = eval { require Test::Memory::Cycle } || 0;
my $num_objs = 10;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/02_poe_forkbomb.t new/MooseX-POE-0.215/t/02_poe_forkbomb.t
--- old/MooseX-POE-0.214/t/02_poe_forkbomb.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/02_poe_forkbomb.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,11 +1,11 @@
#!/usr/bin/env perl
-use strict;
+use strict; use warnings;
use Test::More 'no_plan';
my $count = 0;
my $max_sessions = 30;
my $half_sessions = int( $max_sessions / 2 );
-my $fork_ran_at_least_one = 0;
+my $fork_ran_at_least_once = 0;
my %english = (
lose => 'is losing',
@@ -13,6 +13,11 @@
create => 'has created'
);
+# silence the copious diag's this test produces :)
+sub _diag {
+ diag( @_ ) if $ENV{TEST_VERBOSE};
+}
+
# this is based on the forkbomb.perl example that comes with POE
# please check it out for better documentation
@@ -29,8 +34,8 @@
sub START {
$_[0]->yield('fork');
- $poe_kernel->sig( 'INT', 'on_signal_handler' );
- $poe_kernel->sig( 'ZOMBIE', 'on_signal_handler' );
+ $poe_kernel->sig( 'INT', 'signal_handler' );
+ $poe_kernel->sig( 'ZOMBIE', 'signal_handler' );
::pass( 'Started ' . $_[0]->id );
}
@@ -43,13 +48,15 @@
my ( $kernel, $self, $direction, $child, $return ) =
@_[ KERNEL, OBJECT, ARG0, ARG1, ARG2 ];
- ::diag printf(
+ ::_diag printf(
"%4d %s child %s%s\n",
$self->id,
$english{$direction},
- $kernel->call( $child, 'on_fetch_id' ),
+ $kernel->call( $child, 'fetch_id' ),
(
- ( $direction eq 'create' ) ? (" (child returned: $return)") : ''
+ $direction eq 'create' ?
+ " (child returned: " . ( defined $return ? $return : "UNDEF" ) . ")"
+ : ''
)
);
}
@@ -57,55 +64,55 @@
sub PARENT {
my ( $kernel, $self, $old_parent, $new_parent ) =
@_[ KERNEL, OBJECT, ARG0, ARG1 ];
- ::diag printf(
+ ::_diag printf(
"%4d parent is changing from %d to %d\n",
$self->id,
- $poe_kernel->call( $old_parent, 'on_fetch_id' ),
- $poe_kernel->call( $new_parent, 'on_fetch_id' )
+ $poe_kernel->call( $old_parent, 'fetch_id' ),
+ $poe_kernel->call( $new_parent, 'fetch_id' )
);
}
event signal_handler => sub {
my ( $self, $signal_name ) = @_[ OBJECT, ARG0 ];
- ::diag printf( "%4d has received SIG%s\n", $self->id, $signal_name );
+ ::_diag printf( "%4d has received SIG%s\n", $self->id, $signal_name );
# tell Kernel that this wasn't handled
return 0;
};
event fork => sub {
- $fork_ran_at_least_one++;
+ $fork_ran_at_least_once++;
my ( $kernel, $self ) = @_[ KERNEL, OBJECT ];
if ( $count < $max_sessions ) {
if ( rand() < 0.5 ) {
- ::diag $self->id . " is starting a new child...";
+ ::_diag $self->id . " is starting a new child...";
ForkBomber->new;
}
# tails == don't spawn
else {
- ::diag $self->id . " is just spinning its wheels this time...";
+ ::_diag $self->id . " is just spinning its wheels this time...";
}
if ( ( $count < $half_sessions ) || ( rand() < 0.05 ) ) {
- $poe_kernel->yield('fork');
+ $kernel->yield('fork');
}
else {
- ::diag $self->id . " has decided to die. Bye!";
+ ::_diag $self->id . " has decided to die. Bye!";
if ( $self->id != 1 ) {
- $poe_kernel->yield('_stop');
+ $kernel->yield('_stop');
}
}
}
else {
- ::diag $self->id . " notes that the session limit is met. Bye!";
+ ::_diag $self->id . " notes that the session limit is met. Bye!";
# Please see the two NOTEs above.
if ( $self->id != 1 ) {
- $poe_kernel->yield('_stop');
+ $kernel->yield('_stop');
}
}
};
@@ -120,5 +127,5 @@
POE::Kernel->run;
# A.k.a. 'the we actualy did something test'
-ok($fork_ran_at_least_one, "We had at least one fork");
+ok($fork_ran_at_least_once, "We had at least one fork");
__END__
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/03_extend.t new/MooseX-POE-0.215/t/03_extend.t
--- old/MooseX-POE-0.214/t/03_extend.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/03_extend.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use strict;
+use strict; use warnings;
use Test::More tests => 6;
my ($base_start_called, $extended_start_called);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/04_with.t new/MooseX-POE-0.215/t/04_with.t
--- old/MooseX-POE-0.214/t/04_with.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/04_with.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,5 @@
#!/usr/bin/env perl
-
-use strict;
+use strict; use warnings;
use Test::More tests => 7;
use Test::Moose;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/04_with_before.t new/MooseX-POE-0.215/t/04_with_before.t
--- old/MooseX-POE-0.214/t/04_with_before.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/04_with_before.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,4 +1,4 @@
-use strict;
+use strict; use warnings;
use Test::More skip_all => 'Moose upstream needs to sort out composition';
use Test::More tests => 3;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/04_with_before_fixed.t new/MooseX-POE-0.215/t/04_with_before_fixed.t
--- old/MooseX-POE-0.214/t/04_with_before_fixed.t 1970-01-01 01:00:00.000000000 +0100
+++ new/MooseX-POE-0.215/t/04_with_before_fixed.t 2012-04-25 18:06:46.000000000 +0200
@@ -0,0 +1,36 @@
+use strict; use warnings;
+
+use Test::More tests => 3;
+
+{
+
+ package Rollo;
+ use MooseX::POE::Role;
+
+ before foo => sub {
+ ::pass('before foo');
+ };
+}
+
+{
+
+ package App;
+ use MooseX::POE;
+
+ sub START {
+ ::pass('START');
+ $_[KERNEL]->yield('foo');
+ }
+
+ event foo => sub {
+ ::pass('foo');
+ print "BAR\n";
+ };
+
+ # notice how it passes if we place it here
+ # while in 04_with_before.t it fails... :(
+ with 'Rollo';
+}
+
+App->new;
+POE::Kernel->run;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/04_with_override.t new/MooseX-POE-0.215/t/04_with_override.t
--- old/MooseX-POE-0.214/t/04_with_override.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/04_with_override.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,4 +1,4 @@
-use strict;
+use strict; use warnings;
use Test::More skip_all => 'Moose upstream needs to sort out composition';
use Test::More tests => 2;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/05_daemonize.t new/MooseX-POE-0.215/t/05_daemonize.t
--- old/MooseX-POE-0.214/t/05_daemonize.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/05_daemonize.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use strict;
+use strict; use warnings;
use Test::More;
eval "use MooseX::Daemonize";
plan skip_all => "MooseX::Daemonize not installed; skipping" if $@;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/06_sweet.t new/MooseX-POE-0.215/t/06_sweet.t
--- old/MooseX-POE-0.214/t/06_sweet.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/06_sweet.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use strict;
+use strict; use warnings;
use Test::More tests => 3;
{
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/07_aliased.t new/MooseX-POE-0.215/t/07_aliased.t
--- old/MooseX-POE-0.214/t/07_aliased.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/07_aliased.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,9 +1,7 @@
#!/usr/bin/env perl
+use strict; use warnings;
-use strict;
-use warnings;
-
-use Test::More tests => 7;
+use Test::More tests => 6;
use Test::Fatal;
use POE;
@@ -80,24 +78,3 @@
is_deeply( $log[0], ["this"], "first event under alias 'blah'" );
is_deeply( $log[1], ["that"], "second event under alias 'bar'" );
-{
- no warnings 'redefine';
- sub POE::Kernel::ASSERT_DEFAULT () { 1 }
-
- package Aliased;
- use MooseX::POE;
-
- with qw/MooseX::POE::Aliased/;
-
- has foo => ( is => 'rw', isa => 'Str', default => '' );
- has bar => ( is => 'rw', isa => 'Int', default => 0 );
-
- no MooseX::POE;
-
-}
-
-is( exception { Aliased->new( alias => 'alias' ) },
- undef, 'can create Aliased with ASSERT_DEFAULT' );
-
-POE::Kernel->run;
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/07_aliased_assert.t new/MooseX-POE-0.215/t/07_aliased_assert.t
--- old/MooseX-POE-0.214/t/07_aliased_assert.t 1970-01-01 01:00:00.000000000 +0100
+++ new/MooseX-POE-0.215/t/07_aliased_assert.t 2012-04-25 18:06:46.000000000 +0200
@@ -0,0 +1,68 @@
+#!/usr/bin/env perl
+use strict; use warnings;
+
+use Test::More tests => 8;
+use Test::Fatal;
+
+{
+ sub POE::Kernel::ASSERT_DEFAULT () { 1 }
+
+ package Aliased;
+ use MooseX::POE;
+
+ with qw/MooseX::POE::Aliased/;
+
+ has foo => ( is => 'rw', isa => 'Str', default => '' );
+ has bar => ( is => 'rw', isa => 'Int', default => 0 );
+
+ event 'ping' => sub {
+ my $self = shift;
+ ::pass( "received ping" );
+
+ # tell the master to send us another event!
+ $self->alias( 'foobar' );
+ $poe_kernel->post( 'master', 'test_changed' );
+ };
+
+ event 'test_changed' => sub {
+ my $self = shift;
+ ::pass( "received test_changed" );
+
+ # send an event to the new alias
+ $poe_kernel->post( 'foobar', 'ping2' );
+
+ ::is( $poe_kernel->alias_resolve( 'tester' ), undef,
+ 'Old alias is really gone' );
+ };
+
+ event 'ping2' => sub {
+ my $self = shift;
+ ::pass( "received ping2" );
+
+ # remove our alias
+ $self->alias( undef );
+ };
+
+ sub STARTALL {
+ my $self = shift;
+
+ # test sending an event to the other aliased session
+ return unless defined $self->alias and $self->alias eq 'master';
+ $poe_kernel->post( 'tester', 'ping' );
+ }
+
+ no MooseX::POE;
+}
+
+is( exception { Aliased->new( alias => 'tester' ) },
+ undef, 'can create Aliased with ASSERT_DEFAULT' );
+
+is( exception { Aliased->new( alias => 'master' ) },
+ undef, 'can create Aliased with ASSERT_DEFAULT' );
+
+is( exception { Aliased->new( alias => undef ) },
+ undef, 'can create no Aliased with ASSERT_DEFAULT' );
+
+is( exception {POE::Kernel->run },
+ undef, 'The entire thing works :)' );
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/08_moosex_declare.t new/MooseX-POE-0.215/t/08_moosex_declare.t
--- old/MooseX-POE-0.214/t/08_moosex_declare.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/08_moosex_declare.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,7 +1,5 @@
#!/usr/bin/env perl
-use strict;
-use warnings;
-
+use strict; use warnings;
use Test::More;
use Test::Moose;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/09_extend.t new/MooseX-POE-0.215/t/09_extend.t
--- old/MooseX-POE-0.214/t/09_extend.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/09_extend.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use strict;
+use strict; use warnings;
use Test::More tests => 6;
my ($base_start_called, $extended_start_called);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/10_immutability.t new/MooseX-POE-0.215/t/10_immutability.t
--- old/MooseX-POE-0.214/t/10_immutability.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/10_immutability.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,3 +1,4 @@
+use strict; use warnings;
use Test::More tests => 2;
{
@@ -9,7 +10,7 @@
sub START {
my ( $kernel, $self ) = @_[ KERNEL, OBJECT ];
- diag "Starting .... \n";
+ diag "Starting .... \n" if $ENV{TEST_VERBOSE};
$kernel->yield('counter_event');
return;
}
@@ -36,7 +37,7 @@
sub START {
my ( $kernel, $self ) = @_[ KERNEL, OBJECT ];
- diag "Starting EXTENSION .... \n";
+ diag "Starting EXTENSION .... \n" if $ENV{TEST_VERBOSE};
$kernel->yield('counter_event');
return;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/11_regular_moose.t new/MooseX-POE-0.215/t/11_regular_moose.t
--- old/MooseX-POE-0.214/t/11_regular_moose.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/11_regular_moose.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,6 +1,5 @@
#!/usr/bin/env perl
-use strict;
-
+use strict; use warnings;
use Test::More tests => 1;
{
@@ -12,4 +11,4 @@
has a => ( is => 'ro' );
}
-ok(!exists %{ Bar->new( a => 1) }->{session_id}, 'no session_id');
+ok(!exists Bar->new( a => 1 )->{session_id}, 'no session_id');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/12_more_roles.t new/MooseX-POE-0.215/t/12_more_roles.t
--- old/MooseX-POE-0.214/t/12_more_roles.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/12_more_roles.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,4 +1,5 @@
#!/usr/bin/perl
+use strict; use warnings;
use Test::More tests => 1;
{
package Getty;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/13_method_modifiers.t new/MooseX-POE-0.215/t/13_method_modifiers.t
--- old/MooseX-POE-0.214/t/13_method_modifiers.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/13_method_modifiers.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use strict;
+use strict; use warnings;
use Test::More tests => 6;
{
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/14_bug_double_build.t new/MooseX-POE-0.215/t/14_bug_double_build.t
--- old/MooseX-POE-0.214/t/14_bug_double_build.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/14_bug_double_build.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-
+use strict; use warnings;
use Test::More;
my $cnt = 0;
@@ -31,4 +31,4 @@
is($cnt_start, 1, 'START called once');
-done_testing();
\ No newline at end of file
+done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MooseX-POE-0.214/t/15_timers.t new/MooseX-POE-0.215/t/15_timers.t
--- old/MooseX-POE-0.214/t/15_timers.t 2011-05-03 00:31:06.000000000 +0200
+++ new/MooseX-POE-0.215/t/15_timers.t 2012-04-25 18:06:46.000000000 +0200
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-
+use strict; use warnings;
use Test::More;
my $right_cnt = 0;
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org