{"title":"The SUPER pseudo class is very slow!","url":"https://gfx.hatenadiary.org/entry/20090822/1250920544","description":"SUPER\u7591\u4f3c\u30af\u30e9\u30b9\u3092\u901a\u3058\u305f\u30e1\u30bd\u30c3\u30c9\u547c\u3073\u51fa\u3057\u306f\u975e\u5e38\u306b\u9045\u3044\u3002 \u3082\u3057\u30d9\u30fc\u30b9\u30af\u30e9\u30b9\u306b\u624b\u3092\u52a0\u3048\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u306a\u3089\uff0c\u7a7a\u306e\u30d5\u30c3\u30af\u30e1\u30bd\u30c3\u30c9\u3092\u30d9\u30fc\u30b9\u30af\u30e9\u30b9\u306b\u4ed5\u8fbc\u3093\u3067\u304a\u304f\u3053\u3068\u3092\u8003\u3048\u305f\u307b\u3046\u304c\u3044\u3044\u304b\u3082\u3057\u308c\u306a\u3044\u3002\u305f\u3068\u3048\u3070\u4ee5\u4e0b\u306e\u30b1\u30fc\u30b9\uff1a # using SUPER package BaseClass; sub new{ bless {}, shift } sub foo{ my($self) = @_; # do something } package DerivedClass; use parent -norequire => qw(BaseClass); sub pre_foo{ my($self) = @_; #\u2026","provider_name":"Hatena Blog","published":"2009-08-22 14:55:44","type":"rich","width":"100%","version":"1.0","blog_title":"Islands in the byte stream (legacy)","height":"190","author_url":"https://blog.hatena.ne.jp/gfx/","author_name":"gfx","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fgfx.hatenadiary.org%2Fentry%2F20090822%2F1250920544\" title=\"The SUPER pseudo class is very slow! - Islands in the byte stream (legacy)\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://gfx.hatenadiary.org/","image_url":null,"categories":["Perl"]}