r44236 - in /trunk/libmoosex-blessed-reconstruct-perl: Changes META.yml Makefile.PL SIGNATURE debian/changelog debian/control lib/MooseX/Blessed/Reconstruct.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Fri Sep 18 11:54:11 UTC 2009
Author: ansgar-guest
Date: Fri Sep 18 11:54:05 2009
New Revision: 44236
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44236
Log:
WAITS FOR: libmoose-perl (>= 0.90), libclass-mop-perl (>= 0.93)
* New upstream release.
+ bump (build-)dep on libclass-mop-perl to 0.93.
+ bump (build-)dep on libmoose-perl to 0.90.
* Bump Standards-Version to 3.8.3.
* Add myself to Uploaders.
Modified:
trunk/libmoosex-blessed-reconstruct-perl/Changes
trunk/libmoosex-blessed-reconstruct-perl/META.yml
trunk/libmoosex-blessed-reconstruct-perl/Makefile.PL
trunk/libmoosex-blessed-reconstruct-perl/SIGNATURE
trunk/libmoosex-blessed-reconstruct-perl/debian/changelog
trunk/libmoosex-blessed-reconstruct-perl/debian/control
trunk/libmoosex-blessed-reconstruct-perl/lib/MooseX/Blessed/Reconstruct.pm
Modified: trunk/libmoosex-blessed-reconstruct-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl/Changes?rev=44236&op=diff
==============================================================================
--- trunk/libmoosex-blessed-reconstruct-perl/Changes (original)
+++ trunk/libmoosex-blessed-reconstruct-perl/Changes Fri Sep 18 11:54:05 2009
@@ -1,3 +1,6 @@
+0.03
+ - Class::MOP no longer returns the metaclass from load_class
+
0.02
- Remove Class::Accessor from test suite (not having it as a dependency
caused failures)
Modified: trunk/libmoosex-blessed-reconstruct-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl/META.yml?rev=44236&op=diff
==============================================================================
--- trunk/libmoosex-blessed-reconstruct-perl/META.yml (original)
+++ trunk/libmoosex-blessed-reconstruct-perl/META.yml Fri Sep 18 11:54:05 2009
@@ -1,23 +1,25 @@
--- #YAML:1.0
name: MooseX-Blessed-Reconstruct
-version: 0.02
+version: 0.03
abstract: ~
author: []
license: unknown
distribution_type: module
configure_requires:
ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
requires:
- Class::MOP: 0.66
+ Class::MOP: 0.93
Data::Visitor: 0.21
- Moose: 0
+ Moose: 0.9
namespace::clean: 0
Test::use::ok: 0
no_index:
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.48
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: trunk/libmoosex-blessed-reconstruct-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl/Makefile.PL?rev=44236&op=diff
==============================================================================
--- trunk/libmoosex-blessed-reconstruct-perl/Makefile.PL (original)
+++ trunk/libmoosex-blessed-reconstruct-perl/Makefile.PL Fri Sep 18 11:54:05 2009
@@ -13,8 +13,8 @@
PREREQ_PM => {
'Test::use::ok' => 0,
'namespace::clean' => 0,
- 'Moose' => 0,
- 'Class::MOP' => 0.66,
+ 'Moose' => 0.90,
+ 'Class::MOP' => 0.93,
'Data::Visitor' => 0.21,
},
);
Modified: trunk/libmoosex-blessed-reconstruct-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl/SIGNATURE?rev=44236&op=diff
==============================================================================
--- trunk/libmoosex-blessed-reconstruct-perl/SIGNATURE (original)
+++ trunk/libmoosex-blessed-reconstruct-perl/SIGNATURE Fri Sep 18 11:54:05 2009
@@ -14,17 +14,17 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 2f6fa369e51584218ebf3554a85555877790edd7 Changes
+SHA1 56d6ae71a8db4dc3a29442e03006ab391e896c4e Changes
SHA1 78a468e5be41b2f15d15e6a989c94fba17c9a093 MANIFEST
SHA1 190e9058eb9c6446a1a3f3ddf15b082f1ecde152 MANIFEST.SKIP
-SHA1 c08a87265b69c75d417699281563329fbcdb81f9 META.yml
-SHA1 ebac10cd7577a84ec38c669f13bc0de06be3bb5e Makefile.PL
-SHA1 030c2369c61d43c390a6ce05d80b418a2a115086 lib/MooseX/Blessed/Reconstruct.pm
+SHA1 b009f6fbbb8ce3eec6bc29b0b5715a0a661168c8 META.yml
+SHA1 c2629049084021b59ce2dd23019778f3fcee4958 Makefile.PL
+SHA1 ee675a0ed55083194c66f6a1d4ea55e680871ecf lib/MooseX/Blessed/Reconstruct.pm
SHA1 a864e611614c3e25f55dd7174dc6f1f8922881a9 t/basic.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.7 (Darwin)
+Version: GnuPG/MacGPG2 v2.0.12 (Darwin)
-iD8DBQFJOu6jVCwRwOvSdBgRAmKPAJ9Q5L4EnERUDF73/OVijjQr40tuygCgoam0
-FCVPdd9RgU1ArqcOSlPQhyA=
-=1yBL
+iEYEARECAAYFAkqyHmwACgkQVCwRwOvSdBiJhACghnFD9NmaT4a/U0i3CxGsV3PI
+hncAoKYTVu3LCt8sLasc1/tpDj+etWZi
+=/uwf
-----END PGP SIGNATURE-----
Modified: trunk/libmoosex-blessed-reconstruct-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl/debian/changelog?rev=44236&op=diff
==============================================================================
--- trunk/libmoosex-blessed-reconstruct-perl/debian/changelog (original)
+++ trunk/libmoosex-blessed-reconstruct-perl/debian/changelog Fri Sep 18 11:54:05 2009
@@ -1,4 +1,6 @@
-libmoosex-blessed-reconstruct-perl (0.02-2) UNRELEASED; urgency=low
+libmoosex-blessed-reconstruct-perl (0.03-1) UNRELEASED; urgency=low
+
+ WAITS FOR: libmoose-perl (>= 0.90), libclass-mop-perl (>= 0.93)
[ Nathan Handler ]
* debian/watch: Update to ignore development releases.
@@ -8,7 +10,14 @@
perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as
permitted by Debian Policy 3.8.3).
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:35:06 +0000
+ [ Ansgar Burchardt ]
+ * New upstream release.
+ + bump (build-)dep on libclass-mop-perl to 0.93.
+ + bump (build-)dep on libmoose-perl to 0.90.
+ * Bump Standards-Version to 3.8.3.
+ * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Fri, 18 Sep 2009 13:06:17 +0200
libmoosex-blessed-reconstruct-perl (0.02-1) unstable; urgency=low
Modified: trunk/libmoosex-blessed-reconstruct-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl/debian/control?rev=44236&op=diff
==============================================================================
--- trunk/libmoosex-blessed-reconstruct-perl/debian/control (original)
+++ trunk/libmoosex-blessed-reconstruct-perl/debian/control Fri Sep 18 11:54:05 2009
@@ -2,20 +2,22 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: libclass-mop-perl (>= 0.66),
- libdata-visitor-perl (>= 0.21), libmoose-perl, libnamespace-clean-perl,
- libtest-use-ok-perl, perl
+Build-Depends-Indep: perl, libclass-mop-perl (>= 0.93),
+ libdata-visitor-perl (>= 0.21), libmoose-perl (>= 0.90),
+ libnamespace-clean-perl, libtest-use-ok-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: franck cuny <franck at lumberjaph.net>
-Standards-Version: 3.8.1
+Uploaders: franck cuny <franck at lumberjaph.net>,
+ Ansgar Burchardt <ansgar at 43-1.org>
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/MooseX-Blessed-Reconstruct/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl
Package: libmoosex-blessed-reconstruct-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}, libclass-mop-perl (>= 0.66),
- libdata-visitor-perl (>= 0.21), libmoose-perl, libnamespace-clean-perl
+Depends: ${misc:Depends}, ${perl:Depends}, libclass-mop-perl (>= 0.93),
+ libdata-visitor-perl (>= 0.21), libmoose-perl (>= 0.90),
+ libnamespace-clean-perl
Description: Data::Visitor for creating Moose objects
The purpose of MooseX::Blessed::Reconstruct module is to "fix up" blessed data
into a real Moose object.
Modified: trunk/libmoosex-blessed-reconstruct-perl/lib/MooseX/Blessed/Reconstruct.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-blessed-reconstruct-perl/lib/MooseX/Blessed/Reconstruct.pm?rev=44236&op=diff
==============================================================================
--- trunk/libmoosex-blessed-reconstruct-perl/lib/MooseX/Blessed/Reconstruct.pm (original)
+++ trunk/libmoosex-blessed-reconstruct-perl/lib/MooseX/Blessed/Reconstruct.pm Fri Sep 18 11:54:05 2009
@@ -3,12 +3,16 @@
package MooseX::Blessed::Reconstruct;
use Moose;
+use Carp qw(croak);
+
use Class::MOP 0.66; # well behaved load_class()
use Data::Visitor 0.21; # n-arity visit
+use Scalar::Util qw(reftype);
+
use namespace::clean -except => 'meta';
-our $VERSION = "0.02";
+our $VERSION = "0.03";
extends qw(Data::Visitor);
@@ -23,9 +27,9 @@
my $class = ref $obj;
- my $meta = $v->load_classes
- ? Class::MOP::load_class($class)
- : Class::MOP::get_metaclass_by_name($class);
+ Class::MOP::load_class($class) if $v->load_classes;
+
+ my $meta = Class::MOP::get_metaclass_by_name($class);
if ( ref $meta ) {
return $v->visit_object_with_meta($obj, $meta);
@@ -41,7 +45,7 @@
$v->_register_mapping( $obj => $instance );
- my $args = $v->prepare_args( $obj );
+ my $args = $v->prepare_args( $meta, $obj );
$meta->new_object( %$args, __INSTANCE__ => $instance );
@@ -51,12 +55,23 @@
}
sub prepare_args {
- my ( $v, $obj ) = @_;
+ my ( $v, $meta, $obj ) = @_;
- my %args;
- @args{keys %$obj} = $v->visit(values %$obj);
+ my @args;
- return \%args;
+ if ( reftype $obj eq 'HASH' ) {
+ @args = %$obj;
+ } elsif ( reftype $obj eq 'ARRAY' ) {
+ @args = @$obj;
+ } elsif ( reftype $obj eq 'SCALAR' ) {
+ @args = $$obj;
+ } else {
+ croak "unknown ref type $obj";
+ }
+
+ my @processed = $v->visit(@args);
+
+ return $meta->name->BUILDARGS(@processed);
}
__PACKAGE__->meta->make_immutable;
More information about the Pkg-perl-cvs-commits
mailing list