File Coverage

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

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	6	0.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	21	38	55.2

package App::bif::show::table;
use strict;
use warnings;
use Bif::Mo;
use DBIx::ThinSQL qw/sq/;

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

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

    my $sql = $db->xval(
        select => 'sql',
        from   => 'sqlite_master',
        where  => { tbl_name => $opts->{name}, type => 'table' },
    );

    return $self->err( 'TableNotFound', 'table not found: %s', $opts->{name} )
      unless $sql;

    $self->start_pager;
    print $sql, "\n";

    return $self->ok('ShowTable') unless $opts->{full};

    my @rest = $db->xvals(
        select => [ qw/sql/, ],
        from   => 'sqlite_master',
        where  => {
            tbl_name        => $opts->{name},
            type            => [qw/index trigger/],
            'name not like' => 'sqlite_%',
        },
        order_by => [
            'name LIKE "%_bi_%" DESC',
            'name LIKE "%_ai_%" DESC',
            'name LIKE "%_bu_%" DESC',
            'name LIKE "%_au_%" DESC',
            'name LIKE "%_bd_%" DESC',
            'name LIKE "%_ad_%" DESC',
        ],
    );

    if (@rest) {
        my ( $yellow, $reset ) = $self->colours( 'yellow', 'reset' );
        my $joiner = "\n" . $yellow . ( '-' x 72 ) . $reset . "\n\n";
        print $joiner, join( "\n" . $joiner, @rest ), "\n";
    }
    return $self->ok('ShowFullTable');
}

1;
__END__