Merge remote branch 'origin/master' into merge-0.74
Fuji, Goro [Mon, 27 Sep 2010 05:39:08 +0000 (14:39 +0900)]
Conflicts:
lib/Mouse/Meta/Method/Constructor.pm

1  2 
lib/Mouse/Meta/Attribute.pm
lib/Mouse/Meta/Class.pm
lib/Mouse/Meta/Method/Accessor.pm
lib/Mouse/Meta/Method/Constructor.pm
lib/Mouse/Meta/Module.pm
lib/Mouse/Meta/TypeConstraint.pm
lib/Mouse/PurePerl.pm
lib/Mouse/Role.pm
lib/Mouse/Util.pm

Simple merge
Simple merge
Simple merge
@@@ -13,11 -15,11 +15,10 @@@ sub _generate_constructor 
  
      my $buildall      = $class->_generate_BUILDALL($metaclass);
      my $buildargs     = $class->_generate_BUILDARGS($metaclass);
 -    my $initializer   = $metaclass->{_initialize_object} ||= do {
 +    my $initializer   = $metaclass->{_mouse_cache}{_initialize_object} ||=
         $class->_generate_initialize_object($metaclass);
-     my $source = sprintf(<<'EOT', __LINE__, __FILE__, $metaclass->name, $buildargs, $buildall);
- #line %d %s
 -    };
+     my $source = sprintf(<<'EOT', __FILE__, $metaclass->name, $buildargs, $buildall);
+ #line 1 "%s"
          package %s;
          sub {
              my $class = shift;
Simple merge
Simple merge
Simple merge
Simple merge
Simple merge