NAME

Acme::SaBalTongMun - make a round robin (사발통문, 沙鉢通文)

VERSION

version 1.100830

SYNOPSIS

    use Acme::SaBalTongMun;
    
    my $sabal = Acme::SabalTongMun->new(
        radius    => 30,
        font      => '/home/keedi/.fonts/NanumGothic.ttf',
        font_size => 20;
        color     => '#0000FF',
        people    => [
            'a3r0',
            'jeen',
            'keedi',
            'saillinux',
        ],
    );
    
    my $image->generate;
    
    binmode STDOUT;
    print $image->png;

DESCRIPTION

This module generates a round robin. The round robin is known as "사발통문(沙鉢通文)" in Korea. Since all members of the group doesn't have a order, it has been used to hide the leader of the group. The origin of the round robin in Korea is Donghak Peasants Revolution(동학농민혁명, 東學農民運動).

ATTRIBUTES

radius

This attribute stores the radius which is the center circle of the round robin.

font

This attribute stores the TrueType(*.ttf) font path. Only the font which has unicode charmap is allowed.

font_size

This attribute stores the size of the font.

font_charset

This attribute stores the charset of the font. This is optional and the default value is "Unicode".

color

This attribute stores the color of the font.

people

This attribte is an arrayref of strings that are the members of the round robin.

METHODS

new

    my $sabal = Acme::SabalTongMun->new(
        radius    => 30,
        font      => '/home/keedi/.fonts/NanumGothic.ttf',
        font_size => 20;
        color     => '#0000FF',
        people    => [
            'a3r0',
            'jeen',
            'keedi',
            'saillinux',
        ],
    );

This method will create and return Acme::SabalTongMun object.

generate

    my $image = $sabal->generate;

This method will return GD::Image object.

AUTHOR

  Keedi Kim - 김도형 <keedi at cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Keedi Kim.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

cpanm Acme::SaBalTongMun

perl -MCPAN -e shell
install Acme::SaBalTongMun