NAME

CTK::FilePid - File::Pid patched interface

VERSION

Version 1.01

REVISION

$Revision: 69 $

SYNOPSIS

  use CTK::FilePid;
  
  my $pidfile = new CTK::FilePid ({
    file => '/some/file.pid',
  });
  
  if ( my $num = $pidfile->running ) {
      die "Already running: $num\n";
  } else {
      $pidfile->write;

      # ...
      # blah-blah-blah
      # ...
      
      $pidfile->remove;
  }

  

DESCRIPTION

This software manages a pid file for you. It will create a pid file, query the process within to discover if it's still running, and remove the pid file.

See File::Pid for details

AUTHOR

Serz Minus (Lepenkov Sergey) http://serzik.ru <minus@mail333.com>

COPYRIGHT

Copyright (C) 1998-2012 D&D Corporation. All Rights Reserved

LICENSE

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

This program is distributed under the GNU LGPL v3 (GNU Lesser General Public License version 3).

See LICENSE file