File Coverage

blib/lib/App/bif/log/hub.pm

Criterion	Covered	Total	%
statement	18	36	50.0
branch	0	4	0.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	25	47	53.1

package App::bif::log::hub;
use strict;
use warnings;
use feature 'state';
use locale;
use Bif::Mo;

our $VERSION = '0.1.5_7';
extends 'App::bif::log';

sub run {
    my $self = shift;
    my $opts = $self->opts;
    my $db   = $self->db;
    my $hub =
        $opts->{id}
      ? $self->get_hub( $opts->{id} )
      : $self->get_hub( $opts->{name} );

    my ( $dark, $reset ) = $self->colours(qw/dark reset/);

    my $sth = $db->xprepare(
        select => [
            q{strftime('%w',c.mtime,'unixepoch','localtime') AS weekday},
            q{strftime('%Y-%m-%d',c.mtime,'unixepoch','localtime') AS mdate},
            q{strftime('%H:%M:%S',c.mtime,'unixepoch','localtime') AS mtime},
            'c.action',
        ],
        from       => 'hub_deltas hd',
        inner_join => 'changes c',
        on         => 'c.id = hd.change_id',
        where      => { 'hd.hub_id' => $hub->{id} },

        #        group_by   => [qw/weekday mdate mtime/],
        order_by => 'c.id DESC',
    );

    $sth->execute;

    $self->start_pager;

    my @days = (
        qw/Sunday Monday Tuesday Wednesday Thursday Friday
          Saturday/
    );

    my $first   = $sth->arrayref;
    my $weekday = $first->[0];

    print " $dark$first->[1] ($days[$weekday]) $reset \n";
    print '-' x 80, "\n";
    print " $first->[2]  $first->[3]\n";

    while ( my $n = $sth->arrayref ) {
        if ( $n->[0] != $weekday ) {
            print "\n $dark$n->[1] ($days[ $n->[0] ])$reset\n";
            print '-' x 80, "\n";
        }

        print " $n->[2]  $n->[3]\n";
        $weekday = $n->[0];
    }

    return $self->ok('LogHub');
}

1;
__END__