package myclass;
use Class::Std;
my %value :ATTR( :init_arg<value> );

package mysubclass;
use base qw(myclass);

sub BUILD {
    my ($self, $ident, $args) = @_;
    $args->{value} = 23;
}