{"image_url":null,"width":"100%","type":"rich","blog_title":"\u65e5\u5411\u590f\u7279\u6b8a\u5fdc\u63f4\u90e8\u968a","provider_url":"https://hatena.blog","published":"2008-03-17 03:51:29","author_name":"ZIGOROu","description":"DBIC\u95a2\u9023\u306e\u57fa\u5e95\u30af\u30e9\u30b9\u3068\u3082\u8a00\u3048\u308b\u30e2\u30b8\u30e5\u30fc\u30eb\u304cClass::C3::Componentised\u3067\u3059\u3002C3\u30d9\u30fc\u30b9\u306e\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u5316\u3055\u308c\u305f\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f5c\u308b\u969b\u306e\u30d9\u30fc\u30b9\u3067\u3059\u306d\u3002 1.0003\u3092\u30c6\u30ad\u30b9\u30c8\u3068\u3057\u307e\u3059\u3002 load_components() sub load_components { my $class = shift; my $base = $class->component_base_class; my @comp = map { /^\\+(.*)$/ ? $1 : \"${base}::$_\" } grep { $_ !~ /^#/ } @_; $class->_load_compon\u2026","url":"https://zigorou.hatenablog.com/entry/20080317/1205779889","categories":["Perl","CPAN","DBIC"],"blog_url":"https://zigorou.hatenablog.com/","author_url":"https://blog.hatena.ne.jp/ZIGOROu/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzigorou.hatenablog.com%2Fentry%2F20080317%2F1205779889\" title=\" Class::C3::Componentised Source Code Reading - \u65e5\u5411\u590f\u7279\u6b8a\u5fdc\u63f4\u90e8\u968a\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","version":"1.0","title":" Class::C3::Componentised Source Code Reading","provider_name":"Hatena Blog","height":"190"}