Hello community,
here is the log from the commit of package perl-Moose-Autobox for
openSUSE:Factory checked in at 2013-08-07 20:52:13
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Moose-Autobox (Old)
and /work/SRC/openSUSE:Factory/.perl-Moose-Autobox.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Moose-Autobox"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Moose-Autobox/perl-Moose-Autobox.changes
2012-01-04 07:26:57.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Moose-Autobox.new/perl-Moose-Autobox.changes
2013-08-07 20:52:14.000000000 +0200
@@ -1,0 +2,7 @@
+Fri Jul 26 09:57:31 UTC 2013 - [email protected]
+
+- updated to 0.13
+ - switch from Perl6::Junction to Syntax::Keyword::Junction (rjbs)
+ - replace "use base" with "use parent"
+
+-------------------------------------------------------------------
Old:
----
Moose-Autobox-0.11.tar.gz
New:
----
Moose-Autobox-0.13.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Moose-Autobox.spec ++++++
--- /var/tmp/diff_new_pack.d8a06F/_old 2013-08-07 20:52:15.000000000 +0200
+++ /var/tmp/diff_new_pack.d8a06F/_new 2013-08-07 20:52:15.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Moose-Autobox
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products 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,25 +17,28 @@
Name: perl-Moose-Autobox
-Version: 0.11
+Version: 0.13
Release: 0
%define cpan_name Moose-Autobox
Summary: Autoboxed wrappers for Native Perl datatypes
-License: GPL-1.0+ or Artistic-1.0
+License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Moose-Autobox/
-Source:
http://www.cpan.org/authors/id/R/RJ/RJBS/Moose-Autobox-%{version}.tar.gz
+Source:
http://www.cpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{version}.tar.gz
+BuildArch: noarch
+BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(Moose) >= 0.42
-BuildRequires: perl(Perl6::Junction) >= 1.40000
+BuildRequires: perl(Syntax::Keyword::Junction)
BuildRequires: perl(Test::Exception) >= 0.21
+BuildRequires: perl(Test::More) >= 0.89
BuildRequires: perl(autobox) >= 2.23
-Requires: perl(autobox) >= 2.23
+BuildRequires: perl(parent)
Requires: perl(Moose) >= 0.42
-Requires: perl(Perl6::Junction) >= 1.40000
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
-BuildArch: noarch
+Requires: perl(Syntax::Keyword::Junction)
+Requires: perl(autobox) >= 2.23
+Requires: perl(parent)
%{perl_requires}
%description
@@ -45,38 +48,6 @@
manpage and the Moose manpage, was inspired by my work on the Perl 6 Object
Space, and the 'core types' implemented there.
-A quick word about autobox
- The the autobox manpage module provides the ability for calling
- 'methods' on normal Perl values like Scalars, Arrays, Hashes and Code
- references. This gives the illusion that Perl's types are first-class
- objects. However, this is only an illusion, albeit a very nice one. I
- created this module because the autobox manpage itself does not
- actually provide an implementation for the Perl types but instead only
- provides the 'hooks' for others to add implementation too.
-
-Is this for real? or just play?
- Several people are using this module in serious applications and it
- seems to be quite stable. The underlying technologies of the autobox
- manpage and the Moose::Role manpage are also considered stable. There
- is some performance hit, but as I am fond of saying, nothing in life is
- free. If you have any questions regarding this module, either email me,
- or stop by #moose on irc.perl.org and ask around.
-
-Adding additional methods
- *Moose::Autobox* asks the autobox manpage to use the
- *Moose::Autobox::** namespace prefix so as to avoid stepping on the
- toes of other the autobox manpage modules. This means that if you want
- to add methods to a particular perl type (i.e. - monkeypatch), then you
- must do this:
-
- sub Moose::Autobox::SCALAR::bar { 42 }
-
- instead of this:
-
- sub SCALAR::bar { 42 }
-
- as you would with vanilla autobox.
-
%prep
%setup -q -n %{cpan_name}-%{version}
@@ -92,11 +63,8 @@
%perl_process_packlist
%perl_gen_filelist
-%clean
-%{__rm} -rf %{buildroot}
-
%files -f %{name}.files
-%defattr(644,root,root,755)
-%doc Changes README
+%defattr(-,root,root,755)
+%doc Changes examples MYMETA.json MYMETA.yml README
%changelog
++++++ Moose-Autobox-0.11.tar.gz -> Moose-Autobox-0.13.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/Changes
new/Moose-Autobox-0.13/Changes
--- old/Moose-Autobox-0.11/Changes 2010-04-24 01:15:07.000000000 +0200
+++ new/Moose-Autobox-0.13/Changes 2012-08-29 15:57:19.000000000 +0200
@@ -1,5 +1,11 @@
Revision history for Perl extension Moose::Autobox
+0.13 Wed Aug 29 09:56:58 EDT 2012
+ - switch from Perl6::Junction to Syntax::Keyword::Junction (rjbs)
+
+0.12 Tue. Mar 20, 2012
+ - replace "use base" with "use parent"
+
0.11 Fri. Mar 23, 2010
- add each_n_values to Indexed (rafl and rjbs)
- add first and last to Scalar and Array (t0m)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/MANIFEST
new/Moose-Autobox-0.13/MANIFEST
--- old/Moose-Autobox-0.11/MANIFEST 2010-04-24 01:15:35.000000000 +0200
+++ new/Moose-Autobox-0.13/MANIFEST 2012-08-29 15:57:50.000000000 +0200
@@ -29,6 +29,8 @@
Makefile.PL
MANIFEST This list of files
META.yml
+MYMETA.json
+MYMETA.yml
README
t/000_load.t
t/001_basic.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/META.yml
new/Moose-Autobox-0.13/META.yml
--- old/Moose-Autobox-0.11/META.yml 2010-04-24 01:15:25.000000000 +0200
+++ new/Moose-Autobox-0.13/META.yml 2012-08-29 15:57:50.000000000 +0200
@@ -3,13 +3,14 @@
author:
- 'Stevan Little <[email protected]>'
build_requires:
- ExtUtils::MakeMaker: 6.42
+ ExtUtils::MakeMaker: 6.59
Test::Exception: 0.21
Test::More: 0.89
configure_requires:
- ExtUtils::MakeMaker: 6.42
+ ExtUtils::MakeMaker: 6.59
distribution_type: module
-generated_by: 'Module::Install version 0.95'
+dynamic_config: 1
+generated_by: 'Module::Install version 1.06'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -23,9 +24,11 @@
- xt
requires:
Moose: 0.42
- Perl6::Junction: 1.40000
+ Syntax::Keyword::Junction: 0
autobox: 2.23
+ parent: 0
perl: 5.6.0
resources:
license: http://dev.perl.org/licenses/
-version: 0.11
+ repository: git://git.moose.perl.org/Moose-Autobox.git
+version: 0.13
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/MYMETA.json
new/Moose-Autobox-0.13/MYMETA.json
--- old/Moose-Autobox-0.11/MYMETA.json 1970-01-01 01:00:00.000000000 +0100
+++ new/Moose-Autobox-0.13/MYMETA.json 2012-08-29 15:57:50.000000000 +0200
@@ -0,0 +1,47 @@
+{
+ "abstract" : "Autoboxed wrappers for Native Perl datatypes ",
+ "author" : [
+ "Stevan Little <[email protected]>"
+ ],
+ "dynamic_config" : 0,
+ "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter
version 2.120921",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : "2"
+ },
+ "name" : "Moose-Autobox",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "6.59",
+ "Test::Exception" : "0.21",
+ "Test::More" : "0.89"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Moose" : "0.42",
+ "Syntax::Keyword::Junction" : "0",
+ "autobox" : "2.23",
+ "parent" : "0",
+ "perl" : "5.006"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "0.13"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/MYMETA.yml
new/Moose-Autobox-0.13/MYMETA.yml
--- old/Moose-Autobox-0.11/MYMETA.yml 1970-01-01 01:00:00.000000000 +0100
+++ new/Moose-Autobox-0.13/MYMETA.yml 2012-08-29 15:57:50.000000000 +0200
@@ -0,0 +1,28 @@
+---
+abstract: 'Autoboxed wrappers for Native Perl datatypes '
+author:
+ - 'Stevan Little <[email protected]>'
+build_requires:
+ ExtUtils::MakeMaker: 6.59
+ Test::Exception: 0.21
+ Test::More: 0.89
+configure_requires:
+ ExtUtils::MakeMaker: 0
+dynamic_config: 0
+generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter
version 2.120921'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Moose-Autobox
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ Moose: 0.42
+ Syntax::Keyword::Junction: 0
+ autobox: 2.23
+ parent: 0
+ perl: 5.006
+version: 0.13
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/Makefile.PL
new/Moose-Autobox-0.13/Makefile.PL
--- old/Moose-Autobox-0.11/Makefile.PL 2010-04-23 22:17:13.000000000 +0200
+++ new/Moose-Autobox-0.13/Makefile.PL 2012-08-29 15:56:35.000000000 +0200
@@ -1,18 +1,22 @@
use strict;
use warnings;
-use inc::Module::Install;
+use inc::Module::Install 0.96;
+use Module::Install::AutoManifest;
use Module::Install::ExtraTests;
name('Moose-Autobox');
all_from('lib/Moose/Autobox.pm');
requires 'autobox' => '2.23';
+requires 'parent' => 0;
requires 'Moose' => '0.42';
-requires 'Perl6::Junction' => '1.40000';
+requires 'Syntax::Keyword::Junction' => 0;
test_requires 'Test::More' => '0.89';
test_requires 'Test::Exception' => '0.21';
+repository 'git://git.moose.perl.org/Moose-Autobox.git';
+
auto_manifest;
tests_recursive;
extra_tests;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/inc/Module/Install/Base.pm
new/Moose-Autobox-0.13/inc/Module/Install/Base.pm
--- old/Moose-Autobox-0.11/inc/Module/Install/Base.pm 2010-04-24
01:15:25.000000000 +0200
+++ new/Moose-Autobox-0.13/inc/Module/Install/Base.pm 2012-08-29
15:57:50.000000000 +0200
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.95';
+ $VERSION = '1.06';
}
# Suspend handler for "redefined" warnings
@@ -51,13 +51,18 @@
#line 106
sub is_admin {
- $_[0]->admin->VERSION;
+ ! $_[0]->admin->isa('Module::Install::Base::FakeAdmin');
}
sub DESTROY {}
package Module::Install::Base::FakeAdmin;
+use vars qw{$VERSION};
+BEGIN {
+ $VERSION = $Module::Install::Base::VERSION;
+}
+
my $fake;
sub new {
@@ -75,4 +80,4 @@
1;
-#line 154
+#line 159
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/inc/Module/Install/Can.pm
new/Moose-Autobox-0.13/inc/Module/Install/Can.pm
--- old/Moose-Autobox-0.11/inc/Module/Install/Can.pm 2010-04-24
01:15:25.000000000 +0200
+++ new/Moose-Autobox-0.13/inc/Module/Install/Can.pm 2012-08-29
15:57:50.000000000 +0200
@@ -3,13 +3,12 @@
use strict;
use Config ();
-use File::Spec ();
use ExtUtils::MakeMaker ();
use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.95';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -29,7 +28,7 @@
eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}
-# check if we can run some command
+# Check if we can run some command
sub can_run {
my ($self, $cmd) = @_;
@@ -38,14 +37,88 @@
for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
next if $dir eq '';
- my $abs = File::Spec->catfile($dir, $_[1]);
+ require File::Spec;
+ my $abs = File::Spec->catfile($dir, $cmd);
return $abs if (-x $abs or $abs = MM->maybe_command($abs));
}
return;
}
-# can we locate a (the) C compiler
+# Can our C compiler environment build XS files
+sub can_xs {
+ my $self = shift;
+
+ # Ensure we have the CBuilder module
+ $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 );
+
+ # Do we have the configure_requires checker?
+ local $@;
+ eval "require ExtUtils::CBuilder;";
+ if ( $@ ) {
+ # They don't obey configure_requires, so it is
+ # someone old and delicate. Try to avoid hurting
+ # them by falling back to an older simpler test.
+ return $self->can_cc();
+ }
+
+ # Do we have a working C compiler
+ my $builder = ExtUtils::CBuilder->new(
+ quiet => 1,
+ );
+ unless ( $builder->have_compiler ) {
+ # No working C compiler
+ return 0;
+ }
+
+ # Write a C file representative of what XS becomes
+ require File::Temp;
+ my ( $FH, $tmpfile ) = File::Temp::tempfile(
+ "compilexs-XXXXX",
+ SUFFIX => '.c',
+ );
+ binmode $FH;
+ print $FH <<'END_C';
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+int main(int argc, char **argv) {
+ return 0;
+}
+
+int boot_sanexs() {
+ return 1;
+}
+
+END_C
+ close $FH;
+
+ # Can the C compiler access the same headers XS does
+ my @libs = ();
+ my $object = undef;
+ eval {
+ local $^W = 0;
+ $object = $builder->compile(
+ source => $tmpfile,
+ );
+ @libs = $builder->link(
+ objects => $object,
+ module_name => 'sanexs',
+ );
+ };
+ my $result = $@ ? 0 : 1;
+
+ # Clean up all the build files
+ foreach ( $tmpfile, $object, @libs ) {
+ next unless defined $_;
+ 1 while unlink;
+ }
+
+ return $result;
+}
+
+# Can we locate a (the) C compiler
sub can_cc {
my $self = shift;
my @chunks = split(/ /, $Config::Config{cc}) or return;
@@ -78,4 +151,4 @@
__END__
-#line 156
+#line 236
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/inc/Module/Install/Fetch.pm
new/Moose-Autobox-0.13/inc/Module/Install/Fetch.pm
--- old/Moose-Autobox-0.11/inc/Module/Install/Fetch.pm 2010-04-24
01:15:25.000000000 +0200
+++ new/Moose-Autobox-0.13/inc/Module/Install/Fetch.pm 2012-08-29
15:57:50.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.95';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/inc/Module/Install/Makefile.pm
new/Moose-Autobox-0.13/inc/Module/Install/Makefile.pm
--- old/Moose-Autobox-0.11/inc/Module/Install/Makefile.pm 2010-04-24
01:15:25.000000000 +0200
+++ new/Moose-Autobox-0.13/inc/Module/Install/Makefile.pm 2012-08-29
15:57:50.000000000 +0200
@@ -4,10 +4,11 @@
use strict 'vars';
use ExtUtils::MakeMaker ();
use Module::Install::Base ();
+use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.95';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -101,24 +102,26 @@
my ($self, %new_args) = @_;
my $args = ( $self->{makemaker_args} ||= {} );
foreach my $key (keys %new_args) {
- if ($makemaker_argtype{$key} eq 'ARRAY') {
- $args->{$key} = [] unless defined $args->{$key};
- unless (ref $args->{$key} eq 'ARRAY') {
- $args->{$key} = [$args->{$key}]
+ if ($makemaker_argtype{$key}) {
+ if ($makemaker_argtype{$key} eq 'ARRAY') {
+ $args->{$key} = [] unless defined $args->{$key};
+ unless (ref $args->{$key} eq 'ARRAY') {
+ $args->{$key} = [$args->{$key}]
+ }
+ push @{$args->{$key}},
+ ref $new_args{$key} eq 'ARRAY'
+ ? @{$new_args{$key}}
+ : $new_args{$key};
}
- push @{$args->{$key}},
- ref $new_args{$key} eq 'ARRAY'
- ? @{$new_args{$key}}
- : $new_args{$key};
- }
- elsif ($makemaker_argtype{$key} eq 'HASH') {
- $args->{$key} = {} unless defined $args->{$key};
- foreach my $skey (keys %{ $new_args{$key} }) {
- $args->{$key}{$skey} = $new_args{$key}{$skey};
+ elsif ($makemaker_argtype{$key} eq 'HASH') {
+ $args->{$key} = {} unless defined $args->{$key};
+ foreach my $skey (keys %{ $new_args{$key} }) {
+ $args->{$key}{$skey} =
$new_args{$key}{$skey};
+ }
+ }
+ elsif ($makemaker_argtype{$key} eq 'APPENDABLE') {
+ $self->makemaker_append($key =>
$new_args{$key});
}
- }
- elsif ($makemaker_argtype{$key} eq 'APPENDABLE') {
- $self->makemaker_append($key => $new_args{$key});
}
else {
if (defined $args->{$key}) {
@@ -178,28 +181,22 @@
$self->makemaker_args( INC => shift );
}
-my %test_dir = ();
-
sub _wanted_t {
- /\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
}
sub tests_recursive {
my $self = shift;
- if ( $self->tests ) {
- die "tests_recursive will not work if tests are already
defined";
- }
my $dir = shift || 't';
unless ( -d $dir ) {
die "tests_recursive dir '$dir' does not exist";
}
- %test_dir = ();
+ my %tests = map { $_ => 1 } split / /, ($self->tests || '');
require File::Find;
- File::Find::find( \&_wanted_t, $dir );
- if ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
- File::Find::find( \&_wanted_t, 'xt' );
- }
- $self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
+ File::Find::find(
+ sub { /\.t$/ and -f $_ and $tests{"$File::Find::dir/*.t"} = 1 },
+ $dir
+ );
+ $self->tests( join ' ', sort keys %tests );
}
sub write {
@@ -218,18 +215,22 @@
require ExtUtils::MakeMaker;
if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
- # MakeMaker can complain about module versions that include
- # an underscore, even though its own version may contain one!
- # Hence the funny regexp to get rid of it. See RT #35800
- # for details.
- my $v = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/;
- $self->build_requires( 'ExtUtils::MakeMaker' => $v );
- $self->configure_requires( 'ExtUtils::MakeMaker' => $v );
+ # This previous attempted to inherit the version of
+ # ExtUtils::MakeMaker in use by the module author, but this
+ # was found to be untenable as some authors build releases
+ # using future dev versions of EU:MM that nobody else has.
+ # Instead, #toolchain suggests we use 6.59 which is the most
+ # stable version on CPAN at time of writing and is, to quote
+ # ribasushi, "not terminally fucked, > and tested enough".
+ # TODO: We will now need to maintain this over time to push
+ # the version up as new versions are released.
+ $self->build_requires( 'ExtUtils::MakeMaker' => 6.59 );
+ $self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 );
} else {
# Allow legacy-compatibility with 5.005 by depending on the
# most recent EU:MM that supported 5.005.
- $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );
- $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );
+ $self->build_requires( 'ExtUtils::MakeMaker' => 6.36 );
+ $self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 );
}
# Generate the MakeMaker params
@@ -244,13 +245,15 @@
'all_from' if you prefer) in Makefile.PL.
EOT
- $DB::single = 1;
if ( $self->tests ) {
my @tests = split ' ', $self->tests;
my %seen;
$args->{test} = {
TESTS => (join ' ', grep {!$seen{$_}++} @tests),
};
+ } elsif ( $Module::Install::ExtraTests::use_extratests ) {
+ # Module::Install::ExtraTests doesn't set $self->tests and does its
own tests via harness.
+ # So, just ignore our xt tests here.
} elsif ( -d 'xt' and ($Module::Install::AUTHOR or
$ENV{RELEASE_TESTING}) ) {
$args->{test} = {
TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{
t xt } ),
@@ -297,13 +300,22 @@
# Remove any reference to perl, BUILD_REQUIRES doesn't support it
delete $args->{BUILD_REQUIRES}->{perl};
- # Delete bundled dists from prereq_pm
- my $subdirs = ($args->{DIR} ||= []);
+ # Delete bundled dists from prereq_pm, add it to Makefile DIR
+ my $subdirs = ($args->{DIR} || []);
if ($self->bundles) {
+ my %processed;
foreach my $bundle (@{ $self->bundles }) {
- my ($file, $dir) = @$bundle;
- push @$subdirs, $dir if -d $dir;
- delete $build_prereq->{$file}; #Delete from build
prereqs only
+ my ($mod_name, $dist_dir) = @$bundle;
+ delete $prereq->{$mod_name};
+ $dist_dir = File::Basename::basename($dist_dir); # dir
for building this module
+ if (not exists $processed{$dist_dir}) {
+ if (-d $dist_dir) {
+ # List as sub-directory to be processed
by make
+ push @$subdirs, $dist_dir;
+ }
+ # Else do nothing: the module is already
present on the system
+ $processed{$dist_dir} = undef;
+ }
}
}
@@ -356,9 +368,9 @@
. ($self->postamble || '');
local *MAKEFILE;
- open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't
open $makefile_name: $!";
+ open MAKEFILE, "+< $makefile_name" or die "fix_up_makefile: Couldn't
open $makefile_name: $!";
+ eval { flock MAKEFILE, LOCK_EX };
my $makefile = do { local $/; <MAKEFILE> };
- close MAKEFILE or die $!;
$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
@@ -378,7 +390,8 @@
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
- open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't
open $makefile_name: $!";
+ seek MAKEFILE, 0, SEEK_SET;
+ truncate MAKEFILE, 0;
print MAKEFILE "$preamble$makefile$postamble" or die $!;
close MAKEFILE or die $!;
@@ -402,4 +415,4 @@
__END__
-#line 531
+#line 544
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/inc/Module/Install/Metadata.pm
new/Moose-Autobox-0.13/inc/Module/Install/Metadata.pm
--- old/Moose-Autobox-0.11/inc/Module/Install/Metadata.pm 2010-04-24
01:15:25.000000000 +0200
+++ new/Moose-Autobox-0.13/inc/Module/Install/Metadata.pm 2012-08-29
15:57:50.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.95';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -151,15 +151,21 @@
sub install_as_vendor { $_[0]->installdirs('vendor') }
sub dynamic_config {
- my $self = shift;
- unless ( @_ ) {
- warn "You MUST provide an explicit true/false value to
dynamic_config\n";
- return $self;
+ my $self = shift;
+ my $value = @_ ? shift : 1;
+ if ( $self->{values}->{dynamic_config} ) {
+ # Once dynamic we never change to static, for safety
+ return 0;
}
- $self->{values}->{dynamic_config} = $_[0] ? 1 : 0;
+ $self->{values}->{dynamic_config} = $value ? 1 : 0;
return 1;
}
+# Convenience command
+sub static_config {
+ shift->dynamic_config(0);
+}
+
sub perl_version {
my $self = shift;
return $self->{values}->{perl_version} unless @_;
@@ -170,7 +176,7 @@
# Normalize the version
$version = $self->_perl_version($version);
- # We don't support the reall old versions
+ # We don't support the really old versions
unless ( $version >= 5.005 ) {
die "Module::Install only supports 5.005 or newer (use
ExtUtils::MakeMaker)\n";
}
@@ -178,43 +184,6 @@
$self->{values}->{perl_version} = $version;
}
-#Stolen from M::B
-my %license_urls = (
- perl => 'http://dev.perl.org/licenses/',
- apache => 'http://apache.org/licenses/LICENSE-2.0',
- artistic => 'http://opensource.org/licenses/artistic-license.php',
- artistic_2 => 'http://opensource.org/licenses/artistic-license-2.0.php',
- lgpl => 'http://opensource.org/licenses/lgpl-license.php',
- lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php',
- lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html',
- bsd => 'http://opensource.org/licenses/bsd-license.php',
- gpl => 'http://opensource.org/licenses/gpl-license.php',
- gpl2 => 'http://opensource.org/licenses/gpl-2.0.php',
- gpl3 => 'http://opensource.org/licenses/gpl-3.0.html',
- mit => 'http://opensource.org/licenses/mit-license.php',
- mozilla => 'http://opensource.org/licenses/mozilla1.1.php',
- open_source => undef,
- unrestricted => undef,
- restrictive => undef,
- unknown => undef,
-);
-
-sub license {
- my $self = shift;
- return $self->{values}->{license} unless @_;
- my $license = shift or die(
- 'Did not provide a value to license()'
- );
- $self->{values}->{license} = $license;
-
- # Automatically fill in license URLs
- if ( $license_urls{$license} ) {
- $self->resources( license => $license_urls{$license} );
- }
-
- return 1;
-}
-
sub all_from {
my ( $self, $file ) = @_;
@@ -354,6 +323,9 @@
require ExtUtils::MM_Unix;
my ( $self, $file ) = @_;
$self->version( ExtUtils::MM_Unix->parse_version($file) );
+
+ # for version integrity check
+ $self->makemaker_args( VERSION_FROM => $file );
}
sub abstract_from {
@@ -364,7 +336,7 @@
{ DISTNAME => $self->name },
'ExtUtils::MM_Unix'
)->parse_abstract($file)
- );
+ );
}
# Add both distribution and module name
@@ -479,42 +451,90 @@
}
}
+#Stolen from M::B
+my %license_urls = (
+ perl => 'http://dev.perl.org/licenses/',
+ apache => 'http://apache.org/licenses/LICENSE-2.0',
+ apache_1_1 => 'http://apache.org/licenses/LICENSE-1.1',
+ artistic => 'http://opensource.org/licenses/artistic-license.php',
+ artistic_2 => 'http://opensource.org/licenses/artistic-license-2.0.php',
+ lgpl => 'http://opensource.org/licenses/lgpl-license.php',
+ lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php',
+ lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html',
+ bsd => 'http://opensource.org/licenses/bsd-license.php',
+ gpl => 'http://opensource.org/licenses/gpl-license.php',
+ gpl2 => 'http://opensource.org/licenses/gpl-2.0.php',
+ gpl3 => 'http://opensource.org/licenses/gpl-3.0.html',
+ mit => 'http://opensource.org/licenses/mit-license.php',
+ mozilla => 'http://opensource.org/licenses/mozilla1.1.php',
+ open_source => undef,
+ unrestricted => undef,
+ restrictive => undef,
+ unknown => undef,
+);
+
+sub license {
+ my $self = shift;
+ return $self->{values}->{license} unless @_;
+ my $license = shift or die(
+ 'Did not provide a value to license()'
+ );
+ $license = __extract_license($license) || lc $license;
+ $self->{values}->{license} = $license;
+
+ # Automatically fill in license URLs
+ if ( $license_urls{$license} ) {
+ $self->resources( license => $license_urls{$license} );
+ }
+
+ return 1;
+}
+
sub _extract_license {
my $pod = shift;
my $matched;
return __extract_license(
($matched) = $pod =~ m/
- (=head \d \s+ (?:licen[cs]e|licensing)\b.*?)
+ (=head \d \s+ L(?i:ICEN[CS]E|ICENSING)\b.*?)
(=head \d.*|=cut.*|)\z
- /ixms
+ /xms
) || __extract_license(
($matched) = $pod =~ m/
- (=head \d \s+ (?:copyrights?|legal)\b.*?)
+ (=head \d \s+ (?:C(?i:OPYRIGHTS?)|L(?i:EGAL))\b.*?)
(=head \d.*|=cut.*|)\z
- /ixms
+ /xms
);
}
sub __extract_license {
my $license_text = shift or return;
my @phrases = (
- 'under the same (?:terms|license) as (?:perl|the perl
programming language)' => 'perl', 1,
- 'under the terms of (?:perl|the perl programming language)
itself' => 'perl', 1,
- 'Artistic and GPL' => 'perl', 1,
- 'GNU general public license' => 'gpl', 1,
- 'GNU public license' => 'gpl', 1,
- 'GNU lesser general public license' => 'lgpl', 1,
- 'GNU lesser public license' => 'lgpl', 1,
- 'GNU library general public license' => 'lgpl', 1,
- 'GNU library public license' => 'lgpl', 1,
- 'BSD license' => 'bsd', 1,
- 'Artistic license' => 'artistic', 1,
- 'GPL' => 'gpl', 1,
- 'LGPL' => 'lgpl', 1,
- 'BSD' => 'bsd', 1,
- 'Artistic' => 'artistic', 1,
- 'MIT' => 'mit', 1,
- 'proprietary' => 'proprietary', 0,
+ '(?:under )?the same (?:terms|license) as (?:perl|the perl
(?:\d )?programming language)' => 'perl', 1,
+ '(?:under )?the terms of (?:perl|the perl programming language)
itself' => 'perl', 1,
+ 'Artistic and GPL' => 'perl', 1,
+ 'GNU general public license' => 'gpl', 1,
+ 'GNU public license' => 'gpl', 1,
+ 'GNU lesser general public license' => 'lgpl', 1,
+ 'GNU lesser public license' => 'lgpl', 1,
+ 'GNU library general public license' => 'lgpl', 1,
+ 'GNU library public license' => 'lgpl', 1,
+ 'GNU Free Documentation license' => 'unrestricted', 1,
+ 'GNU Affero General Public License' => 'open_source', 1,
+ '(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
+ 'Artistic license' => 'artistic', 1,
+ 'Apache (?:Software )?license' => 'apache', 1,
+ 'GPL' => 'gpl', 1,
+ 'LGPL' => 'lgpl', 1,
+ 'BSD' => 'bsd', 1,
+ 'Artistic' => 'artistic', 1,
+ 'MIT' => 'mit', 1,
+ 'Mozilla Public License' => 'mozilla', 1,
+ 'Q Public License' => 'open_source', 1,
+ 'OpenSSL License' => 'unrestricted', 1,
+ 'SSLeay License' => 'unrestricted', 1,
+ 'zlib License' => 'open_source', 1,
+ 'proprietary' => 'proprietary', 0,
);
while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
$pattern =~ s#\s+#\\s+#gs;
@@ -522,6 +542,7 @@
return $license;
}
}
+ return '';
}
sub license_from {
@@ -536,9 +557,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
@@ -567,7 +588,7 @@
sub requires_from {
my $self = shift;
my $content = Module::Install::_readperl($_[0]);
- my @requires = $content =~
m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
+ my @requires = $content =~
m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg;
while ( @requires ) {
my $module = shift @requires;
my $version = shift @requires;
@@ -602,8 +623,15 @@
return $v;
}
-
-
+sub add_metadata {
+ my $self = shift;
+ my %hash = @_;
+ for my $key (keys %hash) {
+ warn "add_metadata: $key is not prefixed with 'x_'.\n" .
+ "Use appopriate function to add non-private metadata.\n" unless
$key =~ /^x_/;
+ $self->{values}->{$key} = $hash{$key};
+ }
+}
######################################################################
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/inc/Module/Install/Win32.pm
new/Moose-Autobox-0.13/inc/Module/Install/Win32.pm
--- old/Moose-Autobox-0.11/inc/Module/Install/Win32.pm 2010-04-24
01:15:25.000000000 +0200
+++ new/Moose-Autobox-0.13/inc/Module/Install/Win32.pm 2012-08-29
15:57:50.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.95';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/inc/Module/Install/WriteAll.pm
new/Moose-Autobox-0.13/inc/Module/Install/WriteAll.pm
--- old/Moose-Autobox-0.11/inc/Module/Install/WriteAll.pm 2010-04-24
01:15:25.000000000 +0200
+++ new/Moose-Autobox-0.13/inc/Module/Install/WriteAll.pm 2012-08-29
15:57:50.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.95';;
+ $VERSION = '1.06';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/inc/Module/Install.pm
new/Moose-Autobox-0.13/inc/Module/Install.pm
--- old/Moose-Autobox-0.11/inc/Module/Install.pm 2010-04-24
01:15:24.000000000 +0200
+++ new/Moose-Autobox-0.13/inc/Module/Install.pm 2012-08-29
15:57:50.000000000 +0200
@@ -22,7 +22,6 @@
use Cwd ();
use File::Find ();
use File::Path ();
-use FindBin;
use vars qw{$VERSION $MAIN};
BEGIN {
@@ -32,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.95';
+ $VERSION = '1.06';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -127,6 +126,11 @@
#-------------------------------------------------------------
unless ( -f $self->{file} ) {
+ foreach my $key (keys %INC) {
+ delete $INC{$key} if $key =~ /Module\/Install/;
+ }
+
+ local $^W;
require "$self->{path}/$self->{dispatch}.pm";
File::Path::mkpath("$self->{prefix}/$self->{author}");
$self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top
=> $self );
@@ -135,12 +139,13 @@
goto &{"$self->{name}::import"};
}
+ local $^W;
*{"${who}::AUTOLOAD"} = $self->autoload;
$self->preload;
# Unregister loader and worker packages so subdirs can use them again
- delete $INC{"$self->{file}"};
- delete $INC{"$self->{path}.pm"};
+ delete $INC{'inc/Module/Install.pm'};
+ delete $INC{'Module/Install.pm'};
# Save to the singleton
$MAIN = $self;
@@ -159,7 +164,21 @@
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
- $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
+ unless ($$sym =~ s/([^:]+)$//) {
+ # XXX: it looks like we can't retrieve the missing
function
+ # via $$sym (usually $main::AUTOLOAD) in this case.
+ # I'm still wondering if we should slurp Makefile.PL to
+ # get some context or not ...
+ my ($package, $file, $line) = caller;
+ die <<"EOT";
+Unknown function is found at $file line $line.
+Execution of $file aborted due to runtime errors.
+
+If you're a contributor to a project, you may need to install
+some Module::Install extensions from CPAN (or other repository).
+If you're a user of a module, please contact the author.
+EOT
+ }
my $method = $1;
if ( uc($method) eq $method ) {
# Do nothing
@@ -200,6 +219,7 @@
my $who = $self->_caller;
foreach my $name ( sort keys %seen ) {
+ local $^W;
*{"${who}::$name"} = sub {
${"${who}::AUTOLOAD"} = "${who}::$name";
goto &{"${who}::AUTOLOAD"};
@@ -210,12 +230,18 @@
sub new {
my ($class, %args) = @_;
+ delete $INC{'FindBin.pm'};
+ {
+ # to suppress the redefine warning
+ local $SIG{__WARN__} = sub {};
+ require FindBin;
+ }
+
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
delete $args{prefix};
}
-
return $args{_self} if $args{_self};
$args{dispatch} ||= 'Admin';
@@ -268,8 +294,10 @@
sub load_extensions {
my ($self, $path, $top) = @_;
+ my $should_reload = 0;
unless ( grep { ! ref $_ and lc $_ eq lc $self->{prefix} } @INC ) {
unshift @INC, $self->{prefix};
+ $should_reload = 1;
}
foreach my $rv ( $self->find_extensions($path) ) {
@@ -277,12 +305,13 @@
next if $self->{pathnames}{$pkg};
local $@;
- my $new = eval { require $file; $pkg->can('new') };
+ my $new = eval { local $^W; require $file; $pkg->can('new') };
unless ( $new ) {
warn $@ if $@;
next;
}
- $self->{pathnames}{$pkg} = delete $INC{$file};
+ $self->{pathnames}{$pkg} =
+ $should_reload ? delete $INC{$file} : $INC{$file};
push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
}
@@ -422,7 +451,7 @@
}
sub _cmp ($$) {
- _version($_[0]) <=> _version($_[1]);
+ _version($_[1]) <=> _version($_[2]);
}
# Cloned from Params::Util::_CLASS
@@ -438,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2012 Adam Kennedy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Array.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Array.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Array.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Array.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,9 +1,13 @@
package Moose::Autobox::Array;
use Moose::Role 'with';
-use Perl6::Junction;
use Moose::Autobox;
-our $VERSION = '0.11';
+use Syntax::Keyword::Junction::All ();
+use Syntax::Keyword::Junction::Any ();
+use Syntax::Keyword::Junction::None ();
+use Syntax::Keyword::Junction::One ();
+
+our $VERSION = '0.13';
with 'Moose::Autobox::Ref',
'Moose::Autobox::List',
@@ -181,22 +185,22 @@
sub all {
my ($array) = @_;
- return Perl6::Junction::all(@$array);
+ return Syntax::Keyword::Junction::All->new(@$array);
}
sub any {
my ($array) = @_;
- return Perl6::Junction::any(@$array);
+ return Syntax::Keyword::Junction::Any->new(@$array);
}
sub none {
my ($array) = @_;
- return Perl6::Junction::none(@$array);
+ return Syntax::Keyword::Junction::None->new(@$array);
}
sub one {
my ($array) = @_;
- return Perl6::Junction::one(@$array);
+ return Syntax::Keyword::Junction::One->new(@$array);
}
## Print
@@ -204,6 +208,8 @@
sub print { CORE::print @{$_[0]} }
sub say { CORE::print @{$_[0]}, "\n" }
+no Moose::Role;
+
1;
__END__
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Code.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Code.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Code.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Code.pm 2012-08-29
15:56:52.000000000 +0200
@@ -2,7 +2,7 @@
use Moose::Role 'with';
use Moose::Autobox;
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Ref';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Defined.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Defined.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Defined.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Defined.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Defined;
use Moose::Role 'with';
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Item';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Hash.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Hash.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Hash.pm 2010-04-24
01:13:07.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Hash.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Hash;
use Moose::Role 'with';
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Ref',
'Moose::Autobox::Indexed';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Indexed.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Indexed.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Indexed.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Indexed.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Indexed;
use Moose::Role 'requires';
-our $VERSION = '0.11';
+our $VERSION = '0.13';
requires 'at';
requires 'put';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Item.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Item.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Item.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Item.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Item;
use Moose::Role 'requires';
-our $VERSION = '0.11';
+our $VERSION = '0.13';
requires 'defined';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/List.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/List.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/List.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/List.pm 2012-08-29
15:56:52.000000000 +0200
@@ -3,7 +3,7 @@
use Moose::Role 'with', 'requires';
use Moose::Autobox;
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Value';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Number.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Number.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Number.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Number.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Number;
use Moose::Role;
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Value';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Ref.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Ref.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Ref.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Ref.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Ref;
use Moose::Role 'with';
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Defined';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Scalar.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Scalar.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Scalar.pm 2010-04-24
01:13:21.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Scalar.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Scalar;
use Moose::Role 'with';
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::String',
'Moose::Autobox::Number';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/String.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/String.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/String.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/String.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::String;
use Moose::Role;
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Value';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Undef.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Undef.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Undef.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Undef.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Undef;
use Moose::Role 'with';
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Item';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox/Value.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox/Value.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox/Value.pm 2010-04-23
22:41:31.000000000 +0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox/Value.pm 2012-08-29
15:56:52.000000000 +0200
@@ -1,7 +1,7 @@
package Moose::Autobox::Value;
use Moose::Role 'with';
-our $VERSION = '0.11';
+our $VERSION = '0.13';
with 'Moose::Autobox::Defined';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Moose-Autobox-0.11/lib/Moose/Autobox.pm
new/Moose-Autobox-0.13/lib/Moose/Autobox.pm
--- old/Moose-Autobox-0.11/lib/Moose/Autobox.pm 2010-04-23 22:41:31.000000000
+0200
+++ new/Moose-Autobox-0.13/lib/Moose/Autobox.pm 2012-08-29 15:56:52.000000000
+0200
@@ -8,9 +8,9 @@
use Scalar::Util ();
use Moose::Util ();
-our $VERSION = '0.11';
+our $VERSION = '0.13';
-use base 'autobox';
+use parent 'autobox';
use Moose::Autobox::Undef;
@@ -112,9 +112,12 @@
Several people are using this module in serious applications and
it seems to be quite stable. The underlying technologies of L<autobox>
and L<Moose::Role> are also considered stable. There is some performance
-hit, but as I am fond of saying, nothing in life is free. If you have
-any questions regarding this module, either email me, or stop by #moose
-on irc.perl.org and ask around.
+hit, but as I am fond of saying, nothing in life is free. Note that this hit
+only applies to the I<use> of methods on native Perl values, not the mere act
+of loading this module in your namespace.
+
+If you have any questions regarding this module, either email me, or stop by
+#moose on irc.perl.org and ask around.
=head2 Adding additional methods
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
