moo.pl

#!/usr/bin/env perl

package Hoge;

use Moo;

has num    => (is => "rw", default => 1 );
has numnum => (is => "rw", default => sub { 1 } );
# has array => (is => "rw", default => ["aaa", "bbb"] ); # not a coderef or a non-ref or code-convertible
has array  => (is => "rw", default => sub {["aaa", "bbb"]} );
has scalar => (is => "rw", default => "aaa");

1;

package Main;

use strict;
use warnings;
use utf8;
use DDP;

my $h = Hoge->new();

p $h->num;
p $h->numnum;
p @{$h->array};
p $h->scalar;

1;