payload: {"action":"created","comment":{"url":"https://api.github.com/repos/Perl/perl5/pulls/comments/336782322","pull_request_review_id":304262556,"id":336782322,"node_id":"MDI0OlB1bGxSZXF1ZXN0UmV2aWV3Q29tbWVudDMzNjc4MjMyMg==","diff_hunk":"@@ -6855,6 +6842,21 @@ Perl_yylex(pTHX)\n         return yyl_sigvar(aTHX_ s);\n     }\n \n+    return yyl_try(aTHX_ 0, s, 0, 0, NULL, NULL, 0, 0, saw_infix_sigil);\n+}\n+\n+static int\n+yyl_try(pTHX_ char initial_state, char *s, STRLEN len,\n+        I32 orig_keyword, GV *gv, GV **gvp,\n+        U8 formbrack, U32 fake_eof, const bool saw_infix_sigil)\n+{\n+    char *d;\n+    bool bof = FALSE;\n+\n+    switch (initial_state) {\n+    case '}': goto rightbracket;\n+    }","path":"toke.c","position":2533,"original_position":57,"commit_id":"003644d738f12302305fae5bee9ca7ae1c8d81e4","original_commit_id":"7567b7f40b8abed45b62c640fde8b8837baab652","user":{"login":"atoomic","id":405282,"node_id":"MDQ6VXNlcjQwNTI4Mg==","avatar_url":"https://avatars1.githubusercontent.com/u/405282?v=4","gravatar_id":"","url":"https://api.github.com/users/atoomic","html_url":"https://github.com/atoomic","followers_url":"https://api.github.com/users/atoomic/followers","following_url":"https://api.github.com/users/atoomic/following{/other_user}","gists_url":"https://api.github.com/users/atoomic/gists{/gist_id}","starred_url":"https://api.github.com/users/atoomic/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/atoomic/subscriptions","organizations_url":"https://api.github.com/users/atoomic/orgs","repos_url":"https://api.github.com/users/atoomic/repos","events_url":"https://api.github.com/users/atoomic/events{/privacy}","received_events_url":"https://api.github.com/users/atoomic/received_events","type":"User","site_admin":false},"body":"this is fine as it :-) I was just pointing it, right now it s more a boolean context\r\nbut I can also see further usage in the future","created_at":"2019-10-20T14:57:38Z","updated_at":"2019-10-20T14:57:38Z","html_url":"https://github.com/Perl/perl5/pull/17189#discussion_r336782322","pull_request_url":"https://api.github.com/repos/Perl/perl5/pulls/17189","author_association":"MEMBER","_links":{"self":{"href":"https://api.github.com/repos/Perl/perl5/pulls/comments/336782322"},"html":{"href":"https://github.com/Perl/perl5/pull/17189#discussion_r336782322"},"pull_request":{"href":"https://api.github.com/repos/Perl/perl5/pulls/17189"}},"in_reply_to_id":336782149},"pull_request":{"url":"https://api.github.com/repos/Perl/perl5/pulls/17189","id":330117425,"node_id":"MDExOlB1bGxSZXF1ZXN0MzMwMTE3NDI1","html_url":"https://github.com/Perl/perl5/pull/17189","diff_url":"https://github.com/Perl/perl5/pull/17189.diff","patch_url":"https://github.com/Perl/perl5/pull/17189.patch","issue_url":"https://api.github.com/repos/Perl/perl5/issues/17189","number":17189,"state":"open","locked":false,"title":"Smaller toke","user":{"login":"arc","id":23287,"node_id":"MDQ6VXNlcjIzMjg3","avatar_url":"https://avatars3.githubusercontent.com/u/23287?v=4","gravatar_id":"","url":"https://api.github.com/users/arc","html_url":"https://github.com/arc","followers_url":"https://api.github.com/users/arc/followers","following_url":"https://api.github.com/users/arc/following{/other_user}","gists_url":"https://api.github.com/users/arc/gists{/gist_id}","starred_url":"https://api.github.com/users/arc/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/arc/subscriptions","organizations_url":"https://api.github.com/users/arc/orgs","repos_url":"https://api.github.com/users/arc/repos","events_url":"https://api.github.com/users/arc/events{/privacy}","received_events_url":"https://api.github.com/users/arc/received_events","type":"User","site_admin":false},"body":"This branch factors lots of code out of `Perl_yylex()`, which started at 4166 lines. It's now split into multiple functions; the largest remaining one is 2159 lines. There's still plenty of work that could be done here, but I hope this makes it easier to understand the lexer without having to understand the whole thing simultaneously.","created_at":"2019-10-20T13:31:57Z","updated_at":"2019-10-20T14:57:38Z","closed_at":null,"merged_at":null,"merge_commit_sha":"e2e32dcb603d2d18deb6af1b6439c499c4aba03d","assignee":null,"assignees":[],"requested_reviewers":[],"requested_teams":[],"labels":[],"milestone":null,"commits_url":"https://api.github.com/repos/Perl/perl5/pulls/17189/commits","review_comments_url":"https://api.github.com/repos/Perl/perl5/pulls/17189/comments","review_comment_url":"https://api.github.com/repos/Perl/perl5/pulls/comments{/number}","comments_url":"https://api.github.com/repos/Perl/perl5/issues/17189/comments","statuses_url":"https://api.github.com/repos/Perl/perl5/statuses/003644d738f12302305fae5bee9ca7ae1c8d81e4","head":{"label":"Perl:arc/smaller-toke","ref":"arc/smaller-toke","sha":"003644d738f12302305fae5bee9ca7ae1c8d81e4","user":{"login":"Perl","id":3585411,"node_id":"MDEyOk9yZ2FuaXphdGlvbjM1ODU0MTE=","avatar_url":"https://avatars0.githubusercontent.com/u/3585411?v=4","gravatar_id":"","url":"https://api.github.com/users/Perl","html_url":"https://github.com/Perl","followers_url":"https://api.github.com/users/Perl/followers","following_url":"https://api.github.com/users/Perl/following{/other_user}","gists_url":"https://api.github.com/users/Perl/gists{/gist_id}","starred_url":"https://api.github.com/users/Perl/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/Perl/subscriptions","organizations_url":"https://api.github.com/users/Perl/orgs","repos_url":"https://api.github.com/users/Perl/repos","events_url":"https://api.github.com/users/Perl/events{/privacy}","received_events_url":"https://api.github.com/users/Perl/received_events","type":"Organization","site_admin":false},"repo":{"id":8183570,"node_id":"MDEwOlJlcG9zaXRvcnk4MTgzNTcw","name":"perl5","full_name":"Perl/perl5","private":false,"owner":{"login":"Perl","id":3585411,"node_id":"MDEyOk9yZ2FuaXphdGlvbjM1ODU0MTE=","avatar_url":"https://avatars0.githubusercontent.com/u/3585411?v=4","gravatar_id":"","url":"https://api.github.com/users/Perl","html_url":"https://github.com/Perl","followers_url":"https://api.github.com/users/Perl/followers","following_url":"https://api.github.com/users/Perl/following{/other_user}","gists_url":"https://api.github.com/users/Perl/gists{/gist_id}","starred_url":"https://api.github.com/users/Perl/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/Perl/subscriptions","organizations_url":"https://api.github.com/users/Perl/orgs","repos_url":"https://api.github.com/users/Perl/repos","events_url":"https://api.github.com/users/Perl/events{/privacy}","received_events_url":"https://api.github.com/users/Perl/received_events","type":"Organization","site_admin":false},"html_url":"https://github.com/Perl/perl5","description":"🐫The Perl 5 language interpreter.","fork":false,"url":"https://api.github.com/repos/Perl/perl5","forks_url":"https://api.github.com/repos/Perl/perl5/forks","keys_url":"https://api.github.com/repos/Perl/perl5/keys{/key_id}","collaborators_url":"https://api.github.com/repos/Perl/perl5/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/Perl/perl5/teams","hooks_url":"https://api.github.com/repos/Perl/perl5/hooks","issue_events_url":"https://api.github.com/repos/Perl/perl5/issues/events{/number}","events_url":"https://api.github.com/repos/Perl/perl5/events","assignees_url":"https://api.github.com/repos/Perl/perl5/assignees{/user}","branches_url":"https://api.github.com/repos/Perl/perl5/branches{/branch}","tags_url":"https://api.github.com/repos/Perl/perl5/tags","blobs_url":"https://api.github.com/repos/Perl/perl5/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/Perl/perl5/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/Perl/perl5/git/refs{/sha}","trees_url":"https://api.github.com/repos/Perl/perl5/git/trees{/sha}","statuses_url":"https://api.github.com/repos/Perl/perl5/statuses/{sha}","languages_url":"https://api.github.com/repos/Perl/perl5/languages","stargazers_url":"https://api.github.com/repos/Perl/perl5/stargazers","contributors_url":"https://api.github.com/repos/Perl/perl5/contributors","subscribers_url":"https://api.github.com/repos/Perl/perl5/subscribers","subscription_url":"https://api.github.com/repos/Perl/perl5/subscription","commits_url":"https://api.github.com/repos/Perl/perl5/commits{/sha}","git_commits_url":"https://api.github.com/repos/Perl/perl5/git/commits{/sha}","comments_url":"https://api.github.com/repos/Perl/perl5/comments{/number}","issue_comment_url":"https://api.github.com/repos/Perl/perl5/issues/comments{/number}","contents_url":"https://api.github.com/repos/Perl/perl5/contents/{+path}","compare_url":"https://api.github.com/repos/Perl/perl5/compare/{base}...{head}","merges_url":"https://api.github.com/repos/Perl/perl5/merges","archive_url":"https://api.github.com/repos/Perl/perl5/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/Perl/perl5/downloads","issues_url":"https://api.github.com/repos/Perl/perl5/issues{/number}","pulls_url":"https://api.github.com/repos/Perl/perl5/pulls{/number}","milestones_url":"https://api.github.com/repos/Perl/perl5/milestones{/number}","notifications_url":"https://api.github.com/repos/Perl/perl5/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/Perl/perl5/labels{/name}","releases_url":"https://api.github.com/repos/Perl/perl5/releases{/id}","deployments_url":"https://api.github.com/repos/Perl/perl5/deployments","created_at":"2013-02-13T17:10:40Z","updated_at":"2019-10-20T14:41:32Z","pushed_at":"2019-10-20T14:14:43Z","git_url":"git://github.com/Perl/perl5.git","ssh_url":"git@github.com:Perl/perl5.git","clone_url":"https://github.com/Perl/perl5.git","svn_url":"https://github.com/Perl/perl5","homepage":"http://dev.perl.org/perl5/","size":256257,"stargazers_count":476,"watchers_count":476,"language":"Perl","has_issues":true,"has_projects":true,"has_downloads":true,"has_wiki":true,"has_pages":false,"forks_count":158,"mirror_url":null,"archived":false,"disabled":false,"open_issues_count":1925,"license":{"key":"other","name":"Other","spdx_id":"NOASSERTION","url":null,"node_id":"MDc6TGljZW5zZTA="},"forks":158,"open_issues":1925,"watchers":476,"default_branch":"blead"}},"base":{"label":"Perl:blead","ref":"blead","sha":"a7a9270b2b4840e027ef976222f48ffe719d0f04","user":{"login":"Perl","id":3585411,"node_id":"MDEyOk9yZ2FuaXphdGlvbjM1ODU0MTE=","avatar_url":"https://avatars0.githubusercontent.com/u/3585411?v=4","gravatar_id":"","url":"https://api.github.com/users/Perl","html_url":"https://github.com/Perl","followers_url":"https://api.github.com/users/Perl/followers","following_url":"https://api.github.com/users/Perl/following{/other_user}","gists_url":"https://api.github.com/users/Perl/gists{/gist_id}","starred_url":"https://api.github.com/users/Perl/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/Perl/subscriptions","organizations_url":"https://api.github.com/users/Perl/orgs","repos_url":"https://api.github.com/users/Perl/repos","events_url":"https://api.github.com/users/Perl/events{/privacy}","received_events_url":"https://api.github.com/users/Perl/received_events","type":"Organization","site_admin":false},"repo":{"id":8183570,"node_id":"MDEwOlJlcG9zaXRvcnk4MTgzNTcw","name":"perl5","full_name":"Perl/perl5","private":false,"owner":{"login":"Perl","id":3585411,"node_id":"MDEyOk9yZ2FuaXphdGlvbjM1ODU0MTE=","avatar_url":"https://avatars0.githubusercontent.com/u/3585411?v=4","gravatar_id":"","url":"https://api.github.com/users/Perl","html_url":"https://github.com/Perl","followers_url":"https://api.github.com/users/Perl/followers","following_url":"https://api.github.com/users/Perl/following{/other_user}","gists_url":"https://api.github.com/users/Perl/gists{/gist_id}","starred_url":"https://api.github.com/users/Perl/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/Perl/subscriptions","organizations_url":"https://api.github.com/users/Perl/orgs","repos_url":"https://api.github.com/users/Perl/repos","events_url":"https://api.github.com/users/Perl/events{/privacy}","received_events_url":"https://api.github.com/users/Perl/received_events","type":"Organization","site_admin":false},"html_url":"https://github.com/Perl/perl5","description":"🐫The Perl 5 language interpreter.","fork":false,"url":"https://api.github.com/repos/Perl/perl5","forks_url":"https://api.github.com/repos/Perl/perl5/forks","keys_url":"https://api.github.com/repos/Perl/perl5/keys{/key_id}","collaborators_url":"https://api.github.com/repos/Perl/perl5/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/Perl/perl5/teams","hooks_url":"https://api.github.com/repos/Perl/perl5/hooks","issue_events_url":"https://api.github.com/repos/Perl/perl5/issues/events{/number}","events_url":"https://api.github.com/repos/Perl/perl5/events","assignees_url":"https://api.github.com/repos/Perl/perl5/assignees{/user}","branches_url":"https://api.github.com/repos/Perl/perl5/branches{/branch}","tags_url":"https://api.github.com/repos/Perl/perl5/tags","blobs_url":"https://api.github.com/repos/Perl/perl5/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/Perl/perl5/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/Perl/perl5/git/refs{/sha}","trees_url":"https://api.github.com/repos/Perl/perl5/git/trees{/sha}","statuses_url":"https://api.github.com/repos/Perl/perl5/statuses/{sha}","languages_url":"https://api.github.com/repos/Perl/perl5/languages","stargazers_url":"https://api.github.com/repos/Perl/perl5/stargazers","contributors_url":"https://api.github.com/repos/Perl/perl5/contributors","subscribers_url":"https://api.github.com/repos/Perl/perl5/subscribers","subscription_url":"https://api.github.com/repos/Perl/perl5/subscription","commits_url":"https://api.github.com/repos/Perl/perl5/commits{/sha}","git_commits_url":"https://api.github.com/repos/Perl/perl5/git/commits{/sha}","comments_url":"https://api.github.com/repos/Perl/perl5/comments{/number}","issue_comment_url":"https://api.github.com/repos/Perl/perl5/issues/comments{/number}","contents_url":"https://api.github.com/repos/Perl/perl5/contents/{+path}","compare_url":"https://api.github.com/repos/Perl/perl5/compare/{base}...{head}","merges_url":"https://api.github.com/repos/Perl/perl5/merges","archive_url":"https://api.github.com/repos/Perl/perl5/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/Perl/perl5/downloads","issues_url":"https://api.github.com/repos/Perl/perl5/issues{/number}","pulls_url":"https://api.github.com/repos/Perl/perl5/pulls{/number}","milestones_url":"https://api.github.com/repos/Perl/perl5/milestones{/number}","notifications_url":"https://api.github.com/repos/Perl/perl5/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/Perl/perl5/labels{/name}","releases_url":"https://api.github.com/repos/Perl/perl5/releases{/id}","deployments_url":"https://api.github.com/repos/Perl/perl5/deployments","created_at":"2013-02-13T17:10:40Z","updated_at":"2019-10-20T14:41:32Z","pushed_at":"2019-10-20T14:14:43Z","git_url":"git://github.com/Perl/perl5.git","ssh_url":"git@github.com:Perl/perl5.git","clone_url":"https://github.com/Perl/perl5.git","svn_url":"https://github.com/Perl/perl5","homepage":"http://dev.perl.org/perl5/","size":256257,"stargazers_count":476,"watchers_count":476,"language":"Perl","has_issues":true,"has_projects":true,"has_downloads":true,"has_wiki":true,"has_pages":false,"forks_count":158,"mirror_url":null,"archived":false,"disabled":false,"open_issues_count":1925,"license":{"key":"other","name":"Other","spdx_id":"NOASSERTION","url":null,"node_id":"MDc6TGljZW5zZTA="},"forks":158,"open_issues":1925,"watchers":476,"default_branch":"blead"}},"_links":{"self":{"href":"https://api.github.com/repos/Perl/perl5/pulls/17189"},"html":{"href":"https://github.com/Perl/perl5/pull/17189"},"issue":{"href":"https://api.github.com/repos/Perl/perl5/issues/17189"},"comments":{"href":"https://api.github.com/repos/Perl/perl5/issues/17189/comments"},"review_comments":{"href":"https://api.github.com/repos/Perl/perl5/pulls/17189/comments"},"review_comment":{"href":"https://api.github.com/repos/Perl/perl5/pulls/comments{/number}"},"commits":{"href":"https://api.github.com/repos/Perl/perl5/pulls/17189/commits"},"statuses":{"href":"https://api.github.com/repos/Perl/perl5/statuses/003644d738f12302305fae5bee9ca7ae1c8d81e4"}},"author_association":"CONTRIBUTOR"}}
other: {"actor":{"display_login":"atoomic"}}