Select Code to Download

perl -Moose -e'has a=>(is=>"rw",isa=>"Undef|Undef",coerce=>1); my $x =
+ __PACKAGE__->new(a=>"abc"); print $x->a'