File Coverage

blib/lib/App/bif/show/issue.pm

Criterion	Covered	Total	%
statement	15	35	42.8
branch	0	2	0.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	21	43	48.8

package App::bif::show::issue;
use strict;
use warnings;
use Bif::Mo;
use DBIx::ThinSQL qw/bv sum case coalesce concat qv sq/;

our $VERSION = '0.1.5_5';
extends 'App::bif::show';

sub run {
    my $self = shift;
    my $opts = $self->opts;
    my $db   = $self->db;

    $opts->{id} = $self->uuid2id( $opts->{id} );

    my $info = $self->get_node( $opts->{id}, 'issue' );
    my $now = $self->now;
    my @data;

    my $ref = $db->xhashref(
        select => [
            'SUBSTR(n.uuid,1,8) as uuid',
            'i.title',
            'n.ctime',
            'n.ctimetz',
            'n.ctimetzhm AS ctimetzhm',
            "$now - n.ctime AS ctime_age",
            'n.mtime',
            'n.mtimetz',
            'n.mtimetzhm AS mtimetzhm',
            "$now - n.mtime AS mtime_age",
            'e1.name as creator',
            'e2.name as updator',
        ],
        from       => 'nodes n',
        inner_join => 'changes c1',
        on         => 'c1.id = n.first_change_id',
        inner_join => 'entities e1',
        on         => 'e2.id = c2.identity_id',
        inner_join => 'changes c2',
        on         => 'c2.id = n.last_change_id',
        inner_join => 'entities e2',
        on         => 'e1.id = c1.identity_id',
        inner_join => 'issues i',
        on         => 'i.id = n.id',
        where      => { 'n.id' => $info->{id} },
    );

    push( @data, $self->header( '  UUID', $ref->{uuid} ), );
    push( @data,
        $self->header( '  Created',    $self->ctime_ago($ref) ),
        $self->header( '  Created-By', $ref->{creator} ),
    );

    my @refs = $db->xhashrefs(
        with => 'ids',
        as   => sq(

            # self
            select => bv( $info->{id}, DBI::SQL_INTEGER )->as('id'),

            # parent
            union_select => 'i.src_id',
            from         => 'issues i',
            where        => { 'i.id' => $info->{id} },

            # siblings
            union_select => 'i2.id',
            from         => 'issues i',
            inner_join   => 'issues i2',
            on           => 'i2.src_id = i.src_id',
            where        => { 'i.id' => $info->{id} },

            # children
            union_select => 'i.id',
            from         => 'issues i',
            where        => { 'i.src_id' => $info->{id} },
        ),
        select => [
            'i.id AS id',
            'pn.path',
            'ist.status',
            'c.mtime AS mtime',
            'c.mtimetz AS mtimetz',
            'c.mtimetzhm AS mtimetzhm',
            "$now - c.mtime AS mtime_age",
            'p.default_hub_id',
        ],
        from       => 'ids',
        inner_join => 'issues i',
        on         => 'i.id = ids.id',
        inner_join => 'projects p',
        on         => 'p.id = i.project_id',
        inner_join => 'nodes pn',
        on         => 'pn.id = i.project_id',
        inner_join => 'issue_status ist',
        on         => 'ist.id = i.issue_status_id',
        inner_join => 'nodes n',
        on         => 'n.id = i.id',
        inner_join => 'changes c',
        on         => 'c.id = n.first_change_id',
        order_by   => 'pn.path',
    );

    my %seen;
    my $count = @refs;
    my $i     = 1;
    foreach my $ref (@refs) {
        my @ago = $self->mtime_ago($ref);

        push(
            @data,
            $self->header(
                '  Status',
                "$ref->{path}/$ref->{id}: $ref->{status} (" . $ago[0] . ')',
                $ago[1]
            ),
        );
    }

    push( @data,
        $self->header( '  Updated',    $self->mtime_ago($ref) ),
        $self->header( '  Updated-By', $ref->{updator} ),
    ) unless $ref->{mtime} == $ref->{ctime};

    $self->start_pager;
    print $self->render_table( 'l  l', [ 'Issue', $ref->{title} ], \@data, 1 );

    print "\n";
    $self->dispatch( 'App::bif::log::issue',
        { opts => { id => $opts->{id} } } );

    $self->ok( 'ShowIssue', \@data );
}

1;
__END__