X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=329ed83be6bd34422572495fee4b84779e981afc;hb=8517d2ffa37a1201d9bf388d60b23a5daea27272;hp=35acad9b3c7e6af41fb938f405fa4433f6eac14b;hpb=dca275b57dc7268b59e9a4096fa70b319eb7b233;p=gitmo%2FMouse.git

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index 35acad9..329ed83 100644
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -3,12 +3,13 @@ package Mouse;
 use strict;
 use warnings;
 
-our $VERSION = '0.01';
-use 5.6.0;
+our $VERSION = '0.02';
+use 5.006;
 
 use Sub::Exporter;
 use Carp 'confess';
 use Scalar::Util 'blessed';
+use Class::Method::Modifiers ();
 
 use Mouse::Meta::Attribute;
 use Mouse::Meta::Class;
@@ -50,6 +51,18 @@ do {
         blessed => sub {
             return \&blessed;
         },
+
+        before => sub {
+            return \&Class::Method::Modifiers::before;
+        },
+
+        after => sub {
+            return \&Class::Method::Modifiers::after;
+        },
+
+        around => sub {
+            return \&Class::Method::Modifiers::around;
+        },
     );
 
     my $exporter = Sub::Exporter::build_exporter({
@@ -139,7 +152,7 @@ Mouse - Moose minus the antlers
 
 =head1 VERSION
 
-Version 0.01 released 10 Jun 08
+Version 0.02 released 11 Jun 08
 
 =head1 SYNOPSIS
 
@@ -162,11 +175,10 @@ Version 0.01 released 10 Jun 08
 
     has 'z' => (is => 'rw', isa => 'Int');
 
-    # not implemented yet :)
-    #after 'clear' => sub {
-    #    my $self = shift;
-    #    $self->z(0);
-    #};
+    after 'clear' => sub {
+        my $self = shift;
+        $self->z(0);
+    };
 
 =head1 DESCRIPTION
 
@@ -184,10 +196,13 @@ expert-level features.
 
 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 99%. Even the error messages are taken from Moose.
+over 99%. Even the error messages are taken from Moose. The Mouse code just
+runs the test suite 3x-4x faster.
 
 The idea is that, if you need the extra power, you should be able to run
-C<s/Mouse/Moose/g> on your codebase and have nothing break.
+C<s/Mouse/Moose/g> on your codebase and have nothing break. To that end,
+nothingmuch has written L<Squirrel> (part of this distribution) which will act
+as Mouse unless Moose is loaded, in which case it will act as Moose.
 
 Mouse also has the blessings of Moose's author, stevan.