From: gfx <gfuji@cpan.org>
Date: Fri, 9 Oct 2009 06:20:33 +0000 (+0900)
Subject: Print messages in generating Mouse::Tiny
X-Git-Tag: 0.37_05~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e3ca3ad0571140924ac8a16d454215529e4a2a17;p=gitmo%2FMouse.git

Print messages in generating Mouse::Tiny
---

diff --git a/author/generate-mouse-tiny.pl b/author/generate-mouse-tiny.pl
index 8f039b6..42dd7cb 100755
--- a/author/generate-mouse-tiny.pl
+++ b/author/generate-mouse-tiny.pl
@@ -7,6 +7,8 @@ use Fatal qw(open close);
 #use List::MoreUtils 'uniq';
 #use autodie;
 
+print "Generate Mouse::Tiny ...\n";
+
 sub slurp {
     open my $in, '<', $_[0];
     local $/;
@@ -100,3 +102,5 @@ Mouse::Exporter->setup_import_methods(also => 'Mouse');
 EOF
 
 close $handle;
+
+print "done.\n";