Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

$foo->subtag ('Bar');
print $xml->make ();
  2. or download this
    <Body><Foo>Bar</Foo></Body>
  3. or download this
    use strict;
use warnings;
...
my $spew = My::Spew->_new ();

print $spew->Body ($spew->Foo ('Bar'));