diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-08-19 09:31:05 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-08-19 09:31:20 -0500 |
| commit | e1b5c02916ed9b248f9afcc4260b231e6e03202a (patch) | |
| tree | 8365b736be86219d36b0bb29c772312d882ada0d /Fun.xs | |
| parent | 5d58a24acf4361c2dd5ec1ed29d4cab4853d0adb (diff) | |
| download | fun-e1b5c02916ed9b248f9afcc4260b231e6e03202a.tar.gz fun-e1b5c02916ed9b248f9afcc4260b231e6e03202a.zip | |
allow "fun Foo::foo ..."
Diffstat (limited to 'Fun.xs')
| -rw-r--r-- | Fun.xs | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -248,8 +248,18 @@ static OP *parse_fun(pTHX_ GV *namegv, SV *psobj, U32 *flagsp) floor = start_subparse(0, CVf_ANON); lex_read_space(0); - if (isIDFIRST(*(PL_parser->bufptr))) { - function_name = parse_idword(""); + if (isIDFIRST(*(PL_parser->bufptr)) || *(PL_parser->bufptr) == ':') { + function_name = sv_2mortal(newSVpvs("")); + while (isIDFIRST(*(PL_parser->bufptr)) || *(PL_parser->bufptr) == ':') { + if (lex_peek_unichar(0) == ':') { + demand_unichar(':', DEMAND_IMMEDIATE); + demand_unichar(':', DEMAND_IMMEDIATE); + sv_catpvs(function_name, "::"); + } + else { + sv_catsv(function_name, parse_idword("")); + } + } } lex_read_space(0); |