File Coverage

blib/lib/App/bif/list/identities.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch	0	2	0.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	21	31	67.7

package App::bif::list::identities;
use strict;
use warnings;
use Bif::Mo;
use Term::ANSIColor 'color';

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

sub run {
    my $self  = shift;
    my $opts  = $self->opts;
    my $db    = $self->db;
    my $dark  = color('yellow');
    my $reset = color('reset');

    DBIx::ThinSQL->import(qw/ case qv /);

    my $data = $db->xarrayrefs(
        select => [
            qv( $dark . 'identity' . $reset )->as('type'),
            'i.id', 'e.name',
            "ecm.mvalue || ' (' || ecm.method || ')' AS contact",
            case (
                when => 'bif.identity_id = i.id',
                then => qv('*'),
                else => qv(''),
            )->as('self'),
        ],
        from       => 'identities i',
        inner_join => 'entities e',
        on         => 'e.id = i.id',
        inner_join => 'entities c',
        on         => 'c.id = e.contact_id',
        inner_join => 'entity_contact_methods ecm',
        on         => 'ecm.id = e.default_contact_method_id',
        left_join  => 'bifkv bif',
        on         => { 'bif.key' => 'self', 'bif.identity_id' => \'i.id' },
        order_by   => [qw/e.name contact ecm.mvalue/],
    );

    return $self->ok('ListIdentities') unless $data;

    $self->start_pager( scalar @$data );

    print $self->render_table( ' l r  l  l l ',
        [ 'Type', 'ID', 'Name', 'Contact (Method)', '' ], $data );

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

1;
__END__