File Coverage

lib/Google/Chart/Axis/Style.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition 0 6 0.0
subroutine 5 6 83.3
pod 1 1 100.0
total 21 30 70.0


line stmt bran cond sub pod time code
1             # $Id$
2              
3             package Google::Chart::Axis::Style;
4 1     1   5 use Moose;
  1         1  
  1         9  
5 1     1   7469 use Moose::Util::TypeConstraints;
  1         3  
  1         15  
6 1     1   2316 use Google::Chart::Types;
  1         3  
  1         9  
7              
8             enum 'Google::Chart::Axis::Alignment' => qw(-1 0 1);
9              
10             has 'color' => (
11             is => 'rw',
12             isa => 'Google::Chart::Color'
13             );
14              
15             has 'font_size' => (
16             is => 'rw',
17             isa => 'Num',
18             );
19              
20             has 'alignment' => (
21             is => 'rw',
22             isa => 'Google::Chart::Axis::Alignment'
23             );
24              
25             __PACKAGE__->meta->make_immutable;
26              
27 1     1   265 no Moose;
  1         2  
  1         7  
28 1     1   239 no Moose::Util::TypeConstraints;
  1         2  
  1         8  
29              
30             sub as_query {
31 0     0 1   my $self = shift;
32 0   0       return join(',', $self->color || '', $self->font_size || '', $self->alignment || 0);
      0        
      0        
33             }
34              
35             1;
36              
37             __END__
38              
39             =head1 NAME
40              
41             Google::Chart::Axis::Style - Google::Chart Axis Style
42              
43             =head1 METHODS
44              
45             =head2 as_query
46              
47             =cut