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