X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F006-addsub.t;fp=t%2F006-addsub.t;h=3c0dfc8a92c2b2e1ee4affa727ab444b808d186b;hb=640de3695dc6b9a77793ee3c1c03c5f062906295;hp=b5a5822e76f5652778574254f8ef3d76a11ec803;hpb=4ada57e0b39192a0002ff703b7af0f3bd99003fa;p=gitmo%2FPackage-Stash.git 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';