[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel / GradientI.pm

package Pastel::GradientI;
use strict;
use Carp;

use constant USER_SPACE => "userSpaceOnUse";
use constant BOUNDING_BOX => "objectBoundingBox";
use constant PAD => "pad";
use constant REFLECT => "reflect";
use constant REPEAT => "repeat";
use constant RADIAL => "radial";
use constant LINEAR => "linear";

sub add_stop {
    my $self = shift;
    my $arg = shift;
    
    if (!$arg->isa("Pastel::GradientStop")){
	croak 'Error: Parameter must be a Pastel::GradientStop object in Pastel:GradientPaint::add_stop()' ;
    }

    ${$self->{stops}}[@{$self->{stops}}] = $arg;
    
}
1;
Commit	Line	Data
86530b38 AT	1	package Pastel::GradientI;
	2	use strict;
	3	use Carp;
	4
	5	use constant USER_SPACE => "userSpaceOnUse";
	6	use constant BOUNDING_BOX => "objectBoundingBox";
	7	use constant PAD => "pad";
	8	use constant REFLECT => "reflect";
	9	use constant REPEAT => "repeat";
	10	use constant RADIAL => "radial";
	11	use constant LINEAR => "linear";
	12
	13	sub add_stop {
	14	my $self = shift;
	15	my $arg = shift;
	16
	17	if (!$arg->isa("Pastel::GradientStop")){
	18	croak 'Error: Parameter must be a Pastel::GradientStop object in Pastel:GradientPaint::add_stop()' ;
	19	}
	20
	21	${$self->{stops}}[@{$self->{stops}}] = $arg;
	22
	23	}
	24	1;