sub get( $self, $item ) {
    if( exists $self->{data}->{ $item }) {
        return $self->{data}->{ $item }
    } elsif( $self->{parent_data}->{ $item }) {
        return $self->{parent_data}->{ $item }
    }
}

sub set( $self, $item, $value ) {
    return $self->{data}->{ $item } = $value;
}