view release on metacpan or  search on metacpan

lib/Log/Dispatch/UnixSyslog.pm  view on Meta::CPAN

  Carp::croak('provided facility value is valid but unknown?!')
    unless my $const = Unix::Syslog->can($const_name);

  my $self = {
    ident     => $arg{ident},
    facility  => scalar $const->(),
    logopt    => $arg{logopt} // 0,
  };

  bless $self => $class;

  # this is our duty as a well-behaved Log::Dispatch plugin
  $self->_basic_init(%arg);

  return $self;
}

sub _maybe_openlog {
  my ($self) = @_;