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