Now that all the .pod files have a package statement, we only extract tests if we...
Dave Rolsky [Wed, 29 Dec 2010 15:27:53 +0000 (10:27 -0500)]
Also, tweak generated file name to be more concise.

inc/ExtractInlineTests.pm

index 0bf6515..753ea22 100644 (file)
@@ -82,7 +82,7 @@ sub gather_files {
 
         # If we have just one element it's a SYNOPSIS, so there's no
         # tests.
-        return unless @elements > 1;
+        return unless @elements > 2;
 
         if ( @elements && $self->{source} =~ /=head1 NAME\n\n(Moose::Cookbook\S+)/ ) {
             unshift @elements, 'package ' . $1 . ';';
@@ -123,6 +123,8 @@ sub gather_files {
         my $name    = shift;
         my $content = shift;
 
+        $name =~ s/^moose_cookbook_//;
+
         $self->{dzil}->add_file(
             Dist::Zilla::File::InMemory->new(
                 name    => "t/002_recipes/$name",