$ perl -MO=Deparse,-p -e 'my( $rxml, $ob ) = @{%$self}{qw/rxml rxml_ob/};'
(my($rxml, $ob) = @{%$self;}{'rxml', 'rxml_ob'});
-e syntax OK

##</code><code>##

$ perl -MO=Deparse,-p -e 'my( $rxml, $ob ) = @{$self}{qw/rxml rxml_ob/};'
(my($rxml, $ob) = @{$self;}{'rxml', 'rxml_ob'});
-e syntax OK