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