この前書いたのイマイチ かつYAPCのCatalyst話参考になったので、早速書き直してみた。

__PACKAGE__->config(
        tagcloud =>{
                levels => 10,
                limit => 3
                }
);

な感じでレベルとリミット設定できるようにした。

でも、実際に使ってみると、

sub default : Private {
    my ( $self, $c ) = @_;

my $tags = [
        {tag=>"tag1",url=>"url1",count=>5},
        {tag=>"tag2",url=>"url2",count=>15},
        {tag=>"tag3",url=>"url3",count=>8},
        {tag=>"tag4",url=>"url4",count=>20},
        {tag=>"tag5",url=>"url5",count=>3}];

my $html = $c->create_tagcloud($tags,"html_and_css");
    # Hello World
    $c->response->body( $html );
}

みたいに配列のリファレンスを用意しないといけないのが駄目ゲ？セーフゲ？わからん。

• testとか書いてない(今後覚える、というかやる)
• blahが多い（blur派だからしょうがない？）
• Module::Starterつかうべしなのにh2xsではじめてしまった。

な感じで、やりかけだけど、ココから落とせます。もっと、小洒落たやりかたがあれば指摘してもらえると助かります。