use v5.16;

package Person {
   use Moo;
   has "nick-name" => (
      is       => "ro",
      init_arg => "nick",
      reader   => "nick_name",
   );
};

my $robert = Person->new(nick => "Bob");     # init_arg
say $robert->nick_name;                      # reader
say $robert->{"nick-name"};                  # attribute name (direct hashref access)