File Coverage

blib/lib/App/JESP/Cmd/Command/status.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	2	0.0
condition			n/a
subroutine	5	9	55.5
pod	4	4	100.0
total	24	48	50.0

package App::JESP::Cmd::Command::status;
$App::JESP::Cmd::Command::status::VERSION = '0.014';
use base qw/App::JESP::Cmd::CommandJESP/;
use strict; use warnings;
use Log::Any qw/$log/;

use utf8;

=head1 NAME

App::JESP::Cmd::Command::status - Shows the status of patches

=cut

=head2 options

See superclass L<App::JESP::Cmd::CommandJESP>

=head2 abstract

=head2 description

=head2 execute

See L<App::Cmd>

=cut

sub options{
    my ($class, $app) = @_;
    return ();
}


sub abstract { "Show the status of the plan VS the DB" }
sub description { "Show the status of the patches in the plan versus the patches recorded in the DB" }
sub execute {
    my ($self, $opts, $args) = @_;

    binmode STDOUT , ':utf8';

    my $colorizer = $self->jesp()->colorizer();
    my $status = $self->jesp->status( $opts );
    foreach my $patch ( @{$status->{plan_patches} }){
        print "Patch '".$patch->id()."'\n";
        if( $patch->applied_datetime() ){
            print " ".$colorizer->colored('✔︎', "bold green")." - Applied on ".$patch->applied_datetime();
        }else{
            print " ".$colorizer->colored('âš ', "bold yellow").' - Not applied yet';
        }
        print "\n";
    }
    foreach my $orphan ( @{$status->{plan_orphans}} ){
        print "\n    ".$colorizer->colored('⚠︎', "bold red")." Orphaned: '".$orphan."'   Gone from plan?!?\n";
    }
}

1;