From: gfx <gfuji@cpan.org>
Date: Sun, 4 Oct 2009 07:31:23 +0000 (+0900)
Subject: Fix a typo in a error message (s/You much supply/You must supply/)
X-Git-Tag: 0.93~32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9de4f04752e80dbc90bde54a1c49149255231f5;p=gitmo%2FMoose.git

Fix a typo in a error message (s/You much supply/You must supply/)
---

diff --git a/lib/Moose/Object.pm b/lib/Moose/Object.pm
index 261b7bf..1ee0a18 100644
--- a/lib/Moose/Object.pm
+++ b/lib/Moose/Object.pm
@@ -121,7 +121,7 @@ sub does {
     my ($self, $role_name) = @_;
     my $meta = Class::MOP::class_of($self);
     (defined $role_name)
-        || $meta->throw_error("You much supply a role name to does()");
+        || $meta->throw_error("You must supply a role name to does()");
     foreach my $class ($meta->class_precedence_list) {
         my $m = $meta->initialize($class);
         return 1
diff --git a/t/010_basics/017_error_handling.t b/t/010_basics/017_error_handling.t
index 4250c02..958c6d3 100644
--- a/t/010_basics/017_error_handling.t
+++ b/t/010_basics/017_error_handling.t
@@ -18,5 +18,5 @@ throws_ok { Foo->new('bad') } qr/^\QSingle parameters to new() must be a HASH re
 throws_ok { Foo->new(undef) } qr/^\QSingle parameters to new() must be a HASH ref/,
           'A single non-hashref arg to a constructor throws an error';
 
-throws_ok { Foo->does() } qr/^\QYou much supply a role name to does()/,
+throws_ok { Foo->does() } qr/^\QYou must supply a role name to does()/,
           'Cannot call does() without a role name';