r74413 - in /branches/upstream/libmoosex-aliases-perl/current: ./ lib/MooseX/ lib/MooseX/Aliases/Meta/Trait/ lib/MooseX/Aliases/Meta/Trait/Role/ t/
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sat May 14 14:08:36 UTC 2011
Author: ansgar
Date: Sat May 14 14:08:12 2011
New Revision: 74413
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74413
Log:
[svn-upgrade] new version libmoosex-aliases-perl (0.10)
Added:
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role.pm
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToClass.pm
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToRole.pm
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/Composite.pm
branches/upstream/libmoosex-aliases-perl/current/t/12-roles-init_arg.t
Modified:
branches/upstream/libmoosex-aliases-perl/current/Changes
branches/upstream/libmoosex-aliases-perl/current/MANIFEST
branches/upstream/libmoosex-aliases-perl/current/META.json
branches/upstream/libmoosex-aliases-perl/current/META.yml
branches/upstream/libmoosex-aliases-perl/current/Makefile.PL
branches/upstream/libmoosex-aliases-perl/current/README
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases.pm
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Attribute.pm
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Class.pm
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Constructor.pm
branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Method.pm
Modified: branches/upstream/libmoosex-aliases-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/Changes?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/Changes (original)
+++ branches/upstream/libmoosex-aliases-perl/current/Changes Sat May 14 14:08:12 2011
@@ -1,4 +1,8 @@
Revision history for MooseX-Aliases
+
+0.10 2011-04-29
+ - Make constructor argument aliases work for attributes in roles (ether,
+ doy).
0.09 2011-02-09
- Update Moose dep to make 'use MooseX::Aliases' work properly in roles.
Modified: branches/upstream/libmoosex-aliases-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/MANIFEST?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/MANIFEST (original)
+++ branches/upstream/libmoosex-aliases-perl/current/MANIFEST Sat May 14 14:08:12 2011
@@ -11,6 +11,10 @@
lib/MooseX/Aliases/Meta/Trait/Class.pm
lib/MooseX/Aliases/Meta/Trait/Constructor.pm
lib/MooseX/Aliases/Meta/Trait/Method.pm
+lib/MooseX/Aliases/Meta/Trait/Role.pm
+lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToClass.pm
+lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToRole.pm
+lib/MooseX/Aliases/Meta/Trait/Role/Composite.pm
t/00-compile.t
t/01-basic.t
t/02-attributes.t
@@ -22,6 +26,7 @@
t/08-inherited.t
t/10-errors.t
t/11-warnings.t
+t/12-roles-init_arg.t
t/50-synopsis.t
t/release-eol.t
t/release-no-tabs.t
Modified: branches/upstream/libmoosex-aliases-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/META.json?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/META.json (original)
+++ branches/upstream/libmoosex-aliases-perl/current/META.json Sat May 14 14:08:12 2011
@@ -6,7 +6,7 @@
"Justin Hunter <justin.d.hunter at gmail dot com>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.101670",
+ "generated_by" : "Dist::Zilla version 4.200006, CPAN::Meta::Converter version 2.101670",
"license" : [
"perl_5"
],
@@ -18,7 +18,7 @@
"prereqs" : {
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : "6.31"
+ "ExtUtils::MakeMaker" : "6.30"
}
},
"runtime" : {
@@ -29,6 +29,7 @@
"test" : {
"requires" : {
"Test::Fatal" : "0.003",
+ "Test::More" : "0.88",
"Test::Requires" : 0
}
}
@@ -37,91 +38,103 @@
"resources" : {
"repository" : {
"type" : "git",
- "url" : "git://github.com/doy/moosex-aliases.git"
+ "url" : "git://github.com/doy/moosex-aliases.git",
+ "web" : "http://github.com/doy/moosex-aliases"
}
},
- "version" : "0.09",
+ "version" : "0.10",
"x_Dist_Zilla" : {
"plugins" : [
{
+ "class" : "Dist::Zilla::Plugin::Prereqs",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "test",
+ "type" : "requires"
+ }
+ },
+ "name" : "@DOY/TestMoreDoneTesting",
+ "version" : "4.200006"
+ },
+ {
"class" : "Dist::Zilla::Plugin::GatherDir",
"name" : "@DOY/GatherDir",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@DOY/PruneCruft",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::ManifestSkip",
"name" : "@DOY/ManifestSkip",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::MetaYAML",
"name" : "@DOY/MetaYAML",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::License",
"name" : "@DOY/License",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::Readme",
"name" : "@DOY/Readme",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::ExtraTests",
"name" : "@DOY/ExtraTests",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
"name" : "@DOY/ExecDir",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::ShareDir",
"name" : "@DOY/ShareDir",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::MakeMaker",
"name" : "@DOY/MakeMaker",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::Manifest",
"name" : "@DOY/Manifest",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::TestRelease",
"name" : "@DOY/TestRelease",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::ConfirmRelease",
"name" : "@DOY/ConfirmRelease",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "@DOY/MetaConfig",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "@DOY/MetaJSON",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::NextRelease",
"name" : "@DOY/NextRelease",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::CheckChangesHasContent",
@@ -131,17 +144,17 @@
{
"class" : "Dist::Zilla::Plugin::PkgVersion",
"name" : "@DOY/PkgVersion",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::PodCoverageTests",
"name" : "@DOY/PodCoverageTests",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
"name" : "@DOY/PodSyntaxTests",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::NoTabsTests",
@@ -161,22 +174,22 @@
{
"class" : "Dist::Zilla::Plugin::Repository",
"name" : "@DOY/Repository",
- "version" : "0.13"
+ "version" : "0.18"
},
{
"class" : "Dist::Zilla::Plugin::Git::Check",
"name" : "@DOY/Git::Check",
- "version" : "1.103520"
+ "version" : "1.110330"
},
{
"class" : "Dist::Zilla::Plugin::Git::Tag",
"name" : "@DOY/Git::Tag",
- "version" : "1.103520"
- },
- {
- "class" : "Dist::Zilla::Plugin::BumpVersionFromGit",
- "name" : "@DOY/BumpVersionFromGit",
- "version" : "0.007"
+ "version" : "1.110330"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::NextVersion",
+ "name" : "@DOY/Git::NextVersion",
+ "version" : "1.110330"
},
{
"class" : "Dist::Zilla::Plugin::PodWeaver",
@@ -186,7 +199,7 @@
{
"class" : "Dist::Zilla::Plugin::UploadToCPAN",
"name" : "@DOY/UploadToCPAN",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
@@ -197,7 +210,7 @@
}
},
"name" : "Prereqs",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
@@ -208,27 +221,37 @@
}
},
"name" : "TestRequires",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
- "version" : "4.200000"
+ "version" : "4.200006"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":IncModules",
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":TestFiles",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExecFiles",
- "version" : "4.200000"
+ "version" : "4.200006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ShareFiles",
- "version" : "4.200000"
+ "version" : "4.200006"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":MainModule",
+ "version" : "4.200006"
}
],
"zilla" : {
@@ -236,7 +259,7 @@
"config" : {
"is_trial" : 0
},
- "version" : "4.200000"
+ "version" : "4.200006"
}
}
}
Modified: branches/upstream/libmoosex-aliases-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/META.yml?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-aliases-perl/current/META.yml Sat May 14 14:08:12 2011
@@ -6,11 +6,12 @@
- 'Justin Hunter <justin.d.hunter at gmail dot com>'
build_requires:
Test::Fatal: 0.003
+ Test::More: 0.88
Test::Requires: 0
configure_requires:
- ExtUtils::MakeMaker: 6.31
+ ExtUtils::MakeMaker: 6.30
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.101670'
+generated_by: 'Dist::Zilla version 4.200006, CPAN::Meta::Converter version 2.101670'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,73 +21,81 @@
Moose: 1.09
resources:
repository: git://github.com/doy/moosex-aliases.git
-version: 0.09
+version: 0.10
x_Dist_Zilla:
plugins:
-
+ class: Dist::Zilla::Plugin::Prereqs
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: test
+ type: requires
+ name: '@DOY/TestMoreDoneTesting'
+ version: 4.200006
+ -
class: Dist::Zilla::Plugin::GatherDir
name: '@DOY/GatherDir'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@DOY/PruneCruft'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::ManifestSkip
name: '@DOY/ManifestSkip'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@DOY/MetaYAML'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::License
name: '@DOY/License'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::Readme
name: '@DOY/Readme'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::ExtraTests
name: '@DOY/ExtraTests'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::ExecDir
name: '@DOY/ExecDir'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::ShareDir
name: '@DOY/ShareDir'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::MakeMaker
name: '@DOY/MakeMaker'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::Manifest
name: '@DOY/Manifest'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::TestRelease
name: '@DOY/TestRelease'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::ConfirmRelease
name: '@DOY/ConfirmRelease'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::MetaConfig
name: '@DOY/MetaConfig'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::MetaJSON
name: '@DOY/MetaJSON'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::NextRelease
name: '@DOY/NextRelease'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::CheckChangesHasContent
name: '@DOY/CheckChangesHasContent'
@@ -94,15 +103,15 @@
-
class: Dist::Zilla::Plugin::PkgVersion
name: '@DOY/PkgVersion'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::PodCoverageTests
name: '@DOY/PodCoverageTests'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: '@DOY/PodSyntaxTests'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::NoTabsTests
name: '@DOY/NoTabsTests'
@@ -118,19 +127,19 @@
-
class: Dist::Zilla::Plugin::Repository
name: '@DOY/Repository'
- version: 0.13
+ version: 0.18
-
class: Dist::Zilla::Plugin::Git::Check
name: '@DOY/Git::Check'
- version: 1.103520
+ version: 1.110330
-
class: Dist::Zilla::Plugin::Git::Tag
name: '@DOY/Git::Tag'
- version: 1.103520
+ version: 1.110330
-
- class: Dist::Zilla::Plugin::BumpVersionFromGit
- name: '@DOY/BumpVersionFromGit'
- version: 0.007
+ class: Dist::Zilla::Plugin::Git::NextVersion
+ name: '@DOY/Git::NextVersion'
+ version: 1.110330
-
class: Dist::Zilla::Plugin::PodWeaver
name: '@DOY/PodWeaver'
@@ -138,7 +147,7 @@
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@DOY/UploadToCPAN'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::Prereqs
config:
@@ -146,7 +155,7 @@
phase: runtime
type: requires
name: Prereqs
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::Prereqs
config:
@@ -154,25 +163,33 @@
phase: test
type: requires
name: TestRequires
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
- version: 4.200000
+ version: 4.200006
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':IncModules'
+ version: 4.200006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
- version: 4.200000
+ version: 4.200006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
- version: 4.200000
+ version: 4.200006
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':MainModule'
+ version: 4.200006
zilla:
class: Dist::Zilla::Dist::Builder
config:
is_trial: 0
- version: 4.200000
+ version: 4.200006
Modified: branches/upstream/libmoosex-aliases-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/Makefile.PL?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/Makefile.PL (original)
+++ branches/upstream/libmoosex-aliases-perl/current/Makefile.PL Sat May 14 14:08:12 2011
@@ -4,7 +4,7 @@
-use ExtUtils::MakeMaker 6.31;
+use ExtUtils::MakeMaker 6.30;
@@ -13,10 +13,11 @@
'AUTHOR' => 'Jesse Luehrs <doy at tozt dot net>, Chris Prather <chris at prather.org>, Justin Hunter <justin.d.hunter at gmail dot com>',
'BUILD_REQUIRES' => {
'Test::Fatal' => '0.003',
+ 'Test::More' => '0.88',
'Test::Requires' => '0'
},
'CONFIGURE_REQUIRES' => {
- 'ExtUtils::MakeMaker' => '6.31'
+ 'ExtUtils::MakeMaker' => '6.30'
},
'DISTNAME' => 'MooseX-Aliases',
'EXE_FILES' => [],
@@ -25,7 +26,7 @@
'PREREQ_PM' => {
'Moose' => '1.09'
},
- 'VERSION' => '0.09',
+ 'VERSION' => '0.10',
'test' => {
'TESTS' => 't/*.t'
}
Modified: branches/upstream/libmoosex-aliases-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/README?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/README (original)
+++ branches/upstream/libmoosex-aliases-perl/current/README Sat May 14 14:08:12 2011
@@ -1,7 +1,7 @@
This archive contains the distribution MooseX-Aliases,
-version 0.09:
+version 0.10:
easy aliasing of methods and attributes in Moose
Modified: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases.pm?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases.pm (original)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases.pm Sat May 14 14:08:12 2011
@@ -1,6 +1,6 @@
package MooseX::Aliases;
BEGIN {
- $MooseX::Aliases::VERSION = '0.09';
+ $MooseX::Aliases::VERSION = '0.10';
}
use Moose ();
use Moose::Exporter;
@@ -8,25 +8,29 @@
# ABSTRACT: easy aliasing of methods and attributes in Moose
-my %metaroles;
-if ($Moose::VERSION >= 1.9900) {
- %metaroles = (
- class_metaroles => {
- attribute => ['MooseX::Aliases::Meta::Trait::Attribute'],
- class => ['MooseX::Aliases::Meta::Trait::Class'],
- },
- role_metaroles => {
- applied_attribute => ['MooseX::Aliases::Meta::Trait::Attribute'],
- }
- );
+my %metaroles = (
+ class_metaroles => {
+ attribute => ['MooseX::Aliases::Meta::Trait::Attribute'],
+ },
+ role_metaroles => {
+ role =>
+ ['MooseX::Aliases::Meta::Trait::Role'],
+ application_to_class =>
+ ['MooseX::Aliases::Meta::Trait::Role::ApplicationToClass'],
+ application_to_role =>
+ ['MooseX::Aliases::Meta::Trait::Role::ApplicationToRole'],
+ },
+);
+
+if (Moose->VERSION >= 1.9900) {
+ $metaroles{class_metaroles}{class} =
+ ['MooseX::Aliases::Meta::Trait::Class'];
+ $metaroles{role_metaroles}{applied_attribute} =
+ ['MooseX::Aliases::Meta::Trait::Attribute'];
}
else {
- %metaroles = (
- class_metaroles => {
- attribute => ['MooseX::Aliases::Meta::Trait::Attribute'],
- constructor => ['MooseX::Aliases::Meta::Trait::Constructor'],
- },
- );
+ $metaroles{class_metaroles}{constructor} =
+ ['MooseX::Aliases::Meta::Trait::Constructor'];
}
Moose::Exporter->setup_import_methods(
@@ -88,7 +92,7 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 SYNOPSIS
@@ -130,6 +134,12 @@
provides an alias parameter for C<has()> to generate aliased accessors as well
as the standard ones. Attributes can also be initialized in the constructor via
their aliased names.
+
+You can create more than one alias at once by passing a listref:
+
+ has ip_addr => (
+ alias => [ qw(ipAddr ip) ],
+ );
=head1 FUNCTIONS
Modified: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Attribute.pm?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Attribute.pm (original)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Attribute.pm Sat May 14 14:08:12 2011
@@ -1,6 +1,6 @@
package MooseX::Aliases::Meta::Trait::Attribute;
BEGIN {
- $MooseX::Aliases::Meta::Trait::Attribute::VERSION = '0.09';
+ $MooseX::Aliases::Meta::Trait::Attribute::VERSION = '0.10';
}
use Moose::Role;
use Moose::Util::TypeConstraints;
@@ -74,7 +74,7 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 SYNOPSIS
Modified: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Class.pm?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Class.pm (original)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Class.pm Sat May 14 14:08:12 2011
@@ -1,6 +1,6 @@
package MooseX::Aliases::Meta::Trait::Class;
BEGIN {
- $MooseX::Aliases::Meta::Trait::Class::VERSION = '0.09';
+ $MooseX::Aliases::Meta::Trait::Class::VERSION = '0.10';
}
use Moose::Role;
# ABSTRACT: class metaclass trait for L<MooseX::Aliases>
@@ -53,7 +53,7 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 DESCRIPTION
Modified: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Constructor.pm?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Constructor.pm (original)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Constructor.pm Sat May 14 14:08:12 2011
@@ -1,6 +1,6 @@
package MooseX::Aliases::Meta::Trait::Constructor;
BEGIN {
- $MooseX::Aliases::Meta::Trait::Constructor::VERSION = '0.09';
+ $MooseX::Aliases::Meta::Trait::Constructor::VERSION = '0.10';
}
use Moose::Role;
# ABSTRACT: constructor metaclass trait for L<MooseX::Aliases>
@@ -53,7 +53,7 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 DESCRIPTION
Modified: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Method.pm?rev=74413&op=diff
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Method.pm (original)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Method.pm Sat May 14 14:08:12 2011
@@ -1,6 +1,6 @@
package MooseX::Aliases::Meta::Trait::Method;
BEGIN {
- $MooseX::Aliases::Meta::Trait::Method::VERSION = '0.09';
+ $MooseX::Aliases::Meta::Trait::Method::VERSION = '0.10';
}
use Moose::Role;
# ABSTRACT: method metaclass trait for L<MooseX::Aliases>
@@ -25,7 +25,7 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 DESCRIPTION
Added: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role.pm?rev=74413&op=file
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role.pm (added)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role.pm Sat May 14 14:08:12 2011
@@ -1,0 +1,63 @@
+package MooseX::Aliases::Meta::Trait::Role;
+BEGIN {
+ $MooseX::Aliases::Meta::Trait::Role::VERSION = '0.10';
+}
+use Moose::Role;
+
+sub composition_class_roles { 'MooseX::Aliases::Meta::Trait::Role::Composite' }
+
+no Moose::Role;
+
+
+1;
+
+__END__
+=pod
+
+=head1 NAME
+
+MooseX::Aliases::Meta::Trait::Role
+
+=head1 VERSION
+
+version 0.10
+
+=for Pod::Coverage composition_class_roles
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<MooseX::Aliases>
+
+=back
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Jesse Luehrs <doy at tozt dot net>
+
+=item *
+
+Chris Prather <chris at prather.org>
+
+=item *
+
+Justin Hunter <justin.d.hunter at gmail dot com>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2011 by Jesse Luehrs.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
Added: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToClass.pm?rev=74413&op=file
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToClass.pm (added)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToClass.pm Sat May 14 14:08:12 2011
@@ -1,0 +1,77 @@
+package MooseX::Aliases::Meta::Trait::Role::ApplicationToClass;
+BEGIN {
+ $MooseX::Aliases::Meta::Trait::Role::ApplicationToClass::VERSION = '0.10';
+}
+use Moose::Role;
+
+around apply => sub {
+ my $orig = shift;
+ my $self = shift;
+ my ($role, $class) = @_;
+
+ $class = Moose::Util::MetaRole::apply_metaroles(
+ for => $class,
+ class_metaroles => {
+ ((Moose->VERSION >= 1.9900)
+ ? (class =>
+ [ 'MooseX::Aliases::Meta::Trait::Class' ])
+ : (constructor =>
+ [ 'MooseX::Aliases::Meta::Trait::Constructor' ])),
+ }
+ );
+
+ $self->$orig( $role, $class );
+};
+
+no Moose::Role;
+
+1;
+
+__END__
+=pod
+
+=head1 NAME
+
+MooseX::Aliases::Meta::Trait::Role::ApplicationToClass
+
+=head1 VERSION
+
+version 0.10
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<MooseX::Aliases>
+
+=back
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Jesse Luehrs <doy at tozt dot net>
+
+=item *
+
+Chris Prather <chris at prather.org>
+
+=item *
+
+Justin Hunter <justin.d.hunter at gmail dot com>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2011 by Jesse Luehrs.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
Added: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToRole.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToRole.pm?rev=74413&op=file
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToRole.pm (added)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/ApplicationToRole.pm Sat May 14 14:08:12 2011
@@ -1,0 +1,78 @@
+package MooseX::Aliases::Meta::Trait::Role::ApplicationToRole;
+BEGIN {
+ $MooseX::Aliases::Meta::Trait::Role::ApplicationToRole::VERSION = '0.10';
+}
+use Moose::Role;
+
+around apply => sub {
+ my $orig = shift;
+ my $self = shift;
+ my ($role1, $role2) = @_;
+
+ $role2 = Moose::Util::MetaRole::apply_metaroles(
+ for => $role2,
+ role_metaroles => {
+ application_to_class => [
+ 'MooseX::Aliases::Meta::Trait::Role::ApplicationToClass',
+ ],
+ application_to_role => [
+ 'MooseX::Aliases::Meta::Trait::Role::ApplicationToRole',
+ ],
+ }
+ );
+
+ $self->$orig( $role1, $role2 );
+};
+
+no Moose::Role;
+
+1;
+
+__END__
+=pod
+
+=head1 NAME
+
+MooseX::Aliases::Meta::Trait::Role::ApplicationToRole
+
+=head1 VERSION
+
+version 0.10
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<MooseX::Aliases>
+
+=back
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Jesse Luehrs <doy at tozt dot net>
+
+=item *
+
+Chris Prather <chris at prather.org>
+
+=item *
+
+Justin Hunter <justin.d.hunter at gmail dot com>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2011 by Jesse Luehrs.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
Added: branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/Composite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/Composite.pm?rev=74413&op=file
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/Composite.pm (added)
+++ branches/upstream/libmoosex-aliases-perl/current/lib/MooseX/Aliases/Meta/Trait/Role/Composite.pm Sat May 14 14:08:12 2011
@@ -1,0 +1,77 @@
+package MooseX::Aliases::Meta::Trait::Role::Composite;
+BEGIN {
+ $MooseX::Aliases::Meta::Trait::Role::Composite::VERSION = '0.10';
+}
+use Moose::Role;
+
+around apply_params => sub {
+ my $orig = shift;
+ my $self = shift;
+
+ $self->$orig(@_);
+
+ $self = Moose::Util::MetaRole::apply_metaroles(
+ for => $self,
+ role_metaroles => {
+ application_to_class =>
+ ['MooseX::Aliases::Meta::Trait::Role::ApplicationToClass'],
+ application_to_role =>
+ ['MooseX::Aliases::Meta::Trait::Role::ApplicationToRole'],
+ },
+ );
+
+ return $self;
+};
+
+no Moose::Role;
+
+1;
+
+__END__
+=pod
+
+=head1 NAME
+
+MooseX::Aliases::Meta::Trait::Role::Composite
+
+=head1 VERSION
+
+version 0.10
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<MooseX::Aliases>
+
+=back
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Jesse Luehrs <doy at tozt dot net>
+
+=item *
+
+Chris Prather <chris at prather.org>
+
+=item *
+
+Justin Hunter <justin.d.hunter at gmail dot com>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2011 by Jesse Luehrs.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
Added: branches/upstream/libmoosex-aliases-perl/current/t/12-roles-init_arg.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-aliases-perl/current/t/12-roles-init_arg.t?rev=74413&op=file
==============================================================================
--- branches/upstream/libmoosex-aliases-perl/current/t/12-roles-init_arg.t (added)
+++ branches/upstream/libmoosex-aliases-perl/current/t/12-roles-init_arg.t Sat May 14 14:08:12 2011
@@ -1,0 +1,68 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 28;
+use Test::Moose;
+
+
+{
+ package MyTestRole;
+ use Moose::Role;
+ use MooseX::Aliases;
+
+ has foo => (
+ is => 'rw',
+ alias => 'bar',
+ );
+
+ has baz => (
+ is => 'rw',
+ init_arg => undef,
+ alias => [qw/quux quuux/],
+ );
+}
+
+{
+ package MyTest;
+ use Moose;
+ MooseX::Aliases->import if Moose->VERSION < 1.9900;
+ with 'MyTestRole';
+}
+
+with_immutable {
+
+ my $test1 = MyTest->new(foo => 'foo', baz => 'baz');
+ is($test1->foo, 'foo', 'Attribute set with default init_arg');
+ is($test1->baz, undef, 'Attribute set with default init_arg (undef)');
+
+ $test1->baz('baz');
+ is($test1->baz, 'baz',
+ 'Attribute set with default writer, read with default reader');
+ is($test1->quux, 'baz',
+ 'Attribute set with default writer, read with aliased reader');
+
+ $test1->quux('quux');
+ is($test1->baz, 'quux', 'Attribute set with aliased writer');
+ is($test1->quux, 'quux', 'Attribute set with aliased writer');
+
+ my $test2 = MyTest->new(bar => 'foo', baz => 'baz');
+ is($test2->foo, 'foo', 'Attribute set wtih aliased init_arg');
+ is($test2->baz, undef, 'Attribute set with default init_arg (undef)');
+
+ $test2->baz('baz');
+ is($test2->baz, 'baz',
+ 'Attribute set with default writer, read with default reader');
+ is($test2->quux, 'baz',
+ 'Attribute set with default writer, read with aliased reader');
+
+ $test2->quux('quux');
+ is($test2->baz, 'quux', 'Attribute set with aliased writer');
+ is($test2->quux, 'quux', 'Attribute set with aliased writer');
+
+ my $foo = MyTest->meta->find_attribute_by_name('foo');
+ is($foo->init_arg, 'foo', 'Attribute has correct init_arg');
+
+ my $baz = MyTest->meta->find_attribute_by_name('baz');
+ is($baz->init_arg, undef, 'Attribute has correct init_arg');
+} 'MyTest';
+
More information about the Pkg-perl-cvs-commits
mailing list