note
beech
<p>Hi<p>Try [href://https://metacpan.org/pod/perltidy#boc--break-at-old-comma-breakpoints|-boc, --break-at-old-comma-breakpoints]
<c>$ cat 2
has arg => qw(is rw isa ArrayRef), arg => qw(is rw isa ArrayRef), default => sub { [] };
$ perltidy < 2
has
arg => qw(is rw isa ArrayRef),
arg => qw(is rw isa ArrayRef),
default => sub { [] };
$ perltidy -boc < 2
has arg => qw(is rw isa ArrayRef), arg => qw(is rw isa ArrayRef),
default => sub { [] };
</c>
1225421
1225421