Commit | Line | Data |
---|---|---|
4cd62f77 | 1 | use strict; |
2 | use warnings; | |
3 | ||
356a8ce3 | 4 | use Test::More tests => 1; |
a31b59ba | 5 | use if $ENV{AUTHOR_TESTING}, 'Test::Warnings'; |
4cd62f77 | 6 | use Sub::Name; |
7 | ||
8 | my $sub = sub { (caller(0))[3] }; | |
9 | subname "foo::quz'bar::baz", $sub; | |
10 | ||
11 | # in 0.16, this was foo::quz::ba::baz | |
12 | is( | |
13 | $sub->(), | |
14 | "foo::quz::bar::baz", | |
15 | 'correctly parsed single quote from name where the last separator is ::', | |
16 | ); |