Mouse::Util::does_role() respects $thing->does() method

[gitmo/Mouse.git] / tool / generate-mouse-tiny.pl

diff --git a/tool/generate-mouse-tiny.pl b/tool/generate-mouse-tiny.pl
index d521f95..cd9389a 100644 (file)
--- a/tool/generate-mouse-tiny.pl
+++ b/tool/generate-mouse-tiny.pl
@@ -32,6 +32,7 @@ find({
             &&  /\.pm$/
             && !/Squirrel/
             && !/Tiny/
+            && !/Test/         # only for testing
             && !/Spec/         # has no functionality
             && !/TypeRegistry/ # deprecated
             && !/\bouse/       # ouse.pm
@@ -67,7 +68,8 @@ print { $handle } << "EOF";
 # This file was generated by $0 from Mouse $Mouse::Spec::VERSION.
 #
 # ANY CHANGES MADE HERE WILL BE LOST!
-
+use strict;
+use warnings;
 EOF
 
 print { $handle } << 'EOF';
@@ -95,9 +97,11 @@ END_OF_TINY
 } # unless Mouse.pm is loaded
 EOF
 
-print { $handle } << 'EOF';
+print { $handle } << "EOF";
 package Mouse::Tiny;
 
+our \$VERSION = '$Mouse::Spec::VERSION';
+
 Mouse::Exporter->setup_import_methods(also => 'Mouse');
 
 1;