Add a load of docs to some of the under documented bits of type constraints. I don...

[gitmo/Moose.git] / lib / Moose / Meta / Attribute.pm

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 69e6006..93939f4 100644 (file)
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -511,7 +511,7 @@ sub get_value {
                     if ($self->should_coerce);
                 $type_constraint->check($value) 
                   || confess "Attribute (" . $self->name
-                      . "') does not pass the type constraint because: "
+                      . ") does not pass the type constraint because: "
                       . $type_constraint->get_message($value);
             }
             $self->set_initial_value($instance, $value);