use Mouse;
 has 'body' => (is => 'rw');
 has 'hdr' => (is => 'rw');
 has 'ftr' => (is => 'rw');

 1;

 my $m = Doc->new;
 $m->body('double')->hdr->('headless')->ftr('soccer');