package Graph::Template::Element::Title;

use strict;

BEGIN {
    use vars qw( @ISA );

    @ISA = qw( Graph::Template::Element );
    use Graph::Template::Element;
}

sub new
{
    my $class = shift;
    my $self = $class->SUPER::new(@_);

    $self->{TXTOBJ} = Graph::Template::Factory->create('TEXTOBJECT');

    return $self;
}

sub render { $_[1]->graph->set(title => $_[0]->get_value($_[1], 'TEXT')) }
#{
#    my $self = shift;
#    my ($context) = @_;
#
#    $context->graph->set(
#        title => $self->get_value($context, 'TEXT'),
#    );
#}

1;
__END__

=head1 NAME

Graph::Template::Element::Title

=head1 PURPOSE

To provide the title

=head1 NODE NAME

TITLE

=head1 INHERITANCE

Graph::Template::Element

=head1 ATTRIBUTES

=over 4

=item * TEXT

This is the text for the title.

=back 4

=head1 CHILDREN

None

=head1 EFFECTS

None

=head1 DEPENDENCIES

None

=head1 USAGE

This will create the title. It calls $graph->set(title => TEXT);

  <title text="Some Title here"/>

I assume the last title found will be used. (Has not been tested.)

=head1 AUTHOR

Rob Kinyon (rkinyon@columbus.rr.com)

=head1 SEE ALSO

XLABEL, YLABEL

=cut