$prot_object = bless( {
                        'primary_seq' => bless( {
                                                  'length' => 63,
                                                  '_root_verbose' => 0,
                                                  '_nowarnonempty' => undef,
                                                  'seq' => 'MGPTSQPTLHPQNHAGIGLRKGKHLCVAYEPFLYLLLSQQGRKREEAAVERIRLREVGISLL*',
                                                  'alphabet' => 'protein'
                                                }, 'Bio::PrimarySeq' ),
                        '_root_verbose' => 0
                      }, 'Bio::Seq' );