From 640de3695dc6b9a77793ee3c1c03c5f062906295 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 31 May 2010 12:28:19 -0500
Subject: named args for add_package_symbol

---
 t/006-addsub.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 't/006-addsub.t')

diff --git a/t/006-addsub.t b/t/006-addsub.t
index b5a5822..3c0dfc8 100644
--- a/t/006-addsub.t
+++ b/t/006-addsub.t
@@ -32,7 +32,12 @@ my $line = (Foo->funk())[1];
 is $DB::sub{'Foo::funk'}, sprintf "%s:%d-%d", __FILE__, $line, $line,
     '... got the right %DB::sub value for funk default args';
 
-$foo_stash->add_package_symbol('&dunk' => sub { "Foo::dunk" }, "FileName", 100, 199);
+$foo_stash->add_package_symbol(
+    '&dunk'        => sub { "Foo::dunk" },
+    filename       => "FileName",
+    first_line_num => 100,
+    last_line_num  => 199
+);
 
 is $DB::sub{'Foo::dunk'}, sprintf "%s:%d-%d", "FileName", 100, 199,
     '... got the right %DB::sub value for dunk with specified args';
-- 
cgit v1.2.3-54-g00ecf