Hi

Try -boc, --break-at-old-comma-breakpoints

$ cat 2
has arg => qw(is rw isa ArrayRef), arg => qw(is rw isa ArrayRef), defa
+ult => 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 { [] };
[download]