{"action":"created","comment":{"url":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/comments/37978996","id":37978996,"diff_hunk":"@@ -36,6 +36,59 @@ if you don't export anything, such as for a purely object-oriented module.\n \r\n =head1 SUBROUTINES/METHODS\r\n \r\n+=head2 new\r\n+\r\n+=cut\r\n+\r\n+sub new {\r\n+  my ( $class, $name, $colour ) = @_;\r\n+\r\n+  $colour = default_colour() unless defined $colour;\r\n+\r\n+  return bless { name => $name, colour => $colour }, $class;\r\n+\r\n+}\r\n+\r\n+=head2 set_name\r\n+\r\n+=cut\r\n+\r\n+sub set_name {\r\n+  $_[0]->{name} = $_[1];\r\n+  return $_[0];\r\n+}\r","path":"spg/Animal/lib/Animal.pm","position":24,"original_position":24,"commit_id":"b72e2e7aadc1b0dc6dfa809e004917af3e92aeec","original_commit_id":"b72e2e7aadc1b0dc6dfa809e004917af3e92aeec","user":{"login":"Utopia1138","id":2646781,"avatar_url":"https://avatars.githubusercontent.com/u/2646781?v=3","gravatar_id":"","url":"https://api.github.com/users/Utopia1138","html_url":"https://github.com/Utopia1138","followers_url":"https://api.github.com/users/Utopia1138/followers","following_url":"https://api.github.com/users/Utopia1138/following{/other_user}","gists_url":"https://api.github.com/users/Utopia1138/gists{/gist_id}","starred_url":"https://api.github.com/users/Utopia1138/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/Utopia1138/subscriptions","organizations_url":"https://api.github.com/users/Utopia1138/orgs","repos_url":"https://api.github.com/users/Utopia1138/repos","events_url":"https://api.github.com/users/Utopia1138/events{/privacy}","received_events_url":"https://api.github.com/users/Utopia1138/received_events","type":"User","site_admin":false},"body":"I wouldn't usually recommend doing this, but should this defend against attempts at setting the name on the class rather than on an instance? The exercise definition alludes to this with:\r\n\r\n```doc\r\nWhat should you do if you’re asked to set the name or color of a generic animal?\r\n```","created_at":"2015-08-26T13:12:50Z","updated_at":"2015-08-26T13:12:50Z","html_url":"https://github.com/ardavey/Intermediate-Perl/pull/112#discussion_r37978996","pull_request_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/112","_links":{"self":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/comments/37978996"},"html":{"href":"https://github.com/ardavey/Intermediate-Perl/pull/112#discussion_r37978996"},"pull_request":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/112"}}},"pull_request":{"url":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/112","id":43398207,"html_url":"https://github.com/ardavey/Intermediate-Perl/pull/112","diff_url":"https://github.com/ardavey/Intermediate-Perl/pull/112.diff","patch_url":"https://github.com/ardavey/Intermediate-Perl/pull/112.patch","issue_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues/112","number":112,"state":"open","locked":false,"title":"spg Chapter 15","user":{"login":"SimonGross","id":9445364,"avatar_url":"https://avatars.githubusercontent.com/u/9445364?v=3","gravatar_id":"","url":"https://api.github.com/users/SimonGross","html_url":"https://github.com/SimonGross","followers_url":"https://api.github.com/users/SimonGross/followers","following_url":"https://api.github.com/users/SimonGross/following{/other_user}","gists_url":"https://api.github.com/users/SimonGross/gists{/gist_id}","starred_url":"https://api.github.com/users/SimonGross/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/SimonGross/subscriptions","organizations_url":"https://api.github.com/users/SimonGross/orgs","repos_url":"https://api.github.com/users/SimonGross/repos","events_url":"https://api.github.com/users/SimonGross/events{/privacy}","received_events_url":"https://api.github.com/users/SimonGross/received_events","type":"User","site_admin":false},"body":"SSIA - this was a fairly simple exercise","created_at":"2015-08-26T12:55:54Z","updated_at":"2015-08-26T13:12:50Z","closed_at":null,"merged_at":null,"merge_commit_sha":"e220fae098283dd7199008c38025d76dc065963d","assignee":null,"milestone":null,"commits_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/112/commits","review_comments_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/112/comments","review_comment_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/comments{/number}","comments_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues/112/comments","statuses_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/statuses/b72e2e7aadc1b0dc6dfa809e004917af3e92aeec","head":{"label":"ardavey:spg_chapter15","ref":"spg_chapter15","sha":"b72e2e7aadc1b0dc6dfa809e004917af3e92aeec","user":{"login":"ardavey","id":2790047,"avatar_url":"https://avatars.githubusercontent.com/u/2790047?v=3","gravatar_id":"","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},"repo":{"id":26066281,"name":"Intermediate-Perl","full_name":"ardavey/Intermediate-Perl","owner":{"login":"ardavey","id":2790047,"avatar_url":"https://avatars.githubusercontent.com/u/2790047?v=3","gravatar_id":"","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},"private":false,"html_url":"https://github.com/ardavey/Intermediate-Perl","description":"Exercise solutions from the O'Reilly book of the same name.","fork":false,"url":"https://api.github.com/repos/ardavey/Intermediate-Perl","forks_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/forks","keys_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/keys{/key_id}","collaborators_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/teams","hooks_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/hooks","issue_events_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues/events{/number}","events_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/events","assignees_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/assignees{/user}","branches_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/branches{/branch}","tags_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/tags","blobs_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/refs{/sha}","trees_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/trees{/sha}","statuses_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/statuses/{sha}","languages_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/languages","stargazers_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/stargazers","contributors_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/contributors","subscribers_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/subscribers","subscription_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/subscription","commits_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/commits{/sha}","git_commits_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/commits{/sha}","comments_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/comments{/number}","issue_comment_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues/comments{/number}","contents_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/contents/{+path}","compare_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/compare/{base}...{head}","merges_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/merges","archive_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/downloads","issues_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues{/number}","pulls_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls{/number}","milestones_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/milestones{/number}","notifications_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/labels{/name}","releases_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/releases{/id}","created_at":"2014-11-01T23:27:01Z","updated_at":"2015-05-22T09:48:20Z","pushed_at":"2015-08-26T12:55:54Z","git_url":"git://github.com/ardavey/Intermediate-Perl.git","ssh_url":"git@github.com:ardavey/Intermediate-Perl.git","clone_url":"https://github.com/ardavey/Intermediate-Perl.git","svn_url":"https://github.com/ardavey/Intermediate-Perl","homepage":null,"size":5087,"stargazers_count":0,"watchers_count":0,"language":"Perl","has_issues":true,"has_downloads":true,"has_wiki":true,"has_pages":false,"forks_count":0,"mirror_url":null,"open_issues_count":4,"forks":0,"open_issues":4,"watchers":0,"default_branch":"master"}},"base":{"label":"ardavey:master","ref":"master","sha":"72fdc7ea18dec575fb0d486fbe78a6029e78629a","user":{"login":"ardavey","id":2790047,"avatar_url":"https://avatars.githubusercontent.com/u/2790047?v=3","gravatar_id":"","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},"repo":{"id":26066281,"name":"Intermediate-Perl","full_name":"ardavey/Intermediate-Perl","owner":{"login":"ardavey","id":2790047,"avatar_url":"https://avatars.githubusercontent.com/u/2790047?v=3","gravatar_id":"","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},"private":false,"html_url":"https://github.com/ardavey/Intermediate-Perl","description":"Exercise solutions from the O'Reilly book of the same name.","fork":false,"url":"https://api.github.com/repos/ardavey/Intermediate-Perl","forks_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/forks","keys_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/keys{/key_id}","collaborators_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/teams","hooks_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/hooks","issue_events_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues/events{/number}","events_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/events","assignees_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/assignees{/user}","branches_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/branches{/branch}","tags_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/tags","blobs_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/refs{/sha}","trees_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/trees{/sha}","statuses_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/statuses/{sha}","languages_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/languages","stargazers_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/stargazers","contributors_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/contributors","subscribers_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/subscribers","subscription_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/subscription","commits_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/commits{/sha}","git_commits_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/git/commits{/sha}","comments_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/comments{/number}","issue_comment_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues/comments{/number}","contents_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/contents/{+path}","compare_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/compare/{base}...{head}","merges_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/merges","archive_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/downloads","issues_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues{/number}","pulls_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls{/number}","milestones_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/milestones{/number}","notifications_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/labels{/name}","releases_url":"https://api.github.com/repos/ardavey/Intermediate-Perl/releases{/id}","created_at":"2014-11-01T23:27:01Z","updated_at":"2015-05-22T09:48:20Z","pushed_at":"2015-08-26T12:55:54Z","git_url":"git://github.com/ardavey/Intermediate-Perl.git","ssh_url":"git@github.com:ardavey/Intermediate-Perl.git","clone_url":"https://github.com/ardavey/Intermediate-Perl.git","svn_url":"https://github.com/ardavey/Intermediate-Perl","homepage":null,"size":5087,"stargazers_count":0,"watchers_count":0,"language":"Perl","has_issues":true,"has_downloads":true,"has_wiki":true,"has_pages":false,"forks_count":0,"mirror_url":null,"open_issues_count":4,"forks":0,"open_issues":4,"watchers":0,"default_branch":"master"}},"_links":{"self":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/112"},"html":{"href":"https://github.com/ardavey/Intermediate-Perl/pull/112"},"issue":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues/112"},"comments":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/issues/112/comments"},"review_comments":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/112/comments"},"review_comment":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/comments{/number}"},"commits":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/pulls/112/commits"},"statuses":{"href":"https://api.github.com/repos/ardavey/Intermediate-Perl/statuses/b72e2e7aadc1b0dc6dfa809e004917af3e92aeec"}}}}