view release on metacpan or  search on metacpan

lib/Ubic/Daemon/Status.pm  view on Meta::CPAN

package Ubic::Daemon::Status;
$Ubic::Daemon::Status::VERSION = '1.60';
use strict;
use warnings;

# ABSTRACT: daemon status structure


use Params::Validate;

sub new {
    my $class = shift;
    my $params = validate(@_, {
        pid => 1,
        guardian_pid => 1,
    });
    return bless $params => $class;
}

sub pid {
    my $self = shift;
    validate_pos(@_);
    return $self->{pid};
}

sub guardian_pid {
    my $self = shift;
    validate_pos(@_);
    return $self->{guardian_pid};
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Ubic::Daemon::Status - daemon status structure

=head1 VERSION

version 1.60

=head1 SYNOPSIS

    say $status->pid;
    say $status->guardian_pid;

=head1 METHODS

=over

=item B<< new($options) >>

Constructor. Should be called from L<Ubic::Daemon> only.

=item B<< pid() >>

Get daemon's PID.

=item B<< guardian_pid() >>

Get guardian's PID.

=back

=head1 SEE ALSO

L<Ubic::Daemon> - general process daemonizator

=head1 AUTHOR