From 9e2ca78efe5d76f5308b9843081e5c90a461f6f1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 23 Sep 2009 01:26:51 -0500
Subject: handle passing in no coderef (for existing methods)

---
 t/004-generate-method.t | 2 ++
 1 file changed, 2 insertions(+)

(limited to 't')

diff --git a/t/004-generate-method.t b/t/004-generate-method.t
index 38165a2..b23a9b0 100644
--- a/t/004-generate-method.t
+++ b/t/004-generate-method.t
@@ -13,6 +13,8 @@ BEGIN {
             alias => {
                 traits => ['Foo::Alias'],
                 munge  => sub {
+                    my $meta = shift;
+                    my $alias_name = shift;
                     my $name = shift;
                     return sub { shift->$name(@_) },
                            { aliased_from => $name, @_ };
-- 
cgit v1.2.3-54-g00ecf