view release on metacpan or  search on metacpan

lib/Graph.pm  view on Meta::CPAN

        $img->setData($data, 'blue up');
        $img->setTag($tags);
    }
    $img->setGraphOptions(
            title           => $title,
            horAxisLabel    => 'delta (added or modified files)',
            vertAxisLabel   => 'size (nb files)',
    );
    $img->draw();
    my $gd = $img->getGDobject();
    $gd->transparent(-1);
    return $gd;
}

sub EnergyCv {
    my $cvs_log = shift;
    my ($tags, $path, $title, $width, $height, $toplevel) = @_;

    my $data = $cvs_log->_Energy($tags, $path);
    my $img = CVS::Metrics::TaggedChart->new($width, $height);
    $img->setData($data, 'blue up');