{"blog_url":"https://bayside.hatenablog.com/","url":"https://bayside.hatenablog.com/entry/20050405/p1","type":"rich","blog_title":"Devel::Bayside","categories":["Perl"],"width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fbayside.hatenablog.com%2Fentry%2F20050405%2Fp1\" title=\" \u3053\u3068\u306f\u3058\u3081 - Devel::Bayside\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u3068\u308a\u3042\u3048\u305a\u30af\u30e9\u30b9\u3092\uff11\u500b\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002\u30e1\u30bd\u30c3\u30c9\u540d\u306e\u547d\u540d\u898f\u5247\u304cJava\u3063\u307d\u3044\u306e\u306f\u6c17\u306b\u3057\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002 use strict; package Bug; sub new { my $class = $_[0]; my $objref = { _id => $_[1], _type => $_[2], _descr => $_[3], }; bless $objref, $class; return $objref; } sub getID() { my ($this) = @_; return $this->{_id}; } sub getType() { my ($this) = @_; re\u2026","height":"190","provider_url":"https://hatena.blog","image_url":null,"version":"1.0","author_name":"Bayside","title":" \u3053\u3068\u306f\u3058\u3081","author_url":"https://blog.hatena.ne.jp/Bayside/","published":"2005-04-05 00:00:00","provider_name":"Hatena Blog"}