X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTest%2FMouse.pm;h=e654cdf808c125cf398cb96270a13386e3dd87ec;hb=4060c871da12ba3c5e88986ed121a8254f906bd6;hp=84f1973ab974c46bfa0f803c72754bc1f733291b;hpb=739525d0421188856c45329c8f001e9fbe0b30b2;p=gitmo%2FMouse.git diff --git a/t/lib/Test/Mouse.pm b/t/lib/Test/Mouse.pm index 84f1973..e654cdf 100644 --- a/t/lib/Test/Mouse.pm +++ b/t/lib/Test/Mouse.pm @@ -91,6 +91,9 @@ package Mouse::Meta::Attribute; sub applied_traits{ $_[0]->{traits} } # TEST ONLY sub has_applied_traits{ exists $_[0]->{traits} } # TEST ONLY +sub has_documentation{ exists $_[0]->{documentation} } # TEST ONLY +sub documentation{ $_[0]->{documentation} } # TEST ONLY + 1; __END__