File Coverage

blib/lib/Net/Amazon/MechanicalTurk/OSUtil.pm

Criterion	Covered	Total	%
statement	5	8	62.5
branch	1	2	50.0
condition			n/a
subroutine	1	1	100.0
pod	0	1	0.0
total	7	12	58.3

package Net::Amazon::MechanicalTurk::OSUtil;

our $VERSION = '1.00';

sub homeDirectory {
    my $homeDir;
    eval {
        # Looks up home directory for effective user id
        $homeDir = [getpwuid($>)]->[7];
    };
    if ($@) {
        # getpwuid doesn't seem to work on ActivePerl
        # Try using the Windows API to get the home directory.
        eval {
            require Win32;
            $homeDir = Win32::GetFolderPath(Win32::CSIDL_PROFILE());
        };
    }
    return $homeDir;
}

return 1;