faviconの用意の仕方がクレイジーすぎる

神から教えてもらった。
catalyst.plとか打って、デフォルトで用意されるfaviconさん。どっかに元ファイルがあって、それをコピーしてるだけなんだろうなと思ってた。ら…

sub _mk_favicon {
    my $self    = shift;
    my $root    = $self->{root};
    my $hex     = $self->get_file( ( caller(0) )[0], 'favicon' );
    my $favicon = pack "H*", $hex;
    $self->mk_file( File::Spec->catfile( $root, "favicon.ico" ), $favicon );

}

__favicon__
000001000200101000000100（ｒｙ

およそ6kbのテキストを読み込んでpackして吐いてた。試しに自分で同じ文字列を読んでpackしてリダイレクトしたら本当に出来て吹いた。
こんなアイコンの用意の仕方は…一般的じゃないと信じたい。
あと他の画像も同じ方法で用意してる。