Template::Plugin::GD::Text - Text utilities for use with GD


Template-GD documentation Contained in the Template-GD distribution.

Index


Code Index:

NAME

Top

Template::Plugin::GD::Text - Text utilities for use with GD

SYNOPSIS

Top

    [% USE gd_text = GD.Text %]

EXAMPLES

Top

    [%
        USE gd_c = GD.Constants;
        USE t = GD.Text;
        x = t.set_text('Some text');
        r = t.get('width', 'height', 'char_up', 'char_down');
        r.join(":"); "\n";     # returns 54:13:13:0.
    -%]

    [%
        USE gd_c = GD.Constants;
        USE t = GD.Text(text => 'FooBar Banana', font => gd_c.gdGiantFont);
        t.get('width'); "\n";  # returns 117.
    -%]

DESCRIPTION

Top

The GD.Text plugin provides an interface to the GD::Text module. It allows attributes of strings such as width and height in pixels to be computed.

See GD::Text for more details. See Template::Plugin::GD::Text::Align and Template::Plugin::GD::Text::Wrap for plugins that allow you to render aligned or wrapped text in GD images.

AUTHOR

Top

Thomas Boutell wrote the GD graphics library.

Lincoln D. Stein wrote the Perl GD modules that interface to it and Martien Verbruggen wrote the GD::Text module.

Craig Barratt <craig@arraycomm.com> wrote the original GD plugins for the Template Toolkit (2001).

Andy Wardley <abw@cpan.org> extracted them from the TT core into a separate distribution for TT version 2.15.

COPYRIGHT

Top

SEE ALSO

Top

Template::Plugin::GD, Template::Plugin::GD::Text::Wrap, Template::Plugin::GD::Text::Align, GD (GD)


Template-GD documentation Contained in the Template-GD distribution.

package Template::Plugin::GD::Text;

use strict;
use warnings;
use base qw( GD::Text Template::Plugin );

our $VERSION = sprintf("%d.%02d", q$Revision: 1.56 $ =~ /(\d+)\.(\d+)/);

sub new {
    my $class   = shift;
    my $context = shift;
    push(@_, %{pop(@_)}) if ( @_ & 1 && ref($_[@_-1]) eq "HASH" );
    return $class->SUPER::new(@_);
}

sub set {
    my $self = shift;
    push(@_, %{pop(@_)}) if ( @_ & 1 && ref($_[@_-1]) eq "HASH" );
    $self->SUPER::set(@_);
}

1;

__END__

# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4: