Select Code to Download

package MyClass;
sub new {
...
  $_[0]{attribute2}= $_[1] if @_ > 1;
  $_[0]{attribute2}
}

package MyClass;
use Moo;
has attribute1 => ( is => 'ro' );
has attribute2 => ( is => 'rw' );