$fh->print(
    "package MyApp::TestData::$digest;\n",
    "use parent 'Class::Data::Accessor';\n\n\n",
    "use YAML qw( Load );\n",
    'sub data($$) { __PACKAGE__->mk_classaccessor( @_ ) }'."\n\n",
    "data filename => ".dump( $self->filename ).";\n\n",
    "data store => Load( <<'$tag' );\n",
        YAML::Dump( $store ),
    "$tag\n\n",
    "data content => <<'$tag';\n",
        $self->content,
    "$tag\n",
    "return __PACKAGE__;\n",
);