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 fab7e68..cd9389a 100644 (file)
--- a/tool/generate-mouse-tiny.pl
+++ b/tool/generate-mouse-tiny.pl
@@ -68,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';
@@ -96,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;