JiftyX::CloudTags - JiftyX::CloudTags documentation

    use JiftyX::CloudTags;

    my $cloudtag = JiftyX::CloudTags->new( 'LabelCollection'  ,
        text_by => 'name',
        size_by => 'related_posts',
        link_format => '?id=%i',
    );
    $cloudtag->render;

    my $cloudtag = JiftyX::CloudTags->new( 'LabelCollection'  ,
        text_by => 'name',
        size_by => 'related_posts',

        link_format => '?id=%i&text=%t&%{custom_column}',

        min_fontsize => 9,
        max_fontsize => 72,
        degree => 6,

        min_quantity => 0,
        max_quantity => 100,

        break_width => 200,   # in pixel

    );
    $cloudtag->render;

    perldoc JiftyX::CloudTags

package JiftyX::CloudTags;

use warnings;
use strict;
use Mouse;
use JiftyX::ModelHelpers;

our $VERSION = '0.01';

has 'collection'          => ( is => 'rw', isa => 'Object' );
has 'args'                => (
    is => 'rw',
    isa => 'HashRef'
);

has 'default_link_format' => ( 
    is => 'rw', 
    isa => 'Str' , 
    default => '?id=%i&text=%t&custom=%{hit}'
);

sub set_tags {
    my $self             = shift;
    my $collection_class = shift;
    my %args             = @_;


    my $collection;
    if( ref $collection_class ) {
        $collection = $collection_class;
    }
    else {
        $collection = M($collection_class);
        $collection->unlimit;
    }
    $collection->order_by( column => $args{text_by}, order => 'desc' );
    $self->collection( $collection );
    $self->args( \%args );
}

sub find_quantity {
    my $collection = shift;
    my $size_by    = shift;
    my ( $min_quantity, $max_quantity ) = ( 0, 0 );
    while( my $c = $collection->next ) {
        my $size = ( ref $c->$size_by ? $c->$size_by->count : $c->$size_by );
        $min_quantity = $size if( $size < $min_quantity );
        $max_quantity = $size if( $size > $max_quantity );
    };
    return ( $min_quantity, $max_quantity );
}


sub render {
    my $self = shift;
    my $collection = $self->collection;
    my %args = %{ $self->args };
    my $link_format = $args{link_format} || $self->default_link_format;

    my $min_fontsize = $args{min_fontsize} || 9;
    my $max_fontsize = $args{max_fontsize} || 48;
    my $fontsize_degree = $max_fontsize - $min_fontsize ;

    my ( $min_quantity , $max_quantity );
    $min_quantity ||= $args{min_quantity};
    $max_quantity ||= $args{max_quantity};
    unless( $min_quantity || $max_quantity ) {
        ( $min_quantity , $max_quantity ) = find_quantity( $collection , $args{size_by} );
    }

    my $degree = $args{degree}
        || ( $fontsize_degree / ( $max_quantity - $min_quantity ) );

    my $offset = 0;
    my $div_width = $args{break_width} || -1;

    my $output = '';
    while( my $c = $collection->next ) {
        my ( $text_acc, $size_acc ) = ( $args{text_by}, $args{size_by} );

        my $id = $c->id;
        my $text = $c->$text_acc;
        my $size = ( ref $c->$size_acc ? $c->$size_acc->count : $c->size_acc );
        my $fontsize = int( $size * $degree + $min_fontsize );

        my $url = $link_format;
        $url =~ s/%i/$id/g;
        $url =~ s/%t/$text/g;

        # custom column
        $url =~ s/\%\{(\w+)\}/ $c->$1 /eg;

        # my $url = 
        $output .= qq|
                        <span class="cloudtags" style="font-size: ${fontsize}px;">
                                <a href="$url">$text</a>
                        </span>
                |;

        $offset += length($text) * $fontsize;
        if ( $div_width != -1 and $offset > $div_width ) {
            $output .= q|<br/>|;
            $offset = 0;
        }
    }

    $output;
}

1; 

__END__