diff -rup Hook-LexWrap-0.24-IVpg0D-orig/lib/Hook/LexWrap.pm Hook-LexWrap-0.24-IVpg0D/lib/Hook/LexWrap.pm
--- Hook-LexWrap-0.24-IVpg0D-orig/lib/Hook/LexWrap.pm	2010-09-23 21:40:08.000000000 -0700
+++ Hook-LexWrap-0.24-IVpg0D/lib/Hook/LexWrap.pm	2014-09-21 12:23:33.000000000 -0700
@@ -114,11 +114,11 @@ This document describes version 0.23 of 
 	sub doit { print "[doit:", caller, "]"; return {my=>"data"} }
 
 	SCOPED: {
-		wrap doit,
+		wrap doit =>
 			pre  => sub { print "[pre1: @_]\n" },
 			post => sub { print "[post1:@_]\n"; $_[1]=9; };
 
-		my $temporarily = wrap doit,
+		my $temporarily = wrap doit =>
 			post => sub { print "[post2:@_]\n" },
 			pre  => sub { print "[pre2: @_]\n  "};
 
@@ -205,7 +205,7 @@ Access to the arguments and return value
 techniques such as memoization:
 
         my %cache;
-        wrap fibonacci,
+        wrap fibonacci =>
                 pre  => sub { $_[-1] = $cache{$_[0]} if $cache{$_[0]} },
                 post => sub { $cache{$_[0]} = $_[-1] };
 
@@ -214,7 +214,7 @@ or for converting arguments and return v
 
 	# set_temp expects and returns degrees Fahrenheit,
 	# but we want to use Celsius
-        wrap set_temp,
+        wrap set_temp =>
                 pre   => sub { splice @_, 0, 1, $_[0] * 1.8 + 32 },
                 post  => sub { $_[-1] = ($_[0] - 32) / 1.8 };
 
diff -rup Hook-LexWrap-0.24-IVpg0D-orig/t/example1.t Hook-LexWrap-0.24-IVpg0D/t/example1.t
--- Hook-LexWrap-0.24-IVpg0D-orig/t/example1.t	2010-09-23 21:41:19.000000000 -0700
+++ Hook-LexWrap-0.24-IVpg0D/t/example1.t	2014-09-21 12:12:39.000000000 -0700
@@ -9,11 +9,11 @@ sub doit { $str.= "[doit:{".join(',',cal
 
 SCOPED: {
  no warnings 'uninitialized'; #last argument in wrapper sub
- wrap doit,
+ wrap doit =>
   pre => sub { $str.="[pre1: @_]" },
   post => sub { $str.="[post1:@_]"; $_[1]=9; };
 
- my $temporarily = wrap doit,
+ my $temporarily = wrap doit =>
   post => sub { $str.="[post2:@_]" },
   pre => sub { $str.="[pre2: @_]"};
 
diff -rup Hook-LexWrap-0.24-IVpg0D-orig/t/test.t Hook-LexWrap-0.24-IVpg0D/t/test.t
--- Hook-LexWrap-0.24-IVpg0D-orig/t/test.t	2009-09-15 17:22:02.000000000 -0700
+++ Hook-LexWrap-0.24-IVpg0D/t/test.t	2014-09-21 12:14:58.000000000 -0700
@@ -10,11 +10,11 @@ sub actual { ok $_[0]; }
 actual 1;
 
 { 
-	my $lexical = wrap actual,
+	my $lexical = wrap actual =>
 			pre  => sub { ok 2 },
 			post => sub { ok 4 };
 
-	wrap actual, pre => sub { $_[0]++ };
+	wrap actual => pre => sub { $_[0]++ };
 
 	my $x = 2;
 	actual $x;
@@ -26,12 +26,12 @@ wrap *main::actual, post => sub { ok 6 }
 actual my $x = 4;
 
 no warnings qw/bareword reserved/;
-eval { wrap other, pre => sub { print "not ok 7\n" } } or ok 7;
+eval { wrap other => pre => sub { print "not ok 7\n" } } or ok 7;
 
-eval { wrap actual, pre => 1 } and print "not ";
+eval { wrap actual => pre => 1 } and print "not ";
 ok 8;
 
-eval { wrap actual, post => [] } and print "not ";
+eval { wrap actual => post => [] } and print "not ";
 ok 9;
 
 BEGIN { *{CORE::GLOBAL::sqrt} = sub { CORE::sqrt(shift) } }
@@ -60,7 +60,7 @@ sub wrapped_callee {
 	return join '|', caller;
 }
 
-wrap wrapped_callee,
+wrap wrapped_callee =>
 	pre =>sub{
 		print "not " unless $_[0] eq join '|', caller;
 		ok 17
@@ -77,11 +77,11 @@ sub raw_callee {
 print "not " unless wrapped_callee(scalar raw_callee); ok 19;
 
 sub scalar_return { return 'string' }
-wrap scalar_return, post => sub { $_[-1] .= 'ent' };
+wrap scalar_return => post => sub { $_[-1] .= 'ent' };
 print "not " unless scalar_return eq 'stringent'; ok 20;
 
 sub list_return { return (0..9) }
-wrap list_return, post => sub { @{$_[-1]} = reverse @{$_[-1]} };
+wrap list_return => post => sub { @{$_[-1]} = reverse @{$_[-1]} };
 my @result = list_return;
 for (0..9) {
 	print "not " and last unless $_ + $result[$_] == 9;
@@ -89,46 +89,46 @@ for (0..9) {
 ok 21;
 
 sub shorted_scalar { return 2 };
-wrap shorted_scalar, pre => sub { $_[-1] = 1 };
+wrap shorted_scalar => pre => sub { $_[-1] = 1 };
 fail { shorted_scalar != 1 }; ok 22;
 
 sub shorted_list { return (2..9) };
 {
-	my $lexical = wrap shorted_list, pre => sub { $_[-1] = [1..9] };
+	my $lexical = wrap shorted_list => pre => sub { $_[-1] = [1..9] };
 	fail { (shorted_list)[0] != 1 }; ok 23;
 }
 {
-	my $lexical = wrap shorted_list, pre => sub { $_[-1] = 1 };
+	my $lexical = wrap shorted_list => pre => sub { $_[-1] = 1 };
 	fail { (shorted_list)[0] != 1 }; ok 24;
 }
 {
-	my $lexical = wrap shorted_list, pre => sub { @{$_[-1]} = (1..9) };
+	my $lexical = wrap shorted_list=>pre => sub { @{$_[-1]} = (1..9) };
 	fail { (shorted_list)[0] != 1 }; ok 25;
 }
 {
-	my $lexical = wrap shorted_list, pre => sub { @{$_[-1]} = [1..9] };
+	my $lexical = wrap shorted_list=>pre => sub { @{$_[-1]} = [1..9] };
 	fail { (shorted_list)[0]->[0] != 1 }; ok 26;
 }
 {
-	my $lexical = wrap shorted_list, post => sub { $_[-1] = [1..9] };
+	my $lexical = wrap shorted_list=> post => sub { $_[-1] = [1..9] };
 	fail { (shorted_list)[0] != 1 }; ok 27;
 }
 {
-	my $lexical = wrap shorted_list, post => sub { $_[-1] = 1 };
+	my $lexical = wrap shorted_list => post => sub { $_[-1] = 1 };
 	fail { (shorted_list)[0] != 1 }; ok 28;
 }
 {
-	my $lexical = wrap shorted_list, post => sub { @{$_[-1]} = (1..9) };
+	my $lexical = wrap shorted_list=>post => sub { @{$_[-1]} = (1..9) };
 	fail { (shorted_list)[0] != 1 }; ok 29;
 }
 {
-	my $lexical = wrap shorted_list, post => sub { @{$_[-1]} = [1..9] };
+	my $lexical = wrap shorted_list=>post => sub { @{$_[-1]} = [1..9] };
 	fail { (shorted_list)[0]->[0] != 1 }; ok 30;
 }
 
 sub howmany { ok 32 if @_ == 3 }
 
-wrap howmany,
+wrap howmany =>
 	pre  => sub { ok 31 if @_ == 4 },
 	post => sub { ok 33 if @_ == 4 };
 
@@ -143,7 +143,7 @@ sub wanted { 
 	ok $_[1]
 }
 
-wrap wanted,
+wrap wanted =>
 	pre => sub {
 		my $expected = $_[3];
 		print 'not ' unless defined wantarray == defined $expected
@@ -185,15 +185,15 @@ sub inner  { wrapped(@_) }
 
 outer(43..48);
 
-wrap wrapped,
+wrap wrapped =>
 	pre => sub {},
 	post => sub {};
 
-wrap wrapped,
+wrap wrapped =>
 	pre => sub {},
 	post => sub {};
 
-wrap wrapped,
+wrap wrapped =>
 	pre => sub {},
 	post => sub {};