r25757 - in /trunk/libmoosex-strictconstructor-perl: ./ debian/ lib/MooseX/ lib/MooseX/Object/ lib/MooseX/StrictConstructor/Meta/ lib/MooseX/StrictConstructor/Role/ t/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Wed Oct 1 23:12:08 UTC 2008 

Author: ansgar-guest
Date: Wed Oct  1 23:12:05 2008
New Revision: 25757

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25757
Log:
* New upstream release
  + requires at least perl 5.8
  + now depends on libmoose-perl (>= 0.56)
  + drop build-dep on libtest-perl-critic-perl
* Add myself to Uploaders
* Convert debian/copyright to proposed machine-readable format

Added:
    trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/
      - copied from r25754, branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/
Removed:
    trunk/libmoosex-strictconstructor-perl/lib/MooseX/Object/
    trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Meta/
    trunk/libmoosex-strictconstructor-perl/t/perlcritic.t
Modified:
    trunk/libmoosex-strictconstructor-perl/Build.PL
    trunk/libmoosex-strictconstructor-perl/Changes
    trunk/libmoosex-strictconstructor-perl/MANIFEST
    trunk/libmoosex-strictconstructor-perl/META.yml
    trunk/libmoosex-strictconstructor-perl/README
    trunk/libmoosex-strictconstructor-perl/SIGNATURE
    trunk/libmoosex-strictconstructor-perl/debian/changelog
    trunk/libmoosex-strictconstructor-perl/debian/control
    trunk/libmoosex-strictconstructor-perl/debian/copyright
    trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm
    trunk/libmoosex-strictconstructor-perl/t/basic.t
    trunk/libmoosex-strictconstructor-perl/t/pod-coverage.t

Modified: trunk/libmoosex-strictconstructor-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/Build.PL?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/Build.PL (original)
+++ trunk/libmoosex-strictconstructor-perl/Build.PL Wed Oct  1 23:12:05 2008
@@ -1,15 +1,15 @@
 use strict;
 use warnings;
 
