File Coverage

blib/lib/DataCube/Cube/Style/HTML/CSS.pm
Criterion Covered Total %
statement 6 15 40.0
branch 0 2 0.0
condition 0 8 0.0
subroutine 2 5 40.0
pod 0 3 0.0
total 8 33 24.2


line stmt bran cond sub pod time code
1              
2              
3              
4             package DataCube::Cube::Style::HTML::CSS;
5              
6 1     1   3798 use strict;
  1         4  
  1         44  
7 1     1   6 use warnings;
  1         2  
  1         259  
8              
9             sub new {
10 0     0 0   my($class,%opts) = @_;
11 0   0       my $self = bless { %opts }, ref($class) || $class;
12 0           $self->{default_css} = $self->default_css;
13 0           return $self;
14             }
15              
16             sub css {
17 0     0 0   my($self,$css) = @_;
18 0 0 0       ($self->{css}) = ($css) and return $self if $css;
19 0   0       return $self->{css} || $self->{default_css};
20             }
21              
22             sub default_css {
23 0     0 0   my($self,%opts) = @_;
24 0           my $css = '
25             ';
133              
134             }
135              
136              
137             1;
138              
139              
140              
141             __DATA__