# Done with `auto_deref => 1`
 @list = $obj-> prop;

 # Done with a custom writer attribute that takes an array, and stores
+ a reference to it.
 # internally Moose uses a plain perl hash (most complex datastructure
+ in perl), this 
 # limits it to not having true non-array properties (but a scalar arr
+ay-ref works)
 $obj->prop(@list);

 # assuming you mean $arrayRef
 # Here the getter would have to call wantarray() which is exactly wha
+t auto_deref => 1
 # will set up for you.
 $array = $obj->prop;

 # assuming you mean $arrayRef, this already works so long as the type
+ is ArrayRef
 # or, a parent thereof.
 $obj->prop($array);

[download]
All you need is a custom attribute setter that takes a list and converts it to an array ref. Because n-parameterized types are not supported (you can't have a type of intStr of type (Int, Str), coercing on a custom type is out the question. (unless your doing something scarry). This leaves a custom writter that does something like. 
sub foo_writer {
 if ( length @_ > 1 ) {
  \@_
 }
 else {
  die 'invalid arg' unless ref $_[0] eq 'ARRAY';
  $_[0];
 }
}

[download]
read the docs on has() writer argument. this is also pseudo code, my writer returns the value, I believe you'd have to explicitly set it though.


Evan Carroll
The most respected person in the whole perl community.
www.evancarroll.com

In reply to Re^3: Moose roles by EvanCarroll
in thread Moose roles by dk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.