Select Code to Download

around BUILDARGS => sub {
   my $orig = shift;
...
   ...
   return $class->$orig(...);
};

sub new {
   my $class = shift;
   ...
   return $class->SUPER::new(...);
}

has attr => (
   reader => '_get_attr',
...
      set_attr => sub { ... },
   },
)