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