package Graph::Template::Element::XLabel;

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(x_label => $_[0]->get_value($_[1], 'TEXT')) }
#{
#    my $self = shift;
#    my ($context) = @_;
#
#    $context->graph->set(
#        x_label => $self->get_value($context, 'TEXT'),
#    );
#}

1;
__END__

=head1 NAME

Graph::Template::Element::XLabel

=head1 PURPOSE

To provide the X-axis label

=head1 NODE NAME

XLABEL

=head1 INHERITANCE

Graph::Template::Element

=head1 ATTRIBUTES

=over 4

=item * TEXT

This is the text for the label.

=back 4

=head1 CHILDREN

None

=head1 EFFECTS

None

=head1 DEPENDENCIES

None

=head1 USAGE

This will create the label for the X-axis. It calls
$graph->set(x_label => TEXT);

  <xlabel text="Some Title here"/>

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

=head1 AUTHOR

Rob Kinyon (rkinyon@columbus.rr.com)

=head1 SEE ALSO

TITLE, YLABEL

=cut