[perl][Text::Hatena::AutoLink]
こんな感じで継承して拡張しようとしたら、なんかうまくいかない。
package Hoge::Hatena::AutoLink; use base 'Text::Hatena::AutoLink'; sub http { }
へんだなあーと思ったら、
18 '(?:\[)?(https?:\/\/[A-Za-z0-9~\/._\?\&=\-%#\+:\;,\@\']+)(?:\])?' => \&http,
あ、orz
こんな感じで継承して拡張しようとしたら、なんかうまくいかない。
package Hoge::Hatena::AutoLink; use base 'Text::Hatena::AutoLink'; sub http { }
へんだなあーと思ったら、
18 '(?:\[)?(https?:\/\/[A-Za-z0-9~\/._\?\&=\-%#\+:\;,\@\']+)(?:\])?' => \&http,
あ、orz