{"provider_url":"https://hatena.blog","url":"https://hiratara.hatenadiary.jp/entry/20121222/1356146686","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiratara.hatenadiary.jp%2Fentry%2F20121222%2F1356146686\" title=\"State\u30e2\u30ca\u30c9\u3068\u30aa\u30d6\u30b8\u30a7\u30af\u30c8 - Pixel Pedals of Tomakomai\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_name":"hiratara","width":"100%","version":"1.0","type":"rich","image_url":null,"published":"2012-12-22 12:24:46","blog_url":"https://hiratara.hatenadiary.jp/","provider_name":"Hatena Blog","title":"State\u30e2\u30ca\u30c9\u3068\u30aa\u30d6\u30b8\u30a7\u30af\u30c8","blog_title":"Pixel Pedals of Tomakomai","description":"\u9762\u767d\u304f\u3082\u306a\u3093\u3068\u3082\u306a\u3044Parson\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3002 package Parson; sub new { my ($class, $self) = @_; bless $self => $class; } sub change_name { my ($self, $name) = @_; $self->{name} = $name; } sub get_name { my ($self) = @_; $self->{name}; } my $p = Parson->new({}); $p->change_name(\"Jony\"); print $p->get_name, \"\\n\"; \u30dd\u30ea\u30e2\u30d5\u30a3\u30ba\u30e0\u6c17\u2026","categories":["\u6280\u8853"],"height":"190","author_url":"https://blog.hatena.ne.jp/hiratara/"}