view release on metacpan or  search on metacpan

t/02-methods.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 9;
use File::Spec;
use Script::Daemonizer;

my $gid = (split " ", $( )[0];
my $user  = getpwuid($<);
my $euser = getpwuid($>);
my $group = getgrgid($gid);

# ------------------------------------------------------------------------------
# Call drop_privileges() with parameters passed to the function
# ------------------------------------------------------------------------------
eval qq(
    my \$daemon = new Script::Daemonizer();

    \$daemon->drop_privileges(
        euid => $>,