I forgot about init_arg oops

[gitmo/MooseX-AutoDoc.git] / lib / MooseX / AutoDoc.pm

diff --git a/lib/MooseX/AutoDoc.pm b/lib/MooseX/AutoDoc.pm
index c2b3e1d..5701536 100644 (file)
--- a/lib/MooseX/AutoDoc.pm
+++ b/lib/MooseX/AutoDoc.pm
@@ -249,6 +249,8 @@ sub attribute_info{
     $info->{reader} = $attr->reader     if $attr->has_reader;
     $info->{accessor} = $attr->accessor if $attr->has_accessor;
   }
+  $info->{'constructor key'} = $attr->init_arg
+    if $attr->has_init_arg && $attr->init_arg ne $attr_name;
 
   if( defined(my $lazy = $attr->is_lazy) ){
     $description .= 'lazy-building ';