Select Code to Download

package Attack {
    use Moo;
...
    has damage => ( is => 'ro', isa => Int );
    has speed  => ( is => 'ro', isa => Int );
}

    sub light {
        my $self = shift;
...
        );
    }

    sub BUILDARGS {
        my ($self, @args) = @_;
...
            return { @args };
        }
    }

my $att1 = Attack->heavy;

my $att2 = Attack->new('heavy');