File Coverage

blib/lib/VS/Chart/Color/Gradient.pm

Criterion	Covered	Total	%
statement	6	16	37.5
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	22	45.4

package VS::Chart::Color::Gradient;

use strict;
use warnings;

sub new {
    my ($pkg, $c1, $c2) = @_;
    my $self = bless [$c1, $c2], $pkg;
    return $self;
}

sub set {
    my ($self, $cx, $surface, $width, $height) = @_;

    my $gr = Cairo::LinearGradient->create(0, 0, 0, $height);
    $gr->add_color_stop_rgba(0, @{$self->[0]});
    $gr->add_color_stop_rgba(1, @{$self->[1]});

    $cx->set_source($gr);
}

1;
__END__