Skip to content

Instantly share code, notes, and snippets.

@dann
Created January 6, 2009 12:45
Show Gist options
  • Select an option

  • Save dann/43791 to your computer and use it in GitHub Desktop.

Select an option

Save dann/43791 to your computer and use it in GitHub Desktop.
--- /usr/local/share/perl/5.8.8/Mouse/Meta/Class.pm.orig>.......2009-01-03
14:27:27.000000000 +0900
+++ /usr/local/share/perl/5.8.8/Mouse/Meta/Class.pm>....2009-01-03
14:29:00.000000000 +0900@@ -63,6 +63,7 @@
my $pkg = $self->name;
no strict 'refs';
+ no warnings 'redefine';
$self->{'methods'}->{$name}++; # Moose stores meta object here.
*{ $pkg . '::' . $name } = $code;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment