GitHub PullRequestReviewCommentEvent at 2014-07-24 10:49:05
Repository: Perl-Training
Actor: ardavey
Payload: {"action":"created","comment":{"url":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/comments/15340202","id":15340202,"diff_hunk":"@@ -0,0 +1,35 @@\n+#!/usr/bin/perl\n+\n+use strict;\n+use warnings;\n+\n+my %names = ( Andrew => \"Davey\",\n+              Sandy => \"Thomson\",\n+              Alex => \"Deas\",\n+              Arran => \"Stobbs\",\n+              Sean => \"Clark\",\n+              Mathieu => \"Patereau\",\n+              Richard => \"Ince\",\n+              Robert => \"Main\",\n+              Fred => \"Flintstone\",\n+              Barney => \"Rubble\",\n+              Wilma => \"Flintstone\",\n+            ); \n+my $given_name;\n+my $output_str;\n+\n+print \"Please enter a given name:\\n\";\n+chomp ( $given_name = <STDIN> );\n+if ( defined( $given_name ) ) {\n+  $given_name = ucfirst( lc( $given_name ) );\n+  if ( exists( $names{$given_name} ) ) {\n+    $output_str = sprintf( \"%s\\'s surname is %s\", $given_name, $names{$given_name} );\n+  }\n+}\n+\n+if ( !defined( $output_str ) ) {","path":"chapter6/ram/ex1.pl","position":30,"original_position":30,"commit_id":"d2016077c1ef9d281e74d40d82d953e22e51a55c","original_commit_id":"d2016077c1ef9d281e74d40d82d953e22e51a55c","user":{"login":"ardavey","id":2790047,"avatar_url":"https://avatars.githubusercontent.com/u/2790047?","gravatar_id":"b4c4f6ce5e8b42c6ece06190d1fbf3c0","url":"https://api.github.com/users/ardavey","html_url":"https://github.com/ardavey","followers_url":"https://api.github.com/users/ardavey/followers","following_url":"https://api.github.com/users/ardavey/following{/other_user}","gists_url":"https://api.github.com/users/ardavey/gists{/gist_id}","starred_url":"https://api.github.com/users/ardavey/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ardavey/subscriptions","organizations_url":"https://api.github.com/users/ardavey/orgs","repos_url":"https://api.github.com/users/ardavey/repos","events_url":"https://api.github.com/users/ardavey/events{/privacy}","received_events_url":"https://api.github.com/users/ardavey/received_events","type":"User","site_admin":false},"body":"It could, but this adds readability","created_at":"2014-07-24T10:49:05Z","updated_at":"2014-07-24T10:49:05Z","html_url":"https://github.com/SandyThomson/Perl-Training/pull/29#discussion_r15340202","pull_request_url":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/29","_links":{"self":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/comments/15340202"},"html":{"href":"https://github.com/SandyThomson/Perl-Training/pull/29#discussion_r15340202"},"pull_request":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/29"}}},"pull_request":{"url":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/29","id":18630434,"html_url":"https://github.com/SandyThomson/Perl-Training/pull/29","diff_url":"https://github.com/SandyThomson/Perl-Training/pull/29.diff","patch_url":"https://github.com/SandyThomson/Perl-Training/pull/29.patch","issue_url":"https://api.github.com/repos/SandyThomson/Perl-Training/issues/29","number":29,"state":"open","title":"Answers to chapter 6 questions","user":{"login":"ramain75","id":7931471,"avatar_url":"https://avatars.githubusercontent.com/u/7931471?","gravatar_id":"14396253756df0e78e0402a03fe3431a","url":"https://api.github.com/users/ramain75","html_url":"https://github.com/ramain75","followers_url":"https://api.github.com/users/ramain75/followers","following_url":"https://api.github.com/users/ramain75/following{/other_user}","gists_url":"https://api.github.com/users/ramain75/gists{/gist_id}","starred_url":"https://api.github.com/users/ramain75/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ramain75/subscriptions","organizations_url":"https://api.github.com/users/ramain75/orgs","repos_url":"https://api.github.com/users/ramain75/repos","events_url":"https://api.github.com/users/ramain75/events{/privacy}","received_events_url":"https://api.github.com/users/ramain75/received_events","type":"User","site_admin":false},"body":"","created_at":"2014-07-20T15:06:29Z","updated_at":"2014-07-24T10:49:05Z","closed_at":null,"merged_at":null,"merge_commit_sha":"d0717a5cba18ac726a4a04f283f1d67b46abe1ad","assignee":null,"milestone":null,"commits_url":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/29/commits","review_comments_url":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/29/comments","review_comment_url":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/comments/{number}","comments_url":"https://api.github.com/repos/SandyThomson/Perl-Training/issues/29/comments","statuses_url":"https://api.github.com/repos/SandyThomson/Perl-Training/statuses/d2016077c1ef9d281e74d40d82d953e22e51a55c","head":{"label":"SandyThomson:ram_chapter6","ref":"ram_chapter6","sha":"d2016077c1ef9d281e74d40d82d953e22e51a55c","user":{"login":"SandyThomson","id":7848639,"avatar_url":"https://avatars.githubusercontent.com/u/7848639?","gravatar_id":"84cd01049ccc9c34b12919e305494a66","url":"https://api.github.com/users/SandyThomson","html_url":"https://github.com/SandyThomson","followers_url":"https://api.github.com/users/SandyThomson/followers","following_url":"https://api.github.com/users/SandyThomson/following{/other_user}","gists_url":"https://api.github.com/users/SandyThomson/gists{/gist_id}","starred_url":"https://api.github.com/users/SandyThomson/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/SandyThomson/subscriptions","organizations_url":"https://api.github.com/users/SandyThomson/orgs","repos_url":"https://api.github.com/users/SandyThomson/repos","events_url":"https://api.github.com/users/SandyThomson/events{/privacy}","received_events_url":"https://api.github.com/users/SandyThomson/received_events","type":"User","site_admin":false},"repo":{"id":20683185,"name":"Perl-Training","full_name":"SandyThomson/Perl-Training","owner":{"login":"SandyThomson","id":7848639,"avatar_url":"https://avatars.githubusercontent.com/u/7848639?","gravatar_id":"84cd01049ccc9c34b12919e305494a66","url":"https://api.github.com/users/SandyThomson","html_url":"https://github.com/SandyThomson","followers_url":"https://api.github.com/users/SandyThomson/followers","following_url":"https://api.github.com/users/SandyThomson/following{/other_user}","gists_url":"https://api.github.com/users/SandyThomson/gists{/gist_id}","starred_url":"https://api.github.com/users/SandyThomson/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/SandyThomson/subscriptions","organizations_url":"https://api.github.com/users/SandyThomson/orgs","repos_url":"https://api.github.com/users/SandyThomson/repos","events_url":"https://api.github.com/users/SandyThomson/events{/privacy}","received_events_url":"https://api.github.com/users/SandyThomson/received_events","type":"User","site_admin":false},"private":false,"html_url":"https://github.com/SandyThomson/Perl-Training","description":"Corresponds with the Learning Perl O'Reilly book","fork":false,"url":"https://api.github.com/repos/SandyThomson/Perl-Training","forks_url":"https://api.github.com/repos/SandyThomson/Perl-Training/forks","keys_url":"https://api.github.com/repos/SandyThomson/Perl-Training/keys{/key_id}","collaborators_url":"https://api.github.com/repos/SandyThomson/Perl-Training/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/SandyThomson/Perl-Training/teams","hooks_url":"https://api.github.com/repos/SandyThomson/Perl-Training/hooks","issue_events_url":"https://api.github.com/repos/SandyThomson/Perl-Training/issues/events{/number}","events_url":"https://api.github.com/repos/SandyThomson/Perl-Training/events","assignees_url":"https://api.github.com/repos/SandyThomson/Perl-Training/assignees{/user}","branches_url":"https://api.github.com/repos/SandyThomson/Perl-Training/branches{/branch}","tags_url":"https://api.github.com/repos/SandyThomson/Perl-Training/tags","blobs_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/refs{/sha}","trees_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/trees{/sha}","statuses_url":"https://api.github.com/repos/SandyThomson/Perl-Training/statuses/{sha}","languages_url":"https://api.github.com/repos/SandyThomson/Perl-Training/languages","stargazers_url":"https://api.github.com/repos/SandyThomson/Perl-Training/stargazers","contributors_url":"https://api.github.com/repos/SandyThomson/Perl-Training/contributors","subscribers_url":"https://api.github.com/repos/SandyThomson/Perl-Training/subscribers","subscription_url":"https://api.github.com/repos/SandyThomson/Perl-Training/subscription","commits_url":"https://api.github.com/repos/SandyThomson/Perl-Training/commits{/sha}","git_commits_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/commits{/sha}","comments_url":"https://api.github.com/repos/SandyThomson/Perl-Training/comments{/number}","issue_comment_url":"https://api.github.com/repos/SandyThomson/Perl-Training/issues/comments/{number}","contents_url":"https://api.github.com/repos/SandyThomson/Perl-Training/contents/{+path}","compare_url":"https://api.github.com/repos/SandyThomson/Perl-Training/compare/{base}...{head}","merges_url":"https://api.github.com/repos/SandyThomson/Perl-Training/merges","archive_url":"https://api.github.com/repos/SandyThomson/Perl-Training/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/SandyThomson/Perl-Training/downloads","issues_url":"https://api.github.com/repos/SandyThomson/Perl-Training/issues{/number}","pulls_url":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls{/number}","milestones_url":"https://api.github.com/repos/SandyThomson/Perl-Training/milestones{/number}","notifications_url":"https://api.github.com/repos/SandyThomson/Perl-Training/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/SandyThomson/Perl-Training/labels{/name}","releases_url":"https://api.github.com/repos/SandyThomson/Perl-Training/releases{/id}","created_at":"2014-06-10T11:45:33Z","updated_at":"2014-07-03T11:06:01Z","pushed_at":"2014-07-24T08:14:40Z","git_url":"git://github.com/SandyThomson/Perl-Training.git","ssh_url":"git@github.com:SandyThomson/Perl-Training.git","clone_url":"https://github.com/SandyThomson/Perl-Training.git","svn_url":"https://github.com/SandyThomson/Perl-Training","homepage":null,"size":1396,"stargazers_count":0,"watchers_count":0,"language":"Perl","has_issues":true,"has_downloads":true,"has_wiki":true,"forks_count":0,"mirror_url":null,"open_issues_count":7,"forks":0,"open_issues":7,"watchers":0,"default_branch":"master"}},"base":{"label":"SandyThomson:master","ref":"master","sha":"2b7058bcb969f7f24cd894f79542b6d0ddae4c69","user":{"login":"SandyThomson","id":7848639,"avatar_url":"https://avatars.githubusercontent.com/u/7848639?","gravatar_id":"84cd01049ccc9c34b12919e305494a66","url":"https://api.github.com/users/SandyThomson","html_url":"https://github.com/SandyThomson","followers_url":"https://api.github.com/users/SandyThomson/followers","following_url":"https://api.github.com/users/SandyThomson/following{/other_user}","gists_url":"https://api.github.com/users/SandyThomson/gists{/gist_id}","starred_url":"https://api.github.com/users/SandyThomson/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/SandyThomson/subscriptions","organizations_url":"https://api.github.com/users/SandyThomson/orgs","repos_url":"https://api.github.com/users/SandyThomson/repos","events_url":"https://api.github.com/users/SandyThomson/events{/privacy}","received_events_url":"https://api.github.com/users/SandyThomson/received_events","type":"User","site_admin":false},"repo":{"id":20683185,"name":"Perl-Training","full_name":"SandyThomson/Perl-Training","owner":{"login":"SandyThomson","id":7848639,"avatar_url":"https://avatars.githubusercontent.com/u/7848639?","gravatar_id":"84cd01049ccc9c34b12919e305494a66","url":"https://api.github.com/users/SandyThomson","html_url":"https://github.com/SandyThomson","followers_url":"https://api.github.com/users/SandyThomson/followers","following_url":"https://api.github.com/users/SandyThomson/following{/other_user}","gists_url":"https://api.github.com/users/SandyThomson/gists{/gist_id}","starred_url":"https://api.github.com/users/SandyThomson/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/SandyThomson/subscriptions","organizations_url":"https://api.github.com/users/SandyThomson/orgs","repos_url":"https://api.github.com/users/SandyThomson/repos","events_url":"https://api.github.com/users/SandyThomson/events{/privacy}","received_events_url":"https://api.github.com/users/SandyThomson/received_events","type":"User","site_admin":false},"private":false,"html_url":"https://github.com/SandyThomson/Perl-Training","description":"Corresponds with the Learning Perl O'Reilly book","fork":false,"url":"https://api.github.com/repos/SandyThomson/Perl-Training","forks_url":"https://api.github.com/repos/SandyThomson/Perl-Training/forks","keys_url":"https://api.github.com/repos/SandyThomson/Perl-Training/keys{/key_id}","collaborators_url":"https://api.github.com/repos/SandyThomson/Perl-Training/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/SandyThomson/Perl-Training/teams","hooks_url":"https://api.github.com/repos/SandyThomson/Perl-Training/hooks","issue_events_url":"https://api.github.com/repos/SandyThomson/Perl-Training/issues/events{/number}","events_url":"https://api.github.com/repos/SandyThomson/Perl-Training/events","assignees_url":"https://api.github.com/repos/SandyThomson/Perl-Training/assignees{/user}","branches_url":"https://api.github.com/repos/SandyThomson/Perl-Training/branches{/branch}","tags_url":"https://api.github.com/repos/SandyThomson/Perl-Training/tags","blobs_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/refs{/sha}","trees_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/trees{/sha}","statuses_url":"https://api.github.com/repos/SandyThomson/Perl-Training/statuses/{sha}","languages_url":"https://api.github.com/repos/SandyThomson/Perl-Training/languages","stargazers_url":"https://api.github.com/repos/SandyThomson/Perl-Training/stargazers","contributors_url":"https://api.github.com/repos/SandyThomson/Perl-Training/contributors","subscribers_url":"https://api.github.com/repos/SandyThomson/Perl-Training/subscribers","subscription_url":"https://api.github.com/repos/SandyThomson/Perl-Training/subscription","commits_url":"https://api.github.com/repos/SandyThomson/Perl-Training/commits{/sha}","git_commits_url":"https://api.github.com/repos/SandyThomson/Perl-Training/git/commits{/sha}","comments_url":"https://api.github.com/repos/SandyThomson/Perl-Training/comments{/number}","issue_comment_url":"https://api.github.com/repos/SandyThomson/Perl-Training/issues/comments/{number}","contents_url":"https://api.github.com/repos/SandyThomson/Perl-Training/contents/{+path}","compare_url":"https://api.github.com/repos/SandyThomson/Perl-Training/compare/{base}...{head}","merges_url":"https://api.github.com/repos/SandyThomson/Perl-Training/merges","archive_url":"https://api.github.com/repos/SandyThomson/Perl-Training/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/SandyThomson/Perl-Training/downloads","issues_url":"https://api.github.com/repos/SandyThomson/Perl-Training/issues{/number}","pulls_url":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls{/number}","milestones_url":"https://api.github.com/repos/SandyThomson/Perl-Training/milestones{/number}","notifications_url":"https://api.github.com/repos/SandyThomson/Perl-Training/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/SandyThomson/Perl-Training/labels{/name}","releases_url":"https://api.github.com/repos/SandyThomson/Perl-Training/releases{/id}","created_at":"2014-06-10T11:45:33Z","updated_at":"2014-07-03T11:06:01Z","pushed_at":"2014-07-24T08:14:40Z","git_url":"git://github.com/SandyThomson/Perl-Training.git","ssh_url":"git@github.com:SandyThomson/Perl-Training.git","clone_url":"https://github.com/SandyThomson/Perl-Training.git","svn_url":"https://github.com/SandyThomson/Perl-Training","homepage":null,"size":1396,"stargazers_count":0,"watchers_count":0,"language":"Perl","has_issues":true,"has_downloads":true,"has_wiki":true,"forks_count":0,"mirror_url":null,"open_issues_count":7,"forks":0,"open_issues":7,"watchers":0,"default_branch":"master"}},"_links":{"self":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/29"},"html":{"href":"https://github.com/SandyThomson/Perl-Training/pull/29"},"issue":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/issues/29"},"comments":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/issues/29/comments"},"review_comments":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/29/comments"},"review_comment":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/comments/{number}"},"commits":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/pulls/29/commits"},"statuses":{"href":"https://api.github.com/repos/SandyThomson/Perl-Training/statuses/d2016077c1ef9d281e74d40d82d953e22e51a55c"}}}}