File Coverage

blib/lib/Chart/Timecard.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition	3	4	75.0
subroutine	4	4	100.0
pod	1	1	100.0
total	33	34	97.0

package Chart::Timecard;

use strict;
use warnings;
use Object::Tiny qw(times size);

our $VERSION = '0.02';

sub url {
    my $self = shift;

    my @times = @{ $self->times };

    my $xy = {};
    my (@x, @y, @z);

    for my $dt (@times) {
        $xy->{ $dt->hour }{ $dt->wday - 1 }++;
    }

    for my $day (0..6) {
        for my $hour (0..23) {
            my $size = $xy->{$hour}{$day} || 0;
            push @x, $hour;
            push @y, $day;
            push @z, $size;
        }
    }

    local $" = ",";
    my $chart_size = $self->size || "900x300";
    return "http://chart.apis.google.com/chart?cht=s&chs=${chart_size}&chxt=x,y&chxl=0:||0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23||1:||Sun|Mon|Tue|Wed|Thu|Fri|Sat|&chm=o,333333,1,1.0,25,0&chds=-1,24,-1,7,0,20&chd=t:@x|@y|@z";
}

1;

__END__