Hello community,
here is the log from the commit of package perl-MooX-HandlesVia for
openSUSE:Factory checked in at 2015-04-15 16:26:17
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-MooX-HandlesVia (Old)
and /work/SRC/openSUSE:Factory/.perl-MooX-HandlesVia.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MooX-HandlesVia"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-MooX-HandlesVia/perl-MooX-HandlesVia.changes
2014-09-18 07:12:50.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-MooX-HandlesVia.new/perl-MooX-HandlesVia.changes
2015-04-15 16:26:18.000000000 +0200
@@ -1,0 +2,17 @@
+Tue Apr 14 20:54:51 UTC 2015 - [email protected]
+
+- updated to 0.001008
+ see /usr/share/doc/packages/perl-MooX-HandlesVia/Changes
+
+ 0.001008 2015-03-30 21:33:17-04:00 America/New_York
+ - fix a bug inheriting from nonmoo classes
+ - remove strictures dependency for laxer strict/warnings
+
+ 0.001007 2015-02-16 09:12:08-05:00 America/New_York
+ - fix some badly cp'd pod (RT 91955)
+ - add missing test time dependency on Test::Fatal (RT 101971)
+
+ 0.001006 2015-01-10 13:43:39EST-0500 America/Toronto
+ - fix ref check on moosify inflator (@shadowcat-mst)
+
+-------------------------------------------------------------------
Old:
----
MooX-HandlesVia-0.001005.tar.gz
New:
----
MooX-HandlesVia-0.001008.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-MooX-HandlesVia.spec ++++++
--- /var/tmp/diff_new_pack.0cIqRT/_old 2015-04-15 16:26:18.000000000 +0200
+++ /var/tmp/diff_new_pack.0cIqRT/_new 2015-04-15 16:26:18.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-MooX-HandlesVia
#
-# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
Name: perl-MooX-HandlesVia
-Version: 0.001005
+Version: 0.001008
Release: 0
%define cpan_name MooX-HandlesVia
Summary: NativeTrait-like behavior for Moo
@@ -36,14 +36,13 @@
BuildRequires: perl(MooX::Types::MooseLike::Base) >= 0.23
BuildRequires: perl(Role::Tiny)
BuildRequires: perl(Test::Exception)
+BuildRequires: perl(Test::Fatal)
Requires: perl(Class::Method::Modifiers)
Requires: perl(Data::Perl) >= 0.002006
Requires: perl(Module::Runtime)
Requires: perl(Moo) >= 1.003000
Requires: perl(Role::Tiny)
%{perl_requires}
-#MANUAL
-BuildRequires: perl(Test::Fatal)
%description
MooX::HandlesVia is an extension of Moo's 'handles' attribute
@@ -69,6 +68,6 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes LICENSE README README.mkdn TODO
+%doc Changes LICENSE README.mkdn TODO
%changelog
++++++ MooX-HandlesVia-0.001005.tar.gz -> MooX-HandlesVia-0.001008.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/Changes
new/MooX-HandlesVia-0.001008/Changes
--- old/MooX-HandlesVia-0.001005/Changes 2013-12-20 18:24:11.000000000
+0100
+++ new/MooX-HandlesVia-0.001008/Changes 2015-03-31 03:33:22.000000000
+0200
@@ -1,3 +1,14 @@
+0.001008 2015-03-30 21:33:17-04:00 America/New_York
+ - fix a bug inheriting from nonmoo classes
+ - remove strictures dependency for laxer strict/warnings
+
+0.001007 2015-02-16 09:12:08-05:00 America/New_York
+ - fix some badly cp'd pod (RT 91955)
+ - add missing test time dependency on Test::Fatal (RT 101971)
+
+0.001006 2015-01-10 13:43:39EST-0500 America/Toronto
+ - fix ref check on moosify inflator (@shadowcat-mst)
+
0.001005 2013-12-20 12:24:09 America/Toronto
- bugfix to support proper unimporting with 'no Moo' (@lukas-t)
- typofix (@djgoku)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/LICENSE
new/MooX-HandlesVia-0.001008/LICENSE
--- old/MooX-HandlesVia-0.001005/LICENSE 2013-12-20 18:24:11.000000000
+0100
+++ new/MooX-HandlesVia-0.001008/LICENSE 2015-03-31 03:33:22.000000000
+0200
@@ -1,4 +1,4 @@
-This software is copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is Copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software, licensed under:
@@ -22,7 +22,7 @@
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is Copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/MANIFEST
new/MooX-HandlesVia-0.001008/MANIFEST
--- old/MooX-HandlesVia-0.001005/MANIFEST 2013-12-20 18:24:11.000000000
+0100
+++ new/MooX-HandlesVia-0.001008/MANIFEST 2015-03-31 03:33:22.000000000
+0200
@@ -1,10 +1,10 @@
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v5.034.
Changes
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
-README
README.mkdn
TODO
dist.ini
@@ -24,6 +24,7 @@
t/handlesvia_in_role.t
t/hash.t
t/invalid.t
+t/nonmoo-class.t
t/proof_of_concept.t
t/release-pod-coverage.t
t/release-pod-syntax.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/META.json
new/MooX-HandlesVia-0.001008/META.json
--- old/MooX-HandlesVia-0.001005/META.json 2013-12-20 18:24:11.000000000
+0100
+++ new/MooX-HandlesVia-0.001008/META.json 2015-03-31 03:33:22.000000000
+0200
@@ -4,7 +4,7 @@
"Matthew Phillips <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 5.006, CPAN::Meta::Converter version
2.133380",
+ "generated_by" : "Dist::Zilla version 5.034, CPAN::Meta::Converter version
2.150001",
"license" : [
"perl_5"
],
@@ -16,7 +16,7 @@
"prereqs" : {
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : "6.30"
+ "ExtUtils::MakeMaker" : "0"
}
},
"develop" : {
@@ -39,6 +39,7 @@
"requires" : {
"MooX::Types::MooseLike::Base" : "0.23",
"Test::Exception" : "0",
+ "Test::Fatal" : "0",
"Test::More" : "0"
}
}
@@ -51,6 +52,6 @@
"web" : "https://github.com/mattp-/MooX-HandlesVia";
}
},
- "version" : "0.001005"
+ "version" : "0.001008"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/META.yml
new/MooX-HandlesVia-0.001008/META.yml
--- old/MooX-HandlesVia-0.001005/META.yml 2013-12-20 18:24:11.000000000
+0100
+++ new/MooX-HandlesVia-0.001008/META.yml 2015-03-31 03:33:22.000000000
+0200
@@ -3,24 +3,25 @@
author:
- 'Matthew Phillips <[email protected]>'
build_requires:
- MooX::Types::MooseLike::Base: 0.23
- Test::Exception: 0
- Test::More: 0
+ MooX::Types::MooseLike::Base: '0.23'
+ Test::Exception: '0'
+ Test::Fatal: '0'
+ Test::More: '0'
configure_requires:
- ExtUtils::MakeMaker: 6.30
+ ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version
2.133380'
+generated_by: 'Dist::Zilla version 5.034, CPAN::Meta::Converter version
2.150001'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: MooX-HandlesVia
requires:
- Class::Method::Modifiers: 0
- Data::Perl: 0.002006
- Module::Runtime: 0
- Moo: 1.003000
- Role::Tiny: 0
+ Class::Method::Modifiers: '0'
+ Data::Perl: '0.002006'
+ Module::Runtime: '0'
+ Moo: '1.003000'
+ Role::Tiny: '0'
resources:
repository: git://github.com/mattp-/MooX-HandlesVia.git
-version: 0.001005
+version: '0.001008'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/Makefile.PL
new/MooX-HandlesVia-0.001008/Makefile.PL
--- old/MooX-HandlesVia-0.001005/Makefile.PL 2013-12-20 18:24:11.000000000
+0100
+++ new/MooX-HandlesVia-0.001008/Makefile.PL 2015-03-31 03:33:22.000000000
+0200
@@ -1,19 +1,16 @@
-
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v5.034.
use strict;
use warnings;
-use ExtUtils::MakeMaker 6.30;
-
-
+use ExtUtils::MakeMaker;
my %WriteMakefileArgs = (
"ABSTRACT" => "NativeTrait-like behavior for Moo.",
"AUTHOR" => "Matthew Phillips <mattp\@cpan.org>",
- "BUILD_REQUIRES" => {},
"CONFIGURE_REQUIRES" => {
- "ExtUtils::MakeMaker" => "6.30"
+ "ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "MooX-HandlesVia",
"EXE_FILES" => [],
@@ -29,9 +26,10 @@
"TEST_REQUIRES" => {
"MooX::Types::MooseLike::Base" => "0.23",
"Test::Exception" => 0,
+ "Test::Fatal" => 0,
"Test::More" => 0
},
- "VERSION" => "0.001005",
+ "VERSION" => "0.001008",
"test" => {
"TESTS" => "t/*.t t/from-moose/*.t t/unimport/*.t"
}
@@ -41,11 +39,13 @@
my %FallbackPrereqs = (
"Class::Method::Modifiers" => 0,
"Data::Perl" => "0.002006",
+ "ExtUtils::MakeMaker" => 0,
"Module::Runtime" => 0,
"Moo" => "1.003000",
"MooX::Types::MooseLike::Base" => "0.23",
"Role::Tiny" => 0,
"Test::Exception" => 0,
+ "Test::Fatal" => 0,
"Test::More" => 0
);
@@ -60,6 +60,3 @@
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(%WriteMakefileArgs);
-
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/README
new/MooX-HandlesVia-0.001008/README
--- old/MooX-HandlesVia-0.001005/README 2013-12-20 18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/README 1970-01-01 01:00:00.000000000 +0100
@@ -1,104 +0,0 @@
-NAME
- MooX::HandlesVia - NativeTrait-like behavior for Moo.
-
-VERSION
- version 0.001005
-
-SYNOPSIS
- {
- package Hashy;
- use Moo;
- use MooX::HandlesVia;
-
- has hash => (
- is => 'rw',
- handles_via => 'Hash',
- handles => {
- get_val => 'get',
- set_val => 'set',
- all_keys => 'keys'
- }
- );
- }
-
- my $h = Hashy->new(hash => { a => 1, b => 2});
-
- $h->get_val('b'); # 2
-
- $h->set_val('a', 'BAR'); # sets a to BAR
-
- my @keys = $h->all_keys; # returns a, b
-
-DESCRIPTION
- MooX::HandlesVia is an extension of Moo's 'handles' attribute
- functionality. It provides a means of proxying functionality from an
- external class to the given atttribute. This is most commonly used as a
- way to emulate 'Native Trait' behavior that has become commonplace in
- Moose code, for which there was no Moo alternative.
-
-SHORTCOMINGS
- Due to current Moo implementation details there are some deficiencies in
- how MooX::HandlesVia in comparison to what you would expect from Moose
- native traits.
-
- * methods delegated via the Moo 'handles' interface are passed the
- attribue value directly. and there is no way to access the parent
- class. This means if an attribute is updated any triggers or type
- coercions WILL NOT fire.
-
- * Moo attribute method delegations are passed the attribute value.
- This is fine for references (objects, arrays, hashrefs..) it means
- simple scalar types are READ ONLY. This unfortunately means Number,
- String, Counter, Bool cannot modify the attributes value, rendering
- them largely useless.
-
-PROVIDED INTERFACE/FUNCTIONS
- process_has(@_)
- MooX::HandlesVia preprocesses arguments passed to has() attribute
- declarations via the process_has function. In a given Moo class, If
- 'handles_via' is set to a ClassName string, and 'handles' is set
- with a hashref mapping of desired moo class methods that should map
- to ClassName methods, process_has() will create the appropriate
- binding to create the mapping IF ClassName provides that named
- method.
-
- has options => (
- is => 'rw',
- handles_via => 'Array',
- handles => {
- mixup => 'shuffle',
- unique_options => 'uniq',
- all_options => 'elements'
- }
- );
-
- The following handles_via keywords are reserved as shorthand for mapping
- to Data::Perl:
-
- * Hash maps to Data::Perl::Collection::Hash::MooseLike
-
- * Array maps to Data::Perl::Collection::Array::MooseLike
-
- * String maps to Data::Perl::String::MooseLike
-
- * Number maps to Data::Perl::Number::MooseLike
-
- * Bool maps to Data::Perl::Bool::MooseLike
-
- * Code maps to Data::Perl::Code
-
-SEE ALSO
- * Moo
-
- * MooX::late
-
-AUTHOR
- Matthew Phillips <[email protected]>
-
-COPYRIGHT AND LICENSE
- This software is copyright (c) 2013 by Matthew Phillips
- <[email protected]>.
-
- This is free software; you can redistribute it and/or modify it under
- the same terms as the Perl 5 programming language system itself.
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/README.mkdn
new/MooX-HandlesVia-0.001008/README.mkdn
--- old/MooX-HandlesVia-0.001005/README.mkdn 2013-12-20 18:24:11.000000000
+0100
+++ new/MooX-HandlesVia-0.001008/README.mkdn 2015-03-31 03:33:22.000000000
+0200
@@ -4,7 +4,7 @@
# VERSION
-version 0.001005
+version 0.001008
# SYNOPSIS
@@ -48,16 +48,16 @@
- methods delegated via the Moo 'handles' interface are passed the
attribue value directly. and there is no way to access the parent class. This
-means if an attribute is updated any triggers or type coercions __WILL NOT__
+means if an attribute is updated any triggers or type coercions **WILL NOT**
fire.
- Moo attribute method delegations are passed the attribute value. This
is fine for references (objects, arrays, hashrefs..) it means simple scalar
-types are __READ ONLY__. This unfortunately means Number, String, Counter, Bool
+types are **READ ONLY**. This unfortunately means Number, String, Counter, Bool
cannot modify the attributes value, rendering them largely useless.
# PROVIDED INTERFACE/FUNCTIONS
-- __process\_has(@\_)__
+- **process\_has(@\_)**
MooX::HandlesVia preprocesses arguments passed to has() attribute
declarations
via the process\_has function. In a given Moo class, If 'handles\_via' is
set to
@@ -79,12 +79,12 @@
The following handles\_via keywords are reserved as shorthand for mapping to
[Data::Perl](https://metacpan.org/pod/Data::Perl):
-- __Hash__ maps to
[Data::Perl::Collection::Hash::MooseLike](https://metacpan.org/pod/Data::Perl::Collection::Hash::MooseLike)
-- __Array__ maps to
[Data::Perl::Collection::Array::MooseLike](https://metacpan.org/pod/Data::Perl::Collection::Array::MooseLike)
-- __String__ maps to
[Data::Perl::String::MooseLike](https://metacpan.org/pod/Data::Perl::String::MooseLike)
-- __Number__ maps to
[Data::Perl::Number::MooseLike](https://metacpan.org/pod/Data::Perl::Number::MooseLike)
-- __Bool__ maps to
[Data::Perl::Bool::MooseLike](https://metacpan.org/pod/Data::Perl::Bool::MooseLike)
-- __Code__ maps to
[Data::Perl::Code](https://metacpan.org/pod/Data::Perl::Code)
+- **Hash** maps to
[Data::Perl::Collection::Hash::MooseLike](https://metacpan.org/pod/Data::Perl::Collection::Hash::MooseLike)
+- **Array** maps to
[Data::Perl::Collection::Array::MooseLike](https://metacpan.org/pod/Data::Perl::Collection::Array::MooseLike)
+- **String** maps to
[Data::Perl::String::MooseLike](https://metacpan.org/pod/Data::Perl::String::MooseLike)
+- **Number** maps to
[Data::Perl::Number::MooseLike](https://metacpan.org/pod/Data::Perl::Number::MooseLike)
+- **Bool** maps to
[Data::Perl::Bool::MooseLike](https://metacpan.org/pod/Data::Perl::Bool::MooseLike)
+- **Code** maps to
[Data::Perl::Code](https://metacpan.org/pod/Data::Perl::Code)
# SEE ALSO
@@ -97,7 +97,7 @@
# COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/TODO
new/MooX-HandlesVia-0.001008/TODO
--- old/MooX-HandlesVia-0.001005/TODO 2013-12-20 18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/TODO 2015-03-31 03:33:22.000000000 +0200
@@ -1,3 +1,4 @@
+-add Moose upgrade tests to exercise moosify
-currently Data::Perl does not return certain wantarray contextual return vals
that Moose native traits return (ie hash get/set/delete, array splice). for
full backwards compatibility a ::Mooselike subclass should be provided by
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/dist.ini
new/MooX-HandlesVia-0.001008/dist.ini
--- old/MooX-HandlesVia-0.001005/dist.ini 2013-12-20 18:24:11.000000000
+0100
+++ new/MooX-HandlesVia-0.001008/dist.ini 2015-03-31 03:33:22.000000000
+0200
@@ -2,7 +2,7 @@
author = Matthew Phillips <[email protected]>
license = Perl_5
copyright_holder = Matthew Phillips <[email protected]>
-version = 0.001005
+version = 0.001008
[@Basic]
@@ -39,6 +39,7 @@
[Prereqs / TestRequires]
Test::More = 0
Test::Exception = 0
+Test::Fatal = 0
MooX::Types::MooseLike::Base = 0.23
[Prereqs]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooX-HandlesVia-0.001005/lib/Data/Perl/Bool/MooseLike.pm
new/MooX-HandlesVia-0.001008/lib/Data/Perl/Bool/MooseLike.pm
--- old/MooX-HandlesVia-0.001005/lib/Data/Perl/Bool/MooseLike.pm
2013-12-20 18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/lib/Data/Perl/Bool/MooseLike.pm
2015-03-31 03:33:22.000000000 +0200
@@ -1,8 +1,5 @@
package Data::Perl::Bool::MooseLike;
-{
- $Data::Perl::Bool::MooseLike::VERSION = '0.001005';
-}
-
+$Data::Perl::Bool::MooseLike::VERSION = '0.001008';
# ABSTRACT: data::Perl::Bool subclass that simulates Moose's native traits.
use strictures 1;
@@ -32,7 +29,7 @@
=head1 VERSION
-version 0.001005
+version 0.001008
=head1 SYNOPSIS
@@ -60,7 +57,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooX-HandlesVia-0.001005/lib/Data/Perl/Collection/Array/MooseLike.pm
new/MooX-HandlesVia-0.001008/lib/Data/Perl/Collection/Array/MooseLike.pm
--- old/MooX-HandlesVia-0.001005/lib/Data/Perl/Collection/Array/MooseLike.pm
2013-12-20 18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/lib/Data/Perl/Collection/Array/MooseLike.pm
2015-03-31 03:33:22.000000000 +0200
@@ -1,8 +1,5 @@
package Data::Perl::Collection::Array::MooseLike;
-{
- $Data::Perl::Collection::Array::MooseLike::VERSION = '0.001005';
-}
-
+$Data::Perl::Collection::Array::MooseLike::VERSION = '0.001008';
# ABSTRACT: Collection::Array subclass that simulates Moose's native traits.
use strictures 1;
@@ -34,7 +31,7 @@
=head1 VERSION
-version 0.001005
+version 0.001008
=head1 SYNOPSIS
@@ -82,7 +79,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooX-HandlesVia-0.001005/lib/Data/Perl/Collection/Hash/MooseLike.pm
new/MooX-HandlesVia-0.001008/lib/Data/Perl/Collection/Hash/MooseLike.pm
--- old/MooX-HandlesVia-0.001005/lib/Data/Perl/Collection/Hash/MooseLike.pm
2013-12-20 18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/lib/Data/Perl/Collection/Hash/MooseLike.pm
2015-03-31 03:33:22.000000000 +0200
@@ -1,8 +1,5 @@
package Data::Perl::Collection::Hash::MooseLike;
-{
- $Data::Perl::Collection::Hash::MooseLike::VERSION = '0.001005';
-}
-
+$Data::Perl::Collection::Hash::MooseLike::VERSION = '0.001008';
# ABSTRACT: Collection::Hash subclass that simulates Moose's native traits.
use strictures 1;
@@ -36,7 +33,7 @@
=head1 VERSION
-version 0.001005
+version 0.001008
=head1 SYNOPSIS
@@ -98,7 +95,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooX-HandlesVia-0.001005/lib/Data/Perl/Number/MooseLike.pm
new/MooX-HandlesVia-0.001008/lib/Data/Perl/Number/MooseLike.pm
--- old/MooX-HandlesVia-0.001005/lib/Data/Perl/Number/MooseLike.pm
2013-12-20 18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/lib/Data/Perl/Number/MooseLike.pm
2015-03-31 03:33:22.000000000 +0200
@@ -1,8 +1,5 @@
package Data::Perl::Number::MooseLike;
-{
- $Data::Perl::Number::MooseLike::VERSION = '0.001005';
-}
-
+$Data::Perl::Number::MooseLike::VERSION = '0.001008';
# ABSTRACT: data::Perl::Number subclass that simulates Moose's native traits.
use strictures 1;
@@ -32,7 +29,7 @@
=head1 VERSION
-version 0.001005
+version 0.001008
=head1 SYNOPSIS
@@ -60,7 +57,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooX-HandlesVia-0.001005/lib/Data/Perl/String/MooseLike.pm
new/MooX-HandlesVia-0.001008/lib/Data/Perl/String/MooseLike.pm
--- old/MooX-HandlesVia-0.001005/lib/Data/Perl/String/MooseLike.pm
2013-12-20 18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/lib/Data/Perl/String/MooseLike.pm
2015-03-31 03:33:22.000000000 +0200
@@ -1,8 +1,5 @@
package Data::Perl::String::MooseLike;
-{
- $Data::Perl::String::MooseLike::VERSION = '0.001005';
-}
-
+$Data::Perl::String::MooseLike::VERSION = '0.001008';
# ABSTRACT: data::Perl::String subclass that simulates Moose's native traits.
use strictures 1;
@@ -32,51 +29,23 @@
=head1 VERSION
-version 0.001005
+version 0.001008
=head1 SYNOPSIS
- use Data::Perl::Collection::Hash::MooseLike;
+ use Data::Perl::Collection::String::MooseLike;
- my $hash = Data::Perl::Collection::Hash::MooseLike->new(a => 1, b => 2);
+ my $string = Data::Perl::Collection::String::MooseLike->new("this is a
string\n");
- $hash->values; # (1, 2)
+ $string->chomp;
- $hash->set('foo', 'bar'); # (a => 1, b => 2, foo => 'bar')
+ $string->substr(); # etc
=head1 DESCRIPTION
-This class provides a wrapper and methods for interacting with a hash. All
+This class provides a wrapper and methods for interacting with a string. All
methods are written to emulate/match existing behavior that exists with Moose's
-native traits.
-
-=head1 DIFFERENCES IN FUNCTIONALITY
-
-=over 4
-
-=item B<get($key, $key, ...)>
-
-Returns values from the hash.
-
-In list context it returns a list of values in the hash for the given keys. In
-scalar context it returns the value for the last key specified.
-
-=item B<set($key, $value, ...)>
-
-Sets the elements in the hash to the given values. It returns the new values
-set for each key, in the same order as the keys passed to the method.
-
-This method requires at least two arguments, and expects an even number of
-arguments.
-
-=item B<delete($key, $key, ...)>
-
-Removes the elements with the given keys.
-
-In list context it returns a list of values in the hash for the deleted keys.
-In scalar context it returns the value for the last key specified.
-
-=back
+native traits. You should probably be looking at Data::Perl's documentation
instead.
=head1 SEE ALSO
@@ -94,7 +63,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/lib/MooX/HandlesVia.pm
new/MooX-HandlesVia-0.001008/lib/MooX/HandlesVia.pm
--- old/MooX-HandlesVia-0.001005/lib/MooX/HandlesVia.pm 2013-12-20
18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/lib/MooX/HandlesVia.pm 2015-03-31
03:33:22.000000000 +0200
@@ -1,10 +1,11 @@
- package MooX::HandlesVia;
-{
- $MooX::HandlesVia::VERSION = '0.001005';
-}
+package MooX::HandlesVia;
# ABSTRACT: NativeTrait-like behavior for Moo.
+$MooX::HandlesVia::VERSION = '0.001008';
+use strict;
+use warnings;
-use strictures 1;
+use Moo ();
+use Moo::Role ();
use Module::Runtime qw/require_module/;
# reserved hardcoded mappings for classname shortcuts.
@@ -25,16 +26,17 @@
no warnings 'redefine';
my $target = caller;
- if(my $has = $target->can('has')) {
- my $newsub = sub {
- $has->(process_has(@_));
- };
- if($target->isa("Moo::Object")){
- Moo::_install_tracked($target, "has", $newsub);
- }
- else{
- Moo::Role::_install_tracked($target, "has", $newsub);
- }
+ if (my $has = $target->can('has')) {
+ my $newsub = sub {
+ $has->(process_has(@_));
+ };
+
+ if (Moo::Role->is_role($target)) {
+ Moo::Role::_install_tracked($target, "has", $newsub);
+ }
+ else {
+ Moo::_install_tracked($target, "has", $newsub);
+ }
}
}
@@ -78,7 +80,7 @@
$spec->{traits} = [$REVERSED{$via} || $via];
# pass through if needed
- $inflator->($spec) if ref($spec) eq 'CODE';
+ $inflator->($spec) if ref($inflator) eq 'CODE';
};
}
@@ -97,7 +99,7 @@
=head1 VERSION
-version 0.001005
+version 0.001008
=head1 SYNOPSIS
@@ -213,7 +215,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Matthew Phillips <[email protected]>.
+This software is copyright (c) 2015 by Matthew Phillips <[email protected]>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/t/nonmoo-class.t
new/MooX-HandlesVia-0.001008/t/nonmoo-class.t
--- old/MooX-HandlesVia-0.001005/t/nonmoo-class.t 1970-01-01
01:00:00.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/t/nonmoo-class.t 2015-03-31
03:33:22.000000000 +0200
@@ -0,0 +1,39 @@
+BEGIN {
+{
+ package inherit;
+
+ sub new {
+ return bless +{}, shift;
+ }
+}
+
+{
+ package Ex1;
+
+ use Moo;
+ use MooX::HandlesVia;
+
+ extends 'inherit';
+
+ has foos => (
+ is => 'ro',
+ handles_via => 'Hash',
+ handles => {
+ 'get_foo' => 'get',
+ 'set_foo' => 'set',
+ },
+ );
+}
+};
+
+use Test::More;
+
+my $ex = Ex1->new(
+ foos => { a => 'b' },
+);
+my $isa = $ex->isa('Moo::Object');
+ok !$ex->isa('Moo::Object'), 'class doesnt inherit from moo';
+
+ok $ex->get_foo('a') eq 'b', 'handlesVia still applied';
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/t/release-pod-coverage.t
new/MooX-HandlesVia-0.001008/t/release-pod-coverage.t
--- old/MooX-HandlesVia-0.001005/t/release-pod-coverage.t 2013-12-20
18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/t/release-pod-coverage.t 2015-03-31
03:33:22.000000000 +0200
@@ -7,15 +7,9 @@
}
}
+# This file was automatically generated by
Dist::Zilla::Plugin::PodCoverageTests.
-use Test::More;
-
-eval "use Test::Pod::Coverage 1.08";
-plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
- if $@;
-
-eval "use Pod::Coverage::TrustPod";
-plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage"
- if $@;
+use Test::Pod::Coverage 1.08;
+use Pod::Coverage::TrustPod;
all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooX-HandlesVia-0.001005/t/release-pod-syntax.t
new/MooX-HandlesVia-0.001008/t/release-pod-syntax.t
--- old/MooX-HandlesVia-0.001005/t/release-pod-syntax.t 2013-12-20
18:24:11.000000000 +0100
+++ new/MooX-HandlesVia-0.001008/t/release-pod-syntax.t 2015-03-31
03:33:22.000000000 +0200
@@ -7,9 +7,8 @@
}
}
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
use Test::More;
-
-eval "use Test::Pod 1.41";
-plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
+use Test::Pod 1.41;
all_pod_files_ok();
