view release on metacpan or  search on metacpan

tkgr  view on Meta::CPAN

 my $n    = @data;
 my @x    = (0..$n-1);
 if (defined $xfunc)
  {
   foreach my $x (@x)
    {
     $x = &$xfunc($x,$au,$data[$x]);
    }
  }
 my $gd = $graph->plot([\@x,\@data]);
 my $file = "temp$$.png";
 open(IMG, ">$file") or die "Cannot open $file:$!";
 binmode IMG;
 print IMG $gd->png;
 close IMG;
 my $img = $mw->Photo(-format => 'png', -file => $file);
 unlink($file);
 return $img;
}