r19850 - in /trunk/libmoose-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/ lib/Moose/ lib/Moose/Cookbook/ t/100_bugs/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun May 11 12:42:04 UTC 2008
Author: gregoa
Date: Sun May 11 12:42:03 2008
New Revision: 19850
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19850
Log:
New upstream release.
Added:
trunk/libmoose-perl/inc/Module/AutoInstall.pm
- copied unchanged from r19849, branches/upstream/libmoose-perl/current/inc/Module/AutoInstall.pm
trunk/libmoose-perl/inc/Module/Install/AutoInstall.pm
- copied unchanged from r19849, branches/upstream/libmoose-perl/current/inc/Module/Install/AutoInstall.pm
trunk/libmoose-perl/inc/Module/Install/Include.pm
- copied unchanged from r19849, branches/upstream/libmoose-perl/current/inc/Module/Install/Include.pm
trunk/libmoose-perl/lib/Moose/Cookbook/Recipe11.pod
- copied unchanged from r19849, branches/upstream/libmoose-perl/current/lib/Moose/Cookbook/Recipe11.pod
trunk/libmoose-perl/lib/Moose/Cookbook/Recipe7.pod
- copied unchanged from r19849, branches/upstream/libmoose-perl/current/lib/Moose/Cookbook/Recipe7.pod
trunk/libmoose-perl/lib/Moose/Cookbook/Recipe9.pod
- copied unchanged from r19849, branches/upstream/libmoose-perl/current/lib/Moose/Cookbook/Recipe9.pod
trunk/libmoose-perl/t/100_bugs/012_DEMOLISH_eats_mini.t
- copied unchanged from r19849, branches/upstream/libmoose-perl/current/t/100_bugs/012_DEMOLISH_eats_mini.t
Removed:
trunk/libmoose-perl/Build.PL
trunk/libmoose-perl/inc/Module/Install/Build.pm
Modified:
trunk/libmoose-perl/Changes
trunk/libmoose-perl/MANIFEST
trunk/libmoose-perl/META.yml
trunk/libmoose-perl/Makefile.PL
trunk/libmoose-perl/README
trunk/libmoose-perl/debian/changelog
trunk/libmoose-perl/lib/Moose.pm
trunk/libmoose-perl/lib/Moose/Cookbook.pod
trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod
trunk/libmoose-perl/lib/Moose/Object.pm
trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t
Modified: trunk/libmoose-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/Changes?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/Changes (original)
+++ trunk/libmoose-perl/Changes Sun May 11 12:42:03 2008
@@ -1,4 +1,38 @@
Revision history for Perl extension Moose
+
+0.44 Sat. May 10, 2008
+ * Moose
+ - made make_immutable warning cluck to
+ show where the error is (thanks mst)
+
+ * Moose::Object
+ - BUILDALL and DEMOLISHALL now call
+ ->body when looping through the
+ methods, to avoid the overloaded
+ method call.
+ - fixed issue where DEMOLISHALL was
+ eating the $@ values, and so not
+ working correctly, it still kind of
+ eats them, but so does vanilla perl
+ - added tests for this
+
+ * Moose::Cookbook::Recipe7
+ - added new recipe for immutable
+ functionality (thanks Dave Rolsky)
+
+ * Moose::Cookbook::Recipe9
+ - added new recipe for builder and
+ lazy_build (thanks Dave Rolsky)
+
+ * Moose::Cookbook::Recipe1
+ - added new recipe for method aliasing
+ and exclusion with Roles (thanks Dave Rolsky)
+
+ * t/
+ - fixed Win32 test failure (thanks spicyjack)
+
+ ~ removed Build.PL and Module::Build compat
+ since Module::Install has done that.
0.43 Wed. April, 30, 2008
* NOTE TO SELF:
Modified: trunk/libmoose-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/MANIFEST?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/MANIFEST (original)
+++ trunk/libmoose-perl/MANIFEST Sun May 11 12:42:03 2008
@@ -1,11 +1,12 @@
-Build.PL
Changes
doap.rdf
+inc/Module/AutoInstall.pm
inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
inc/Module/Install/Base.pm
-inc/Module/Install/Build.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
@@ -15,12 +16,15 @@
lib/Moose/Cookbook/FAQ.pod
lib/Moose/Cookbook/Recipe1.pod
lib/Moose/Cookbook/Recipe10.pod
+lib/Moose/Cookbook/Recipe11.pod
lib/Moose/Cookbook/Recipe2.pod
lib/Moose/Cookbook/Recipe21.pod
lib/Moose/Cookbook/Recipe3.pod
lib/Moose/Cookbook/Recipe4.pod
lib/Moose/Cookbook/Recipe5.pod
lib/Moose/Cookbook/Recipe6.pod
+lib/Moose/Cookbook/Recipe7.pod
+lib/Moose/Cookbook/Recipe9.pod
lib/Moose/Cookbook/Snack/Types.pod
lib/Moose/Cookbook/WTF.pod
lib/Moose/Meta/Attribute.pm
@@ -177,6 +181,7 @@
t/100_bugs/009_augment_recursion_bug.t
t/100_bugs/010_immutable_n_default_x2.t
t/100_bugs/011_DEMOLISH_eats_exceptions.t
+t/100_bugs/012_DEMOLISH_eats_mini.t
t/200_examples/001_example.t
t/200_examples/002_example_Moose_POOP.t
t/200_examples/003_example.t
Modified: trunk/libmoose-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/META.yml?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/META.yml (original)
+++ trunk/libmoose-perl/META.yml Sun May 11 12:42:03 2008
@@ -24,5 +24,5 @@
Scalar::Util: 1.18
Sub::Exporter: 0.972
Sub::Name: 0.02
-tests: t/*.t t/*/*.t
-version: 0.43
+tests: t/*.t t/000_recipes/*.t t/010_basics/*.t t/020_attributes/*.t t/030_roles/*.t t/040_type_constraints/*.t t/050_metaclasses/*.t t/060_compat/*.t t/100_bugs/*.t t/200_examples/*.t t/300_immutable/*.t t/400_moose_util/*.t t/500_test_moose/*.t
+version: 0.44
Modified: trunk/libmoose-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/Makefile.PL?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/Makefile.PL (original)
+++ trunk/libmoose-perl/Makefile.PL Sun May 11 12:42:03 2008
@@ -24,7 +24,9 @@
build_requires 'Test::Exception' => '0.21';
build_requires 'Test::LongString';
-tests('t/*.t t/*/*.t');
+tests_recursive;
+
+auto_install;
WriteAll();
Modified: trunk/libmoose-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/README?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/README (original)
+++ trunk/libmoose-perl/README Sun May 11 12:42:03 2008
@@ -1,4 +1,4 @@
-Moose version 0.41
+Moose version 0.44
===========================
See the individual module documentation for more information
Modified: trunk/libmoose-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/debian/changelog?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/debian/changelog (original)
+++ trunk/libmoose-perl/debian/changelog Sun May 11 12:42:03 2008
@@ -1,3 +1,9 @@
+libmoose-perl (0.44-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sun, 11 May 2008 14:40:12 +0200
+
libmoose-perl (0.43-1) unstable; urgency=low
* New upstream release
Modified: trunk/libmoose-perl/lib/Moose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose.pm?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose.pm (original)
+++ trunk/libmoose-perl/lib/Moose.pm Sun May 11 12:42:03 2008
@@ -4,11 +4,11 @@
use strict;
use warnings;
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our $AUTHORITY = 'cpan:STEVAN';
use Scalar::Util 'blessed', 'reftype';
-use Carp 'confess', 'croak';
+use Carp 'confess', 'croak', 'cluck';
use Sub::Name 'subname';
use Sub::Exporter;
@@ -174,8 +174,8 @@
make_immutable => sub {
my $class = $CALLER;
return subname 'Moose::make_immutable' => sub {
- warn "The make_immutable keyword has been deprecated, " .
- "please go back to __PACKAGE__->meta->make_immutable\n";
+ cluck "The make_immutable keyword has been deprecated, " .
+ "please go back to __PACKAGE__->meta->make_immutable\n";
$class->meta->make_immutable(@_);
};
},
@@ -318,7 +318,7 @@
=head2 Another object system!?!?
Yes, I know there has been an explosion recently of new ways to
-build object's in Perl 5, most of them based on inside-out objects
+build objects in Perl 5, most of them based on inside-out objects
and other such things. Moose is different because it is not a new
object system for Perl 5, but instead an extension of the existing
object system.
Modified: trunk/libmoose-perl/lib/Moose/Cookbook.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Cookbook.pod?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Cookbook.pod (original)
+++ trunk/libmoose-perl/lib/Moose/Cookbook.pod Sun May 11 12:42:03 2008
@@ -50,9 +50,10 @@
Demonstrates the use of C<augment> method modifiers, a way of turning
the usual method overriding style "inside-out".
-=item L<Moose::Cookbook::Recipe7> - Making Moose fast with immutable (TODO)
+=item L<Moose::Cookbook::Recipe7> - Making Moose fast with immutable
-I<abstract goes here>
+Making a class immutable greatly increases the speed of accessors and
+object construction.
=item L<Moose::Cookbook::Recipe8> - Managing complex relations with trigger (TODO)
@@ -60,9 +61,10 @@
Work off of this http://code2.0beta.co.uk/moose/svn/Moose/trunk/t/200_examples/007_Child_Parent_attr_inherit.t
-=item L<Moose::Cookbook::Recipe9> - ??
+=item L<Moose::Cookbook::Recipe9> - Builder methods and lazy_build
-I<abstract goes here>
+The builder feature provides an inheritable and role-composable way to
+provide a default attribute value.
=back
@@ -76,9 +78,12 @@
mix-ins. Roles provide a method of code re-use which is orthogonal to
subclassing.
-=item L<Moose::Cookbook::Recipe11> - Advanced Role Composition (TODO)
+=item L<Moose::Cookbook::Recipe11> - Advanced Role Composition - method exclusion and aliasing
-I<abstract goes here>
+Sometimes you just want to include part of a role in your
+class. Sometimes you want the whole role but one if its methods
+conflicts with one in your class. With method exclusion and aliasing,
+you can work around these problems.
=item L<Moose::Cookbook::Recipe12> - Runtime Role Composition (TODO)
Modified: trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod (original)
+++ trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod Sun May 11 12:42:03 2008
@@ -219,6 +219,9 @@
You I<can> use the C<default> option without the C<lazy> option if
you like, as we showed in the second recipe.
+And actually, you can use C<builder> instead of C<default>. See
+L<Moose::Cookbook::Recipe9> for details.
+
=back
=head1 AUTHOR
Modified: trunk/libmoose-perl/lib/Moose/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Object.pm?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Object.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Object.pm Sun May 11 12:42:03 2008
@@ -9,7 +9,7 @@
use Carp 'confess';
-our $VERSION = '0.12';
+our $VERSION = '0.13';
our $AUTHORITY = 'cpan:STEVAN';
sub new {
@@ -37,25 +37,34 @@
return unless $_[0]->can('BUILD');
my ($self, $params) = @_;
foreach my $method (reverse $self->meta->find_all_methods_by_name('BUILD')) {
- $method->{code}->($self, $params);
+ $method->{code}->body->($self, $params);
}
}
sub DEMOLISHALL {
+ my $self = shift;
+ foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
+ $method->{code}->body->($self);
+ }
+}
+
+sub DESTROY {
# NOTE: we ask Perl if we even
# need to do this first, to avoid
# extra meta level calls
- return unless $_[0]->can('DEMOLISH');
- my $self = shift;
- {
+ return unless $_[0]->can('DEMOLISH');
+ # if we have an exception here ...
+ if ($@) {
+ # localize the $@ ...
local $@;
- foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
- $method->{code}->($self);
- }
- }
+ # run DEMOLISHALL ourselves, ...
+ $_[0]->DEMOLISHALL;
+ # and return ...
+ return;
+ }
+ # otherwise it is normal destruction
+ goto &DEMOLISHALL;
}
-
-sub DESTROY { goto &DEMOLISHALL }
# new does() methods will be created
# as approiate see Moose::Meta::Role
Modified: trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t (original)
+++ trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t Sun May 11 12:42:03 2008
@@ -14,8 +14,8 @@
subtype 'FilePath'
=> as 'Str'
- => where { $_ =~ m#^(/[a-zA-Z0-9_.-]+)+$#; };
-
+ => where { $_ =~ m#^(/[a-zA-Z0-9_.-]+)+$#
+ || $_ =~ m#^([c-zC-Z]:/[a-zA-Z0-9_.-]+)# };
{
package Baz;
use Moose;
More information about the Pkg-perl-cvs-commits
mailing list