Select Code to Download

 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!')],
    )

coerce 'MyApp::To' 
    => from 'Str' 
...
coerce 'MyApp::Body' 
    => from 'Str' 
    => via { MyApp::Body->new(text => $_) };