13 GetOptions( 'quiet' => \$quiet );
15 my $inline = Test::Inline->new(
17 ExtractHandler => 'My::Extract',
18 ContentHandler => 'My::Content',
19 OutputHandler => 'My::Output',
23 File::Find::Rule->file->name(qr/\.pod$/)->in('lib/Moose/Cookbook') ) {
33 use File::Slurp qw( write_file );
40 $name =~ s/^moose_cookbook_//;
42 write_file( "t/recipes/$name", $content );