File Coverage

blib/lib/DataCube/Cube/Style/HTML.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package DataCube::Cube::Style::HTML;

use strict;
use warnings;

use DateTime;
use DataCube::Cube::Style::HTML::CSS;


sub new {
    my($class,%opts) = @_;
    bless { %opts }, ref($class) || $class;
}

sub html {
    my($self,$cube) = @_;
    my $html = "";
    $html .= $self->start_html($cube);
    $html .= $self->start_body($cube);
    $html .= $self->top_section($cube);

    $html .= $self->start_details($cube);
    $html .= $self->details($cube);
    $html .= $self->end_details($cube);

    $html .= $self->end_body($cube);
    $html .= $self->end_html($cube);
    return $html;
}

sub html_from_table {
    my($self,$cube,@table) = @_;

    my $html = "";

    $html .= $self->start_html($cube);
    $html .= $self->start_body($cube);
    $html .= $self->top_section($cube,@table);

    $html .= $self->start_details($cube);
    $html .= $self->details_from_table($cube,@table);
    $html .= $self->end_details($cube);

    $html .= $self->end_body($cube);
    $html .= $self->end_html($cube);

    return $html;

}

sub start_html {
    my($self,$cube) = @_;
    my $style = DataCube::Cube::Style::HTML::CSS->new;

    my $html = '




            Cube Report';

    $html .= $style->css;
    $html .= '';
    return $html;
}

sub end_html {
    my($self,$cube) = @_;
    my $html = '';
    return $html;
}

sub start_body {
    my($self,$cube) = @_;
    my $html = '';
    return $html;
}

sub end_body {
    my($self,$cube) = @_;
    my $dt = DateTime->now;
    my $year = $dt->year;
    my $html = '



                Cube Report Generated by Project Codenamed "Blackbear"

                Copyright (C) 2009-' . $year . ' David Williams


    ';
    return $html;
}

sub top_section {
    my($self,$cube,@table) = @_;
    my $time   = scalar(localtime());
    my $rows   = @table ? $#table : scalar(keys %{$cube->{cube}});
    my $schema = $cube->schema;
    my $dim_count = $schema->field_count;
    my $mea_count = $schema->measure_count;
    my $html = "
        Cube Report


                Report Generated at: $time


        ";

    $html .=  "
          




117




 





 





 





 





 





 



              




118




 





 





 





 





 





 



                 Cube Report Summary 




119




 





 





 





 





 





 



               




120




 





 





 





 





 





 



              




121




 





 





 





 





 





 



                   




122




 





 





 





 





 





 



                   




123




 





 





 





 





 





 



               




124




 





 





 





 





 





 



              




125




 





 





 





 





 





 



                  




126




 





 





 





 





 





 



                 Rows  




127




 





 





 





 





 





 



                  $rows 




128




 





 





 





 





 





 



              




129




 





 





 





 





 





 



              




130




 





 





 





 





 





 



                 Measures  




131




 





 





 





 





 





 



                  $mea_count 




132




 





 





 





 





 





 



              




133




 





 





 





 





 





 



              




134




 





 





 





 





 





 



                 Dimensions  




135




 





 





 





 





 





 



                  $dim_count 




136




 





 





 





 





 





 



              




137




 





 





 





 





 





 



              




138






















        ";
    return $html;
}

sub start_details {
    my($self,$cube) = @_;
    my $schema = $cube->schema;
    my $fields = $schema->field_count + $schema->measure_count;
    my $html = "
        "; \n"; \n"      for @field_names; \n" for @measures; \n";   




149




 





 





 





 





 





 



         Cube Report Details




150




 





 





 





 





 





 



      




151




 





 





 





 





 





 



     my @measures    = $schema->measures; 




152




 





 





 





 





 





 



     my @field_names = $schema->field_names; 




153




 





 





 





 





 





 



     for(@measures) { 




154




 





 





 





 





 





 



         $_->[2] = 'count' if $_->[0] eq 'key_count' 




155




 





 





 





 





 





 



     } 




156




 





 





 





 





 





 



     @measures = sort {$a->[2] cmp $b->[2]} @measures; 




157




 





 





 





 





 





 



      




158




 





 





 





 





 





 



     header_row: { 




159




 





 





 





 





 





 



         $html .= "\n




160




 





 





 





 





 





 



         $html .= "\t$_




161




 





 





 





 





 





 



         $html .= "\t$_->[2]




162




 





 





 





 





 





 



         $html .= "




163




 





 





 





 





 





 



     } 




164




 





 





 





 





 





 



      




165




 





 





 





 





 





 



     return $html; 




166




 





 





 





 





 





 



 } 




167




 





 





 





 





 





 



   




168




 





 





 





 





 





 



 sub end_details { 




169




 





 





 





 





 





 



     my($self,$cube) = @_; 




170




 





 





 





 





 





 



     my $html = '';


    my @measures    = $schema->measures;
    my @field_names = $schema->field_names;
    for(@measures) {
        $_->[2] = 'count' if $_->[0] eq 'key_count'
    }
    @measures = sort {$a->[2] cmp $b->[2]} @measures;

    header_row: {
        $html .= "\n
        $html .= "\t
        $html .= "\t
        $html .= "
    }

    return $html;
}

sub end_details {
    my($self,$cube) = @_;
    my $html = '
    return $html;
}

sub details_from_table {
    my($self,$cube,@table) = @_;
    my $html = "";
    shift @table;
    @table = sort { join("\t",@$a) cmp join("\t",@$b)} @table;
    my $offset = $cube->schema->field_count;
    for(@table){
        my $row = $_;
        $html .= "\n
        for(my $i = $offset; $i < @$row; ++$i){
            $row->[$i] = sprintf("%20.2f",$row->[$i]) if $row->[$i] =~ /^-?\d+\.\d*$/
        }
        $html .= "\t
        $html .= "\n
    }
    return $html;
}

sub details {
    my($self,$cube) = @_;
    my $data = $cube->{cube};
    my $html = "";
    my $schema   = $cube->schema;
    my @measures = $schema->measures;
    my @table = $cube->to_table;
    return $self->details_from_table($cube,@table);
}



1;






__DATA__