File Coverage

lib/Google/Chart/Fill/Solid.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             # $Id$
2              
3             package Google::Chart::Fill::Solid;
4 1     1   5 use Moose;
  1         2  
  1         8  
5 1     1   6565 use Moose::Util::TypeConstraints;
  1         4  
  1         12  
6 1     1   2005 use Google::Chart::Types;
  1         2  
  1         9  
7              
8             with 'Google::Chart::Fill';
9              
10             has 'color' => (
11             is => 'rw',
12             isa => 'Google::Chart::Color::Data',
13             required => 1,
14             );
15              
16             has 'target' => (
17             is => 'rw',
18             isa => enum([ qw(bg c a) ]),
19             required => 1
20             );
21              
22             __PACKAGE__->meta->make_immutable;
23              
24 1     1   207 no Moose;
  1         2  
  1         5  
25 1     1   191 no Moose::Util::TypeConstraints;
  1         1  
  1         23  
26              
27             sub parameter_value {
28 0     0 0   my $self = shift;
29 0           return join(',', $self->target, 's', $self->color)
30             }
31              
32             1;
33              
34             __END__
35              
36             =head1 NAME
37              
38             Google::Chart::Fill::Solid - Apply Solid Fill
39              
40             =head1 SYNOPSIS
41              
42             use Google::Chart;
43             Google::Chart->new(
44             fill => {
45             args => {
46             color => "ffccff",
47             target => "bg",
48             }
49             }
50             );
51              
52             Google::Chart->new(
53             fill => Google::Chart::Fill::Solid->new(
54             color => "ffcff",
55             target => "bg"
56             )
57             );
58              
59             =cut