sub init { my $self = shift; my $id = $self->{id}; # Parse the "$id.xml" file here # Get the $property value $self->{property} = $property; return; }