Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse,-p -e 'my( $rxml, $ob ) = @{%$self}{qw/rxml rxml_ob
+/};'
(my($rxml, $ob) = @{%$self;}{'rxml', 'rxml_ob'});
-e syntax OK
  2. or download this
    $ perl -MO=Deparse,-p -e 'my( $rxml, $ob ) = @{$self}{qw/rxml rxml_ob/
+};'
(my($rxml, $ob) = @{$self;}{'rxml', 'rxml_ob'});
-e syntax OK