-require 5.00601;
+require 5.008;
 
 use Module::Build;
 
 my $builder = Module::Build->new
     ( module_name        => 'MooseX::StrictConstructor',
       license            => 'perl',
-      requires           => { 'Moose'      => 0.51,
-                              'Test::More' => 0,
+      requires           => { 'Moose'      => '0.56',
+                              'Test::More' => '0',
                             },
       create_makefile_pl => 'passthrough',
       create_readme      => 1,

Modified: trunk/libmoosex-strictconstructor-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/Changes?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/Changes (original)
+++ trunk/libmoosex-strictconstructor-perl/Changes Wed Oct  1 23:12:05 2008
@@ -1,32 +1,51 @@
-0.06   2008-06-27
+0.07     2008-09-01
+
+- No code changes, just a stable release for Moose 0.56.
+
+
+0.06_02  2008-08-30
+
+* This module no longer exports Moose's sugar. Just use Moose instead.
+
+- Various doc fixes to reflect changes since 0.06.
+
+
+0.06_01  2008-08-30
+
+- Rewrote this distro's functionality as roles to take advantage of
+  Moose::Util::MetaRole. Less code, plays better with other
+  extensions.
+
+
+0.06     2008-06-27
 
 - Changes to the immutable bits to work with the latest Moose (0.51).
 
 
-0.05   2008-04-18
+0.05     2008-04-18
 
 - The fix in 0.04 only worked for non-immutable classes.
 
 
-0.04   2008-04-18
+0.04     2008-04-18
 
 - This module did not respect the init_arg attribute setting, and used
   the attribute name instead. Reported by Matt Trout. RT #34507.
 
 
-0.03   2007-11-20
+0.03     2007-11-20
 
 - Require Moose 0.26, since that's first version to offer init_meta(),
   apparently.
 
 
-0.02   2007-11-15
+0.02     2007-11-15
 
 - Moose was missing from the prereq list. Reported by Slaven Rezic.
 
 - Version 0.01 did not work after a class was made immutable.
 
 
-0.01   2007-11-14
+0.01     2007-11-14
 
 - First version, released on an unsuspecting world.

Modified: trunk/libmoosex-strictconstructor-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/MANIFEST?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/MANIFEST (original)
+++ trunk/libmoosex-strictconstructor-perl/MANIFEST Wed Oct  1 23:12:05 2008
@@ -1,15 +1,13 @@
 Build.PL
 Changes
-lib/MooseX/Object/StrictConstructor.pm
 lib/MooseX/StrictConstructor.pm
-lib/MooseX/StrictConstructor/Meta/Class.pm
-lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
+lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
+lib/MooseX/StrictConstructor/Role/Object.pm
 Makefile.PL
 MANIFEST			This list of files
 META.yml
 README
 t/basic.t
-t/perlcritic.t
 t/pod-coverage.t
 t/pod.t
 SIGNATURE    Added here by Module::Build

Modified: trunk/libmoosex-strictconstructor-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/META.yml?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/META.yml (original)
+++ trunk/libmoosex-strictconstructor-perl/META.yml Wed Oct  1 23:12:05 2008
@@ -1,6 +1,6 @@
 ---
 name: MooseX-StrictConstructor
-version: 0.06
+version: 0.07
 author:
   - 'Dave Rolsky, C<< <autarch at urth.org> >>'
 abstract: Make your object constructors blow up on unknown attributes
@@ -8,18 +8,16 @@
 resources:
   license: http://dev.perl.org/licenses/
 requires:
-  Moose: 0.51
+  Moose: 0.56
   Test::More: 0
 provides:
-  MooseX::Object::StrictConstructor:
-    file: lib/MooseX/Object/StrictConstructor.pm
   MooseX::StrictConstructor:
     file: lib/MooseX/StrictConstructor.pm
-    version: 0.06
-  MooseX::StrictConstructor::Meta::Class:
-    file: lib/MooseX/StrictConstructor/Meta/Class.pm
-  MooseX::StrictConstructor::Meta::Method::Constructor:
-    file: lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
+    version: 0.07
+  MooseX::StrictConstructor::Role::Meta::Method::Constructor:
+    file: lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
+  MooseX::StrictConstructor::Role::Object:
+    file: lib/MooseX/StrictConstructor/Role/Object.pm
 generated_by: Module::Build version 0.2808
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html

Modified: trunk/libmoosex-strictconstructor-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/README?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/README (original)
+++ trunk/libmoosex-strictconstructor-perl/README Wed Oct  1 23:12:05 2008
@@ -5,7 +5,8 @@
 SYNOPSIS
         package My::Class;
 
-        use MooseX::StrictConstructor; # instead of use Moose
+        use Moose;
+        use MooseX::StrictConstructor;
 
         has 'size' => ...;
 
@@ -15,21 +16,20 @@
         My::Class->new( size => 5, color => 'blue' );
 
 DESCRIPTION
-    Using this class to load Moose instead of just loading using Moose
-    itself makes your constructors "strict". If your constructor is called
-    with an attribute init argument that your class does not declare, then
-    it calls "Carp::confess()". This is a great way to catch small typos.
+    Simply loading this module makes your constructors "strict". If your
+    constructor is called with an attribute init argument that your class
+    does not declare, then it calls "Carp::confess()". This is a great way
+    to catch small typos.
 
   Subverting Strictness
-    You may find yourself wanting to accept a parameter to the constructor
-    that is not the name of an attribute.
+    You may find yourself wanting to have your constructor accept a
+    parameter which does not correspond to an attribute.
 
-    In that case, you'll probably be writing a "BUILD()" method to deal with
-    it. Your "BUILD()" method will receive two parameters, the new object,
-    and a hash reference of parameters passed to the constructor.
-
-    If you delete keys from this hash reference, then they will not be seen
-    when this class does its checking.
+    In that case, you'll probably also be writing a "BUILD()" or
+    "BUILDARGS()" method to deal with that parameter. In a "BUILDARGS()"
+    method, you can simply make sure that this parameter is not included in
+    the hash reference you return. Otherwise, in a "BUILD()" method, you can
+    delete it from the hash reference of parameters.
 
       sub BUILD {
           my $self   = shift;
@@ -39,12 +39,6 @@
               ...
           }
       }
-
-  Caveats
-    Using this class replaces the default Moose meta class,
-    "Moose::Meta::Class", with its own,
-    "MooseX::StrictConstructor::Meta::Class". If you have your own meta
-    class, this distro will probably not work for you.
 
 AUTHOR
     Dave Rolsky, "<autarch at urth.org>"
@@ -56,7 +50,7 @@
     automatically be notified of progress on your bug as I make changes.
 
 COPYRIGHT & LICENSE
-    Copyright 2007 Dave Rolsky, All Rights Reserved.
+    Copyright 2007-2008 Dave Rolsky, All Rights Reserved.
 
     This program is free software; you can redistribute it and/or modify it
     under the same terms as Perl itself.

Modified: trunk/libmoosex-strictconstructor-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/SIGNATURE?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/SIGNATURE (original)
+++ trunk/libmoosex-strictconstructor-perl/SIGNATURE Wed Oct  1 23:12:05 2008
@@ -14,24 +14,22 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 68c8a1106f6a281f01cab177c951626e2d28b82f Build.PL
-SHA1 129023b64c1f411e0b1de567d85d666f4a2e9e4f Changes
-SHA1 cda8df304bf3b8a67747fb5fcd97dccb32370008 MANIFEST
-SHA1 25127709adfcc546f5988445163c0a14537d7405 META.yml
+SHA1 9f70955c9be1dbf82d569d5059f9d06bb147b7ad Build.PL
+SHA1 41fe66bbb00146a5bf3db33d186983de92b85d4e Changes
+SHA1 b4b8ef7b7fc918602d52461e450759298c9594c4 MANIFEST
+SHA1 57202fbb2e09c695532728c1e739248a09ea9b06 META.yml
 SHA1 cd14ada78fb37a0d926edd86eddcdf7f939de582 Makefile.PL
-SHA1 6e146058a15cd4170066c830ca5f3eac68b146bc README
-SHA1 2db66fdcf07316150b3981351c22f492da0af4fc lib/MooseX/Object/StrictConstructor.pm
-SHA1 b0fd8f64134f7fb37462d341594f43c5d4818a22 lib/MooseX/StrictConstructor.pm
-SHA1 812fcb248e74ec3415c2e7d50af6cac7974e76f8 lib/MooseX/StrictConstructor/Meta/Class.pm
-SHA1 f5683ecb104860cee0de2fe33eac3e08b72e9c7a lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
-SHA1 ee75031bb26f217880d77c04b3e43690da74473f t/basic.t
-SHA1 a38c158c90a326d6beaf6808e94034dd71f6f5aa t/perlcritic.t
-SHA1 28a931f3b0c075d8d6c4ce47d5e89c3fdb19ed0f t/pod-coverage.t
+SHA1 0fe2fded7d23270318f32634a6dd419cd74f4b1e README
+SHA1 19c59ba4a26835c17ccd98cc2aa7c6755f5ca5cd lib/MooseX/StrictConstructor.pm
+SHA1 acae7436d8b8d45db622ac7e3101b876911bf1f3 lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
+SHA1 15f941256c07bd10d47099c076cc571eaec0bfbe lib/MooseX/StrictConstructor/Role/Object.pm
+SHA1 99ccb73ee8acdb9c738646b8be1464fa56dd2b6b t/basic.t
+SHA1 1939a16163d1ced544e36670f17930f1cf75cdb1 t/pod-coverage.t
 SHA1 cec881e89926d320475f9de2b7fad02c2169f510 t/pod.t
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.6 (GNU/Linux)
 
-iD8DBQFIZGRD3Or3ZzQuifMRAhJXAJwIc6VRyJPo8IjcPdSrj95bjR/3xwCgrgK7
-pXSXlNh9qgtkGgdUXlnIj8c=
-=PC2e
+iD8DBQFIvB1v3Or3ZzQuifMRAoooAKDvRgLdSlqOo8DjjDtniH26gIniwgCgsFMF
+zwBvd+UZqJoHVpGApEu3DRM=
+=2saz
 -----END PGP SIGNATURE-----

Modified: trunk/libmoosex-strictconstructor-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/debian/changelog?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/debian/changelog (original)
+++ trunk/libmoosex-strictconstructor-perl/debian/changelog Wed Oct  1 23:12:05 2008
@@ -1,3 +1,14 @@
+libmoosex-strictconstructor-perl (0.07-1) unstable; urgency=low
+
+  * New upstream release
+    + requires at least perl 5.8
+    + now depends on libmoose-perl (>= 0.56)
+    + drop build-dep on libtest-perl-critic-perl
+  * Add myself to Uploaders
+  * Convert debian/copyright to proposed machine-readable format
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Thu, 02 Oct 2008 01:11:40 +0200
+
 libmoosex-strictconstructor-perl (0.06-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libmoosex-strictconstructor-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/debian/control?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/debian/control (original)
+++ trunk/libmoosex-strictconstructor-perl/debian/control Wed Oct  1 23:12:05 2008
@@ -2,11 +2,12 @@
 Section: perl
 Priority: optional
 Build-Depends: debhelper (>= 5), libmodule-build-perl
-Build-Depends-Indep: perl (>= 5.6.10-12), libmoose-perl (>= 0.51),
- libtest-perl-critic-perl, libtest-pod-perl, libtest-pod-coverage-perl
+Build-Depends-Indep: perl (>= 5.8), libmoose-perl (>= 0.56),
+ libtest-pod-perl, libtest-pod-coverage-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Antony Gelberg <antony at wayforth.co.uk>,
- gregor herrmann <gregoa at debian.org>
+ gregor herrmann <gregoa at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
 Standards-Version: 3.8.0
 Homepage: http://search.cpan.org/dist/MooseX-StrictConstructor/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmoosex-strictconstructor-perl/
@@ -14,7 +15,7 @@
 
 Package: libmoosex-strictconstructor-perl
 Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends}, libmoose-perl (>= 0.51)
+Depends: ${perl:Depends}, ${misc:Depends}, libmoose-perl (>= 0.56)
 Description: Make your object constructors blow up on unknown attributes
  "use MooseX::StrictConstructor" instead of just "use Moose" makes your
  constructors strict. If your constructor is called with an attribute

Modified: trunk/libmoosex-strictconstructor-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/debian/copyright?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/debian/copyright (original)
+++ trunk/libmoosex-strictconstructor-perl/debian/copyright Wed Oct  1 23:12:05 2008
@@ -1,19 +1,24 @@
-This is the debian package for the MooseX-StrictConstructor module.
-It was created by Antony Gelberg <antony at wayforth.co.uk> using dh-make-perl.
+Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=228
+Upstream-Name: MooseX-StrictConstructor
+Upstream-Maintainer: Dave Rolsky <autarch at urth.org>
+Upstream-Source: http://search.cpan.org/dist/MooseX-StrictConstructor/
 
-It was downloaded from http://search.cpan.org/dist/MooseX-StrictConstructor/
+Files: *
+Copyright: © 2007-2008, Dave Rolsky <autarch at urth.org>
+License: GPL-1+ | Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the same terms as Perl itself.
+ .
+ Perl is distributed under your choice of the GNU General Public License or
+ the Artistic License.  On Debian GNU/Linux systems, the complete text of the
+ GNU General Public License can be found in `/usr/share/common-licenses/GPL'
+ and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
 
-The upstream author is: Dave Rolsky, <autarch at urth.org>.
+Files: debian/*
+Copyright:
+ © 2008, Antony Gelberg <antony at wayforth.co.uk>
+ © 2008, Ansgar Burchardt <ansgar at 43-1.org>
+License: GPL-1+ | Artistic
+ The Debian packaging is licensed under the same terms as the software
+ itself (see above).
 
-Copyright 2007 Dave Rolsky, All Rights Reserved.
-
-This program is free software. You may use, modify, and redistribute it under
-the same terms as Perl itself.
-
-Perl is distributed under your choice of the GNU General Public License or
-the Artistic License.  On Debian GNU/Linux systems, the complete text of the
-GNU General Public License can be found in `/usr/share/common-licenses/GPL'
-and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
-
-The Debian packaging is (C) 2008, Antony Gelberg <antony at wayforth.co.uk> and
-is licensed under the same terms as the software itself (see above).

Modified: trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm (original)
+++ trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm Wed Oct  1 23:12:05 2008
@@ -3,29 +3,42 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
+$VERSION = eval $VERSION;
 
-use Moose;
-use MooseX::Object::StrictConstructor;
+use Class::MOP ();
+use Moose 0.56 ();
+use Moose::Exporter;
+use Moose::Util::MetaRole;
+use MooseX::StrictConstructor::Role::Object;
+use MooseX::StrictConstructor::Role::Meta::Method::Constructor;
 
 
-sub import
+Moose::Exporter->setup_import_methods();
+
+sub init_meta
 {
-    my $caller = caller();
+    shift;
+    my %p = @_;
 
-    return if $caller eq 'main';
+    Moose->init_meta(%p);
 
-    Moose::init_meta( $caller,
-                      'MooseX::Object::StrictConstructor',
-                      'MooseX::StrictConstructor::Meta::Class',
-                    );
+    my $caller = $p{for_class};
 
-    Moose->import( { into => $caller } );
+    Moose::Util::MetaRole::apply_metaclass_roles
+        ( for_class => $caller,
+          constructor_class_roles =>
+          ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
+        );
 
-    return;
+    Moose::Util::MetaRole::apply_base_class_roles
+        ( for_class => $caller,
+          roles =>
+          [ 'MooseX::StrictConstructor::Role::Object' ],
+        );
+
+    return $caller->meta();
 }
-
-
 
 1;
 
@@ -41,7 +54,8 @@
 
     package My::Class;
 
-    use MooseX::StrictConstructor; # instead of use Moose
+    use Moose;
+    use MooseX::StrictConstructor;
 
     has 'size' => ...;
 
@@ -52,22 +66,21 @@
 
 =head1 DESCRIPTION
 
-Using this class to load Moose instead of just loading using Moose
-itself makes your constructors "strict". If your constructor is called
-with an attribute init argument that your class does not declare, then
-it calls "Carp::confess()". This is a great way to catch small typos.
+Simply loading this module makes your constructors "strict". If your
+constructor is called with an attribute init argument that your class
+does not declare, then it calls "Carp::confess()". This is a great way
+to catch small typos.
 
 =head2 Subverting Strictness
 
-You may find yourself wanting to accept a parameter to the constructor
-that is not the name of an attribute.
+You may find yourself wanting to have your constructor accept a
+parameter which does not correspond to an attribute.
 
-In that case, you'll probably be writing a C<BUILD()> method to deal
-with it. Your C<BUILD()> method will receive two parameters, the new
-object, and a hash reference of parameters passed to the constructor.
-
-If you delete keys from this hash reference, then they will not be
-seen when this class does its checking.
+In that case, you'll probably also be writing a C<BUILD()> or
+C<BUILDARGS()> method to deal with that parameter. In a C<BUILDARGS()>
+method, you can simply make sure that this parameter is not included
+in the hash reference you return. Otherwise, in a C<BUILD()> method,
+you can delete it from the hash reference of parameters.
 
   sub BUILD {
       my $self   = shift;
@@ -77,13 +90,6 @@
           ...
       }
   }
