$ perl -wMstrict -MData::Dump=pp
sub has { print pp(@_),"\n" }
has 'friends' => ( is => 'rw', isa => 'Array', default => () );
has friends => ((is => 'rw'), (isa => 'Array'), (default => ()));
has friends => is => 'rw', isa => 'Array', default => ();
has friends => is => rw => isa => Array => default => ();
has "friends", "is", "rw", "isa", "Array", "default", ();
has qw/friends is rw isa Array default/, ();
__END__
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
|