view release on metacpan or  search on metacpan

lib/HTTP/Balancer/Command/Status.pm  view on Meta::CPAN

package HTTP::Balancer::Command::Status;
use Modern::Perl;
use Moose;

with qw(HTTP::Balancer::Role::Command);

use Path::Tiny;

sub run {
    my ($self, ) = @_;

    my $pidfile = path($self->config->pidfile);

    if ($pidfile->exists) {
        my ($pid, ) = $pidfile->lines({chomp => 1});
        say "$0 is running. pid: $pid";
    } else {
        say "$0 is stop";
    }
}

1;
__END__

=head1 NAME

HTTP::Balancer::Command::Status - show status of the balancer

=head1 SYNOPSIS

    $ http-balancer status

=cut