X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=a1687f6318b4661c6b2edd91f46cf68a4c9d78b7;hb=59afef985b4a8c91e505715d75457b35656e4013;hp=fd38b12a86903aa0b77b90b08b08e79038e1d45d;hpb=4819ed36c693b311abb3f7d9965e1eeac1748345;p=gitmo%2FMouse.git diff --git a/lib/Mouse.pm b/lib/Mouse.pm index fd38b12..a1687f6 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.43'; +our $VERSION = '0.84'; 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.43 +This document describes Mouse version 0.84 =head1 SYNOPSIS @@ -182,6 +171,9 @@ This document describes Mouse version 0.43 $self->y(0); } + + __PACKAGE__->meta->make_immutable(); + package Point3D; use Mouse; @@ -194,40 +186,42 @@ This document describes Mouse version 0.43 $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 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 testing modules. Mouse also works without XS, +although it has an XS backend to make it much faster. =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 the 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. @@ -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. @@ -448,7 +442,7 @@ interface at L =head1 COPYRIGHT AND LICENSE -Copyright 2008-2009 Infinity Interactive, Inc. +Copyright (c) 2008-2010 Infinity Interactive, Inc. http://www.iinteractive.com/