r25753 - in /branches/upstream/libmoosex-strictconstructor-perl/current: ./ lib/MooseX/ lib/MooseX/Object/ lib/MooseX/StrictConstructor/Meta/ lib/MooseX/StrictConstructor/Role/ lib/MooseX/StrictConstructor/Role/Meta/ lib/MooseX/StrictConstructor/Role/Meta/Method/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Wed Oct 1 22:21:41 UTC 2008
Author: ansgar-guest
Date: Wed Oct 1 22:21:38 2008
New Revision: 25753
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25753
Log:
[svn-upgrade] Integrating new upstream version, libmoosex-strictconstructor-perl (0.07)
Added:
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm
Removed:
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/Object/
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Meta/
branches/upstream/libmoosex-strictconstructor-perl/current/t/perlcritic.t
Modified:
branches/upstream/libmoosex-strictconstructor-perl/current/Build.PL
branches/upstream/libmoosex-strictconstructor-perl/current/Changes
branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST
branches/upstream/libmoosex-strictconstructor-perl/current/META.yml
branches/upstream/libmoosex-strictconstructor-perl/current/README
branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE
branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm
branches/upstream/libmoosex-strictconstructor-perl/current/t/basic.t
branches/upstream/libmoosex-strictconstructor-perl/current/t/pod-coverage.t
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/Build.PL?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/Build.PL (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/Build.PL Wed Oct 1 22:21:38 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: branches/upstream/libmoosex-strictconstructor-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/Changes?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/Changes (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/Changes Wed Oct 1 22:21:38 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: branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/MANIFEST Wed Oct 1 22:21:38 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: branches/upstream/libmoosex-strictconstructor-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/META.yml?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/META.yml Wed Oct 1 22:21:38 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: branches/upstream/libmoosex-strictconstructor-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/README?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/README (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/README Wed Oct 1 22:21:38 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: branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/SIGNATURE Wed Oct 1 22:21:38 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: branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor.pm Wed Oct 1 22:21:38 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.
Added: branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm?rev=25753&op=file
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm (added)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm Wed Oct 1 22:21:38 2008
@@ -1,0 +1,76 @@
+package MooseX::StrictConstructor::Role::Meta::Method::Constructor;
+
+use strict;
+use warnings;
+
+use Carp ();
+
+use Moose::Role;
+
+around '_generate_BUILDALL' => sub
+{
+ my $orig = shift;
+ my $self = shift;
+
+ my $source = $self->$orig();
+ $source .= ";\n" if $source;
+
+ my @attrs =
+ ( map { "$_ => 1," }
+ grep { defined }
+ map { $_->init_arg() }
+ @{ $self->attributes() }
+ );
+
+ $source .= <<"EOF";
+my \%attrs = (@attrs);
+
+my \@bad = sort grep { ! \$attrs{\$_} } keys \%{ \$params };
+
+if (\@bad) {
+ Carp::confess "Found unknown attribute(s) passed to the constructor: \@bad";
+}
+EOF
+
+ return $source;
+};
+
+no Moose::Role;
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::StrictConstructor::Role::Meta::Method::Constructor - A role to make immutable constructors strict
+
+=head1 SYNOPSIS
+
+ Moose::Util::MetaRole::apply_metaclass_roles
+ ( for_class => $caller,
+ constructor_class_roles =>
+ ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
+ );
+
+=head1 DESCRIPTION
+
+This role simply wraps C<_generate_BUILDALL()> (from
+C<Moose::Meta::Method::Constructor>) so that immutable classes have a
+strict constructor.
+
+=head1 AUTHOR
+
+Dave Rolsky, C<< <autarch at urth.org> >>
+
+=head1 COPYRIGHT & LICENSE
+
+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.
+
+=cut
+
Added: branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm?rev=25753&op=file
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm (added)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/lib/MooseX/StrictConstructor/Role/Object.pm Wed Oct 1 22:21:38 2008
@@ -1,0 +1,69 @@
+package MooseX::StrictConstructor::Role::Object;
+
+use strict;
+use warnings;
+
+use Moose::Role;
+
+
+after 'BUILDALL' => sub
+{
+ my $self = shift;
+ my $params = shift;
+
+ my %attrs =
+ ( map { $_ => 1 }
+ grep { defined }
+ map { $_->init_arg() }
+ $self->meta()->compute_all_applicable_attributes()
+ );
+
+ my @bad = sort grep { ! $attrs{$_} } keys %{ $params };
+
+ if (@bad)
+ {
+ confess "Found unknown attribute(s) init_arg passed to the constructor: @bad";
+ }
+
+ return;
+};
+
+no Moose::Role;
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::StrictConstructor::Role::Object - A role which implements a strict constructor for Moose::Object
+
+=head1 SYNOPSIS
+
+ Moose::Util::MetaRole::apply_base_class_roles
+ ( for_class => $caller,
+ roles =>
+ [ 'MooseX::StrictConstructor::Role::Object' ],
+ );
+
+=head1 DESCRIPTION
+
+When you use C<MooseX::StrictConstructor>, your objects will have this
+role applied to them. It provides a method modifier for C<BUILDALL()>
+from C<Moose::Object> that implements strict argument checking for
+your class.
+
+=head1 AUTHOR
+
+Dave Rolsky, C<< <autarch at urth.org> >>
+
+=head1 COPYRIGHT & LICENSE
+
+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.
+
+=cut
Modified: branches/upstream/libmoosex-strictconstructor-perl/current/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/t/basic.t?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/t/basic.t (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/t/basic.t Wed Oct 1 22:21:38 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: branches/upstream/libmoosex-strictconstructor-perl/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-strictconstructor-perl/current/t/pod-coverage.t?rev=25753&op=diff
==============================================================================
--- branches/upstream/libmoosex-strictconstructor-perl/current/t/pod-coverage.t (original)
+++ branches/upstream/libmoosex-strictconstructor-perl/current/t/pod-coverage.t Wed Oct 1 22:21:38 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