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 (file)
--- 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 (file)
--- 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';