package TestBase; use strict; use warnings; use Class::Std; { my %prop1 : ATTR( init_arg => 'prop1' get => 'prop1' set => 'prop1' ); my %prop2 : ATTR( init_arg => 'prop2' get => 'prop2' set => 'prop2' ); 1; }