X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=ceebe197f1e2156f75d9f12d815b7835e6990745;hb=66e3df7a8d3d839b53f6fc3af8f4bad6fc27fefe;hp=41f6b0cd9811b98bc4e50ffec6c3845233081872;hpb=8c235ea79c109c704514acd56b10265220499d70;p=gitmo%2FMouse.git diff --git a/lib/Mouse.pm b/lib/Mouse.pm index 41f6b0c..ceebe19 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -3,12 +3,12 @@ use 5.006_002; use Mouse::Exporter; # enables strict and warnings -our $VERSION = '0.46'; +our $VERSION = '0.88'; use Carp qw(confess); use Scalar::Util qw(blessed); -use Mouse::Util qw(load_class is_class_loaded get_code_package not_supported); +use Mouse::Util (); use Mouse::Meta::Module; use Mouse::Meta::Class; @@ -48,46 +48,35 @@ sub has { $meta->throw_error(q{Usage: has 'name' => ( key => value, ... )}) if @_ % 2; # odd number of arguments - if(ref $name){ # has [qw(foo bar)] => (...) - for (@{$name}){ - $meta->add_attribute($_ => @_); - } - } - else{ # has foo => (...) - $meta->add_attribute($name => @_); + for my $n(ref($name) ? @{$name} : $name){ + $meta->add_attribute($n => @_); } return; } sub before { my $meta = Mouse::Meta::Class->initialize(scalar caller); - my $code = pop; - - for (@_) { - $meta->add_before_method_modifier($_ => $code); + for my $name($meta->_collect_methods(@_)) { + $meta->add_before_method_modifier($name => $code); } return; } sub after { my $meta = Mouse::Meta::Class->initialize(scalar caller); - my $code = pop; - - for (@_) { - $meta->add_after_method_modifier($_ => $code); + for my $name($meta->_collect_methods(@_)) { + $meta->add_after_method_modifier($name => $code); } return; } sub around { my $meta = Mouse::Meta::Class->initialize(scalar caller); - my $code = pop; - - for (@_) { - $meta->add_around_method_modifier($_ => $code); + for my $name($meta->_collect_methods(@_)) { + $meta->add_around_method_modifier($name => $code); } return; } @@ -136,7 +125,7 @@ sub init_meta { my %args = @_; my $class = $args{for_class} - or confess("Cannot call init_meta without specifying a for_class"); + or confess("Cannot call init_meta without specifying a for_class"); my $base_class = $args{base_class} || 'Mouse::Object'; my $metaclass = $args{metaclass} || 'Mouse::Meta::Class'; @@ -166,7 +155,7 @@ Mouse - Moose minus the antlers =head1 VERSION -This document describes Mouse version 0.46 +This document describes Mouse version 0.88 =head1 SYNOPSIS @@ -182,6 +171,9 @@ This document describes Mouse version 0.46 $self->y(0); } + + __PACKAGE__->meta->make_immutable(); + package Point3D; use Mouse; @@ -194,44 +186,46 @@ This document describes Mouse version 0.46 $self->z(0); }; + __PACKAGE__->meta->make_immutable(); + =head1 DESCRIPTION -L is wonderful. B +L is a postmodern object system for Perl5. Moose is wonderful. Unfortunately, Moose has a compile-time penalty. Though significant progress has been made over the years, the compile time penalty is a non-starter for some very specific applications. If you are writing a command-line application or CGI script where startup time is essential, you may not be able to use -Moose. We recommend that you instead use L and FastCGI for the -latter, if possible. +Moose (we recommend that you instead use persistent Perl executing environments +like C for the latter, if possible). -Mouse aims to alleviate this by providing a subset of Moose's functionality, -faster. +Mouse is a Moose compatible object system, which aims to alleviate this penalty +by providing a subset of Moose's functionality. We're also going as light on dependencies as possible. Mouse currently has -B except for testing modules. +B except for building/testing modules. Mouse also works +without XS, although it has an XS backend to make it much faster. -=head2 MOOSE COMPATIBILITY +=head2 Moose Compatibility -Compatibility with Moose has been the utmost concern. Fewer than 1% of the -tests fail when run against Moose instead of Mouse. Mouse code coverage is also -over 96%. Even the error messages are taken from Moose. The Mouse code just -runs the test suite 4x faster. +Compatibility with Moose has been the utmost concern. The sugary interface is +highly compatible with Moose. Even the error messages are taken from Moose. +The Mouse code just runs its test suite 4x faster. The idea is that, if you need the extra power, you should be able to run C on your codebase and have nothing break. To that end, -we have written L which will act as Mouse unless Moose is loaded, +we have written L which will act as Mouse unless Moose is loaded, in which case it will act as Moose. Since Mouse is a little sloppier than Moose, if you run into weird errors, it would be worth running: ANY_MOOSE=Moose perl your-script.pl to see if the bug is caused by Mouse. Moose's diagnostics and validation are -also much better. +also better. See also L for compatibility and incompatibility with Moose. -=head2 MouseX +=head2 Mouse Extentions Please don't copy MooseX code to MouseX. If you need extensions, you really should upgrade to Moose. We don't need two parallel sets of extensions! @@ -249,15 +243,15 @@ Returns this class' metaclass instance. Sets this class' superclasses. -=head2 C<< before (method|methods) => CodeRef >> +=head2 C<< before (method|methods|regexp) => CodeRef >> Installs a "before" method modifier. See L. -=head2 C<< after (method|methods) => CodeRef >> +=head2 C<< after (method|methods|regexp) => CodeRef >> Installs an "after" method modifier. See L. -=head2 C<< around (method|methods) => CodeRef >> +=head2 C<< around (method|methods|regexp) => CodeRef >> Installs an "around" method modifier. See L. @@ -414,6 +408,8 @@ Perl 5.6.2 or later. =head1 SEE ALSO +L + L L