sub new { my ($class, $args) = @_; $args->{value} = 23; return $class->SUPER::new($args); }