-
-=head2 Caveats
-
-Using this class replaces the default Moose meta class,
-C<Moose::Meta::Class>, with its own,
-C<MooseX::StrictConstructor::Meta::Class>. If you have your own meta
-class, this distro will probably not work for you.
 
 =head1 AUTHOR
 
@@ -99,7 +105,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2007 Dave Rolsky, All Rights Reserved.
+Copyright 2007-2008 Dave Rolsky, All Rights Reserved.
 
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: trunk/libmoosex-strictconstructor-perl/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/t/basic.t?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/t/basic.t (original)
+++ trunk/libmoosex-strictconstructor-perl/t/basic.t Wed Oct  1 23:12:05 2008
@@ -15,6 +15,7 @@
 {
     package Stricter;
 
+    use Moose;
     use MooseX::StrictConstructor;
 
     has 'thing' => ( is => 'rw' );
@@ -23,6 +24,7 @@
 {
     package Subclass;
 
+    use Moose;
     use MooseX::StrictConstructor;
 
     extends 'Stricter';
@@ -33,6 +35,7 @@
 {
     package Tricky;
 
+    use Moose;
     use MooseX::StrictConstructor;
 
     has 'thing' => ( is => 'rw' );
@@ -49,6 +52,7 @@
 {
     package InitArg;
 
+    use Moose;
     use MooseX::StrictConstructor;
 
     has 'thing' => ( is => 'rw', 'init_arg' => 'other' );
@@ -58,6 +62,7 @@
 {
     package ImmutableInitArg;
 
+    use Moose;
     use MooseX::StrictConstructor;
 
     has 'thing' => ( is => 'rw', 'init_arg' => 'other' );
@@ -70,6 +75,7 @@
 {
     package Immutable;
 
+    use Moose;
     use MooseX::StrictConstructor;
 
     has 'thing' => ( is => 'rw' );
@@ -81,6 +87,7 @@
 {
     package ImmutableTricky;
 
+    use Moose;
     use MooseX::StrictConstructor;
 
     has 'thing' => ( is => 'rw' );

Modified: trunk/libmoosex-strictconstructor-perl/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/t/pod-coverage.t?rev=25757&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/t/pod-coverage.t (original)
+++ trunk/libmoosex-strictconstructor-perl/t/pod-coverage.t Wed Oct  1 23:12:05 2008
@@ -11,4 +11,4 @@
 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage"
     if $@;
 
-all_pod_coverage_ok();
+all_pod_coverage_ok( { trustme => [ qr/init_meta/ ] } );

More information about the Pkg-perl-cvs-commits mailing list