sub new {
    my ($class,$id) = @_;
    my %data;
    %data = $class->_initialize($id) if $id;
    bless \%data, $class;
}