dataclass.pm

sub new {
  ...
}

sub check_data {

   my ($self, $args) = @_;

   print Dumper($args);

}