Chained Mutators?

[Terrence Brannon]

I would like to be able to do this with a Moose object:
package Doc;

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

1;

my $m = Doc->new;
$m->body(12)->hdr->(14)->ftr(5);


Is this possible?