| 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; |