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