File Coverage

blib/lib/Anego/CLI/Status.pm

Criterion	Covered	Total	%
statement	18	26	69.2
branch	0	2	0.0
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	24	36	66.6

package Anego::CLI::Status;
use strict;
use warnings;
use utf8;

use Anego::Config;
use Anego::Logger;
use Anego::Task::GitLog;

sub run {
    my $config = Anego::Config->load;

    my $logs = Anego::Task::GitLog->fetch;
    errorf("No change log\n") if @{ $logs } == 0;

    printf <<'__EOF__', $config->rdbms, $config->database, $config->schema_class, $config->schema_path;

RDBMS:        %s
Database:     %s
Schema class: %s (%s)

Hash     Commit message
--------------------------------------------------
__EOF__

    for my $log (@{ $logs }) {
        printf "%7s  %s\n", $log->{hash}, $log->{message};
    }
}

1;