NAME
    Config::Inetd - Interface inetd's configuration file

SYNOPSIS
     use Config::Inetd;

     $inetd = Config::Inetd->new;

     if ($inetd->is_enabled(telnet => 'tcp')) {
         $inetd->disable(telnet => 'tcp');
     }

     print $inetd->dump_enabled;
     print $inetd->dump_disabled;

     print $inetd->config->[6];

DESCRIPTION
    `Config::Inetd' provides an interface to inetd's configuration file
    (usually named inetd.conf); it basically simplifies checking and setting
    the enabled/disabled status of services and also allows for dumping them
    by a given status.

CONSTRUCTOR
  new
     $inetd = Config::Inetd->new('/path/to/inetd.conf');

    Omitting the path to inetd.conf will cause the default /etc/inetd.conf
    to be used.

METHODS
  is_enabled
    Checks whether a service is enlisted as enabled.

     $inetd->is_enabled($service => $protocol);

    Returns true if the service is enlisted as enabled, false if enlisted as
    disabled and undef if the service does not exist.

  enable
    Enables a service.

     $inetd->enable($service => $protocol);

    Returns true if the service has been enabled, false if no action has
    been taken.

    It is recommended to precedingly call `is_enabled()' with according
    arguments supplied to determine whether a service is disabled.

  disable
    Disables a service.

     $inetd->disable($service => $protocol);

    Returns true if the service has been disabled, false if no action has
    been taken.

    It is recommended to precedingly call `is_enabled()' with according
    arguments supplied to determine whether a service is enabled.

  dump_enabled
    Dumps the enabled services.

     @dump = $inetd->dump_enabled;

    Returns a flat list that consists of the enabled entries as seen in the
    configuration file.

  dump_disabled
    Dumps the disabled services.

     @dump = $inetd->dump_disabled;

    Returns a flat list that consists of the disabled entries as seen in the
    configuration file.

  config
    Access the tied configuration file.

     @config = @{$inetd->config};

    Returns an array reference.

INSTANCE DATA
    The inetd configuration file is tied as instance data with newlines
    preserved; it may be accessed via `$inetd->config'.

BUGS & CAVEATS
    It is strongly advised that the configuration file is backuped first if
    one is intending to work with the default (i.e., system-wide)
    configuration file and not a customized one.

    Accessing `@{$inetd->{CONF}}' is deprecated and superseded by
    `$inetd->config'.

SEE ALSO
    Tie::File, inetd.conf(5)

AUTHOR
    Steven Schubiger <schubiger@cpan.org>

LICENSE
    This program is free software; you may redistribute it and/or modify it
    under the same terms as Perl itself.

    See http://dev.perl.org/licenses/