%perl> $r->content_type("image/$format"); print $graph->plot(\@data)->$format(); $m->abort(); %perl> <&|/l, $#data+1&>[_1] Plot Elements&>
% foreach my $value (@data) { <% $value %>
% } <&|/l&>x_labels&>:
<% $ARGS{x_labels} %>
<&|/l&>legend&>:
<% $ARGS{set_legend} %>
<&|/l, (keys %ARGS) - 2&>[_1] data sets&>:
% for (1..(scalar keys %ARGS)-2) { <% $_ %> <% $ARGS{"data$_"} %>
% } <%INIT> use GD::Graph::lines; my @data; my $graph = GD::Graph::lines->new($Statistics::GraphWidth||500,$Statistics::GraphHeight||400); $graph->set(export_format => "png", x_label => 'Day of Week', y_label => 'Tickets per day'); $graph->set_legend(split /,/ , $ARGS{set_legend}); my $format = $graph->export_format; push @data, [split /,/ , $ARGS{x_labels}]; for (1..((scalar keys %ARGS)-2)) { push @data, [split /,/ , $ARGS{"data".$_}]; } %INIT> <%ARGS> %ARGS>