1package SVG::DOM2::Element::Shape::Fill; 2=head1 NAME 3 4SVG::DOM2::Element::Shape::Fill 5 6=head1 DESCRIPTION 7 8Extend a shape element with fill attributes 9 10=cut 11 12use strict; 13use warnings; 14 15=head1 METHODS 16 17fill - fill style, has color and opacity output 18 19=cut 20sub fill 21{ 22 my ($self) = @_; 23 my %result; 24 $result{'color'} = $self->fill_color; 25 $result{'opacity'} = $self->fill_opacity; 26 return \%result; 27} 28 29sub fill_color { shift->_style('fill-color','fill', @_); } 30sub fill_opacity 31{ 32 my $self = shift; 33 $self->_style('fill-opacity','fill-opacity', @_); 34} 35 36return 1; 37