view release on metacpan or  search on metacpan

lib/Win32/Mock/Win32.pm  view on Meta::CPAN

# 
# GetFolderPath()
# -------------
sub GetFolderPath {
    my ($folder, $create) = @_;
    eval "use File::HomeDir";

    my $path = '';
    my $home = eval { File::HomeDir->my_home } || (getpwuid($>))[7];

    # TODO CSIDL_DESKTOP
    # TODO CSIDL_PROGRAMS

    $folder == &CSIDL_PERSONAL
        and $path = eval { File::HomeDir->my_documents } || catdir($home, "Documents");

    # TODO CSIDL_FAVORITES
    # TODO CSIDL_STARTUP
    # TODO CSIDL_RECENT

lib/Win32/Mock/Win32.pm  view on Meta::CPAN

# -----------
sub LoadLibrary {
    DynaLoader::dl_load_file($_[0])
}


# 
# LoginName()
# ---------
sub LoginName {
    return "" . (getpwuid($<))[0]
}


# 
# LookupAccountName()
# -----------------
sub LookupAccountName {
    my ($system, $account, $domain, $sid, $sidtype) = @_;
    # XXX: not implement, don't know what this is
    return