package Parent_object;
    
    sub new {
        my $O = bless {}, shift;
        
        $O->{'data'} = _fill_attributes (@_);
        
        return ($O);
    }
    
    sub _fill_attributes {
        my $result = {};
        
        $result->{'attribute-1'} = $_[0];
        $result->{'attribute-2'} = $_[1];
        $result->{'attribute-3'} = $_[2];
        [....]
        
        return ($result);
    }