diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-05-25 13:42:45 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-05-25 13:42:45 -0500 |
| commit | bbb409dcc33fe109968c6330b555fa72ab3f8e31 (patch) | |
| tree | 1a1cb1d156e845d75f9efba5f8d5547293568e9d /lib | |
| parent | 5eeb5c4a9cc9875b88ffa5d8e0f4732d7befd1bd (diff) | |
| download | bread-board-declare-bbb409dcc33fe109968c6330b555fa72ab3f8e31.tar.gz bread-board-declare-bbb409dcc33fe109968c6330b555fa72ab3f8e31.zip | |
moose forward compat
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm index f6584ae..a6114ea 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm @@ -226,7 +226,11 @@ if (Moose->VERSION > 1.9900) { . 'else {' . "\n" . '$val = ' . $instance . '->get_service(\'' . $self->name . '\')->get;' . "\n" . join("\n", $self->_inline_check_constraint( - '$val', '$type_constraint', '$type_constraint_obj' + '$val', + '$type_constraint', + (Moose->VERSION >= 2.0100 + ? '$type_message' + : '$type_constraint_obj'), )) . "\n" . '}' . "\n" . '$val' . "\n" |