Select Code to Download

Select or download this

 <note>
     <to>Bob</to>
...
     <heading>Secret</heading>
     <body>Shhh!</body>
 </note>

Select or download this

  my $document = MyApp::Note->new(
        to_collection => [MyApp::To->new(text => 'Bob')],
...
        headings => [MyApp::Heading->new(text => 'Secret' )],
        body_collection => [MyApp::Body->new(text=>'Shh!')],
    )

Select or download this

my %data = ( to => 'Bob', 
  from => 'Alice',
...
);
MyApp::Note->new(data => \%data)->tree->as_XML;

Select or download this

my %data = ( george => [ { age => 45} , 'some content' ] );

Select or download this

my %data = ( george => 'some content' ] );
my %attr = ( george => {age 45 });

Select or download this


    # call the superclass to render the simple data in the hashref
...
    }
    $lol;