Result:
found more than 693 distributions - search limited to the first 2001 files matching your query
( run in 1.509 )
DBIx-Class-Journal
view release on metacpan or search on metacpan
t/lib/DBICTest.pm view on Meta::CPAN
[ 4, "Buy Merch!" ],
[ 5, "Kill Yourself!" ],
]);
$schema->populate('Tag', [
[ qw/tagid cd tag/ ],
[ 1, 1, "Blue" ],
[ 2, 2, "Blue" ],
[ 3, 3, "Blue" ],
[ 4, 5, "Blue" ],
[ 5, 2, "Cheesy" ],
DBIx-Class-Preview
view release on metacpan or search on metacpan
t/lib/DBICTest.pm view on Meta::CPAN
[ 5, 2, "We like girls and stuff", 2003 ],
[ 6, 3, "Come Be Depressed With Us", 1998 ],
]);
$schema->populate('Tag', [
[ qw/tagid cd tag/ ],
[ 1, 1, "Blue" ],
[ 2, 2, "Blue" ],
[ 3, 3, "Blue" ],
[ 4, 5, "Blue" ],
[ 5, 2, "Cheesy" ],
DBIx-Class-ResultSet-RecursiveUpdate
view release on metacpan or search on metacpan
t/lib/DBICTest.pm view on Meta::CPAN
[ 4, "Buy Merch!" ],
[ 5, "Kill Yourself!" ],
]);
$schema->populate('Tag', [
[ qw/tagid cd tag/ ],
[ 1, 1, "Blue" ],
[ 2, 2, "Blue" ],
[ 3, 3, "Blue" ],
[ 4, 5, "Blue" ],
[ 5, 2, "Cheesy" ],
DBIx-Class-ResultSet-WithMetaData
view release on metacpan or search on metacpan
t/lib/DBICTest.pm view on Meta::CPAN
[ 5, 2, "We like girls and stuff", 2003 ],
[ 6, 3, "Come Be Depressed With Us", 1998 ],
]);
$schema->populate('Tag', [
[ qw/tagid cd tag/ ],
[ 1, 1, "Blue" ],
[ 2, 2, "Blue" ],
[ 3, 3, "Blue" ],
[ 4, 5, "Blue" ],
[ 5, 2, "Cheesy" ],
DBIx-Class-Schema-Loader
view release on metacpan or search on metacpan
lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm view on Meta::CPAN
my ($self, $db) = @_;
my $owners = $self->dbh->selectcol_arrayref($self->_is_2k ? <<"EOF2K" : <<"EOF");
SELECT name
FROM [$db].dbo.sysusers
WHERE uid <> gid
EOF2K
SELECT name
FROM [$db].sys.schemas
EOF
DBIx-Class-Schema-Slave
view release on metacpan or search on metacpan
t/lib/sqlite.sql view on Meta::CPAN
--
-- Table: tags
--
CREATE TABLE tags (
tagid INTEGER PRIMARY KEY NOT NULL,
cd integer NOT NULL,
tag varchar(100) NOT NULL
);
--
DBIx-Class-Storage-DBI-mysql-Retryable
view release on metacpan or search on metacpan
t/lib/CDTest.pm view on Meta::CPAN
[ 25, 17, "Yellow", 2014, 24 ],
[ 30, 17, "Cyan", 2014, 25 ],
]);
$schema->populate('Tag', [
[ qw/tagid cd tag/ ],
[ 1, 1, "Blue" ],
[ 2, 2, "Blue" ],
[ 3, 3, "Blue" ],
[ 4, 5, "Blue" ],
[ 5, 2, "Cheesy" ],
DBIx-DBH
view release on metacpan or search on metacpan
ANNOUNCE-FACTOR.pod view on Meta::CPAN
inheriting and over-writing values as necessary.
It is difficult to create such an inheritance hiearchy
describing each database when the DSN is specified as a string.
=item 2 Config::DBI has rigid expectations of the config file
Software organizations should be entitled to develop configuration
files in any manner they desire. Config::DBI expects the file to have
a certain structure which may not accord with how the organization
wants to describe their database setup
DBIx-DR
view release on metacpan or search on metacpan
lib/DBIx/DR.pm view on Meta::CPAN
<% my $foo_bar = $foo + $bar %>
..
% use POSIX;
% my $gid = POSIX::getgid;
There are two functions available inside perl:
DBIx-FileStore
view release on metacpan or search on metacpan
lib/DBIx/FileStore/UtilityFunctions.pm view on Meta::CPAN
# or
# my $homedir = get_user_homedir( "username" );
############################################
sub get_user_homedir {
my $user = shift || $ENV{USER};
my ( $name, $passwd, $uid, $gid, $quota, $comment, $gcos, $homedir, $shell, $expire ) =
getpwnam( $user ); # get the userid and the homedir
return $homedir;
}
DBIx-Librarian
view release on metacpan or search on metacpan
t/00suite.t view on Meta::CPAN
# SELECT check to verify that one row was inserted
my @results;
eval { @results = $dblbn->execute("t_insert", $data); };
ok($data->{bugid} == 5, "insert, no bind variables");
ok($results[0] == 2
&& $results[1]->[0] == 1
&& $results[1]->[1] == 1, "rowcounts");
t/00suite.t view on Meta::CPAN
$data->{testnode}->{product_name} = "Perl";
#$data->{product} = [ "foo" ];
eval { $dblbn->execute("t_insert_bind", $data); };
ok($data->{bugid} == 7, "insert, with bind variables");
######################################################################
# multi-column SELECT
eval { $dblbn->execute("t_select_row"); };
t/00suite.t view on Meta::CPAN
$data->{groupset} = 42;
eval { $dblbn->execute("t_select_row", $data); };
ok($data->{bugid} == 5, "single-row select");
eval { $dblbn->execute("t_select_row2", $data); };
ok(defined $data->{foo}, "single-row select with structure");
ok($data->{foo}->{bugid} == 5, "single-row select with structure");
######################################################################
# multi-row SELECT
eval { $dblbn->execute("t_select_all", $data); };
DBIx-Log4perl
view release on metacpan or search on metacpan
sub check_log
{
my ($s, $file) = @_;
$$s = "";
return 0 if (! -r $file);
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
return 0 if ($size <= 0);
open IN, "<$file";
while (<IN>) {$$s .= $_};
close IN;
unlink $file;
DBIx-LogAny
view release on metacpan or search on metacpan
{
my ($s, $file, $tsize) = @_;
$$s = "";
$tsize = 0 if !$tsize;
return 0 if (! -r $file);
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
return 0 if ($size <= 0);
return 0 if ($size <= $tsize);
open IN, "<$file";
while (<IN>) {$$s .= $_};
close IN;
DBIx-OnlineDDL
view release on metacpan or search on metacpan
t/lib/CDTest.pm view on Meta::CPAN
[ 25, 17, "Yellow", 2014, 24 ],
[ 30, 17, "Cyan", 2014, 25 ],
]);
$schema->populate('Tag', [
[ qw/tagid cd tag/ ],
[ 1, 1, "Blue" ],
[ 2, 2, "Blue" ],
[ 3, 3, "Blue" ],
[ 4, 5, "Blue" ],
[ 5, 2, "Cheesy" ],
DBIx-Simple-Class
view release on metacpan or search on metacpan
examples/.htaccess view on Meta::CPAN
# Make sure that directory listings are disabled.
# Execution of CGI scripts using mod_cgi is permitted.
Options -Indexes +ExecCGI
# Uncomment "<IfModule> !mod_fastcgi.c/!mod_fcgid </IfModule>" to prefer fastcgi
# Do not forget that your scripts must be suitable to run under FastCGI
#<IfModule !mod_fcgid.c>
#set explicitly filenames as cgi scripts
<Files ~ "\.(cgi)$">
SetHandler cgi-script
</Files>
#</IfModule>
DBIx-TextIndex
view release on metacpan or search on metacpan
testdata/encantadas.txt view on Meta::CPAN
hither side, but soon loses sight of the ship among the sunken jungles at
the mountain's base. She struggles on through the withered branches, which
seek at every step to bar her path, till she comes to the isolated rock,
still some way from the water. This she climbs, to reassure herself. The
ship is still in plainest sight. But now, worn out with overtension,
Hunilla all but faints; she fears to step down from her giddy perch; she is
fain to pause, there where she is, and as a last resort catches the turban
from her head, unfurls and waves it over the jungles towards us.
During the telling of her story the mariners formed a voiceless circle
round Hunilla and the captain, and when at length the word was given to man
testdata/encantadas.txt view on Meta::CPAN
withheld themselves, and again ran howling along the beach. Had they been
human beings, hardly would they have more vividly inspired the sense of
desolation. The oars were plied as confederate feathers of two wings. No
one spoke. I looked back upon the beach, and then upon Hunilla, but her
face was set in a stern dusky calm. The dogs crouching in her lap vainly
licked her rigid hands. She never looked behind her, but sat motionless
till we turned a promontory of the coast and lost all sights and sounds
astern. She seemed as one who, having experienced the sharpest of mortal
pangs, was henceforth content to have all lesser heartstrings riven, one by
one. To Hunilla, pain seemed so necessary that pain in other beings, though
by love and sympathy made her own, was unrepiningly to be borne. A heart of
DBM-Deep
view release on metacpan or search on metacpan
lib/DBM/Deep/Storage/File.pm view on Meta::CPAN
my ($temp_filename) = @_;
my @stats = stat( $self->{fh} );
my $perms = $stats[2] & 07777;
my $uid = $stats[4];
my $gid = $stats[5];
chown( $uid, $gid, $temp_filename );
chmod( $perms, $temp_filename );
}
sub flush {
my $self = shift;
DBZ_File
view release on metacpan or search on metacpan
DBZ_File.pm view on Meta::CPAN
print;
}
# Write a new entry at the EOF
seek(HFP, 0, 2);
$msgid = '<54321@clari.net>';
$hist{$msgid} = tell(HFP);
print HFP "$msgid\t", time, "~-~0\n";
close(HFP);
untie(%hist);
=head1 AUTHOR
DB_File
view release on metacpan or search on metacpan
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
get_debug_opts|5.008001||Viu
get_deprecated_property_msg|5.031011||cVniu
getegid|5.005000||Viu
getenv|5.005000||Viu
getenv_len|5.006000||Viu
GETENV_LOCK|5.033005||Viu
GETENV_PRESERVES_OTHER_THREAD|5.033005|5.033005|Vn
GETENV_UNLOCK|5.033005||Viu
geteuid|5.005000||Viu
getgid|5.005000||Viu
getgrent|5.009000||Viu
GETGRENT_R_HAS_BUFFER|5.008000||Viu
GETGRENT_R_HAS_FPTR|5.008000||Viu
GETGRENT_R_HAS_PTR|5.008000||Viu
GETGRENT_R_PROTO|5.008000|5.008000|Vn
getgrgid|5.009000||Viu
GETGRGID_R_HAS_BUFFER|5.008000||Viu
GETGRGID_R_HAS_PTR|5.008000||Viu
GETGRGID_R_PROTO|5.008000|5.008000|Vn
getgrnam|5.009000||Viu
GETGRNAM_R_HAS_BUFFER|5.008000||Viu
KEY_format|5.003007||Viu
KEY_formline|5.003007||Viu
KEY_ge|5.003007||Viu
KEY_getc|5.003007||Viu
KEY_getgrent|5.003007||Viu
KEY_getgrgid|5.003007||Viu
KEY_getgrnam|5.003007||Viu
KEY_gethostbyaddr|5.003007||Viu
KEY_gethostbyname|5.003007||Viu
KEY_gethostent|5.003007||Viu
KEY_getlogin|5.003007||Viu
Perl_pp_ftfile|5.013009||Viu
Perl_pp_ftmtime|5.013009||Viu
Perl_pp_ftpipe|5.013009||Viu
Perl_pp_ftrexec|5.013009||Viu
Perl_pp_ftrwrite|5.013009||Viu
Perl_pp_ftsgid|5.013009||Viu
Perl_pp_ftsize|5.013009||Viu
Perl_pp_ftsock|5.013009||Viu
Perl_pp_ftsuid|5.013009||Viu
Perl_pp_ftsvtx|5.013009||Viu
Perl_pp_ftzero|5.013009||Viu
Perl_pp_getpeername|5.013009||Viu
Perl_pp_getsockname|5.013009||Viu
Perl_pp_ggrgid|5.013009||Viu
Perl_pp_ggrnam|5.013009||Viu
Perl_pp_ghbyaddr|5.013009||Viu
Perl_pp_ghbyname|5.013009||Viu
Perl_pp_gnbyaddr|5.013009||Viu
Perl_pp_gnbyname|5.013009||Viu
PerlProc_execv|5.005000||Viu
PerlProc_execvp|5.005000||Viu
PerlProc__exit|5.005000||Viu
PerlProc_exit|5.005000||Viu
PerlProc_fork|5.006000||Viu
PerlProc_getegid|5.005000||Viu
PerlProc_geteuid|5.005000||Viu
PerlProc_getgid|5.005000||Viu
PerlProc_getlogin|5.005000||Viu
PerlProc_GetOSError|5.006000||Viu
PerlProc_getpid|5.006000||Viu
PerlProc_gettimeofday|5.008000||Viu
PerlProc_getuid|5.005000||Viu
PerlProc_pclose|5.005000||Viu
PerlProc_pipe|5.005000||Viu
PerlProc_pipe_cloexec|5.027008||Viu
PerlProc_popen|5.005000||Viu
PerlProc_popen_list|5.007001||Viu
PerlProc_setgid|5.005000||Viu
PerlProc_setjmp|5.005000||Viu
PerlProc_setuid|5.005000||Viu
PerlProc_signal|5.005000||Viu
PerlProc_sleep|5.005000||Viu
PerlProc_spawnvp|5.008000||Viu
PL_defgv|5.004005|5.003007|p
PL_def_layerlist|5.007003||Viu
PL_defoutgv|5.005000||Viu
PL_defstash|5.005000||Viu
PL_delaymagic|5.005000||Viu
PL_delaymagic_egid|5.015008||Viu
PL_delaymagic_euid|5.015008||Viu
PL_delaymagic_gid|5.015008||Viu
PL_delaymagic_uid|5.015008||Viu
PL_destroyhook|5.010000||Viu
PL_diehook|5.005000|5.003007|poVnu
PL_Dir|5.006000||Viu
PL_dirty|5.005000|5.003007|poVnu
setfd_cloexec|5.027008||Vniu
setfd_cloexec_for_nonsysfd|5.027008||Viu
setfd_cloexec_or_inhexec_by_sysfdness|5.027008||Viu
setfd_inhexec|5.027008||Vniu
setfd_inhexec_for_sysfd|5.027008||Viu
setgid|5.005000||Viu
setgrent|5.009000||Viu
SETGRENT_R_HAS_FPTR|5.008000||Viu
SETGRENT_R_PROTO|5.008000|5.008000|Vn
sethostent|5.005000||Viu
SETHOSTENT_R_PROTO|5.008000|5.008000|Vn
SETPROTOENT_R_PROTO|5.008000|5.008000|Vn
setpwent|5.009000||Viu
SETPWENT_R_HAS_FPTR|5.008000||Viu
SETPWENT_R_PROTO|5.008000|5.008000|Vn
set_regex_pv|5.029004||Viu
setregid|5.003007||Viu
setreuid|5.003007||Viu
SETs|5.003007||Viu
setservent|5.005000||Viu
SETSERVENT_R_PROTO|5.008000|5.008000|Vn
setsockopt|5.005000||Viu
SvSCREAM|5.003007||Viu
SvSCREAM_off|5.003007||Viu
SvSCREAM_on|5.003007||Viu
sv_setbool|5.035004|5.035004|
sv_setbool_mg|5.035004|5.035004|
sv_setgid|5.019001||Viu
sv_sethek|5.015004||cViu
sv_setiv|5.003007|5.003007|
sv_setiv_mg|5.004005|5.003007|p
SvSETMAGIC|5.003007|5.003007|
SvSetMagicSV|5.004000|5.004000|
DCE-Perl
view release on metacpan or search on metacpan
Login/Login.xs view on Meta::CPAN
hv_store(hv, "passwd", 6, newSVpv(pwd->pw_passwd,0),0);
hv_store(hv, "gecos", 5, newSVpv(pwd->pw_gecos,0),0);
hv_store(hv, "dir", 3, newSVpv(pwd->pw_dir,0),0);
hv_store(hv, "shell", 5, newSVpv(pwd->pw_shell,0),0);
hv_store(hv, "uid", 3, newSViv(pwd->pw_uid),0);
hv_store(hv, "gid", 3, newSViv(pwd->pw_gid),0);
/*
#ifdef something...
hv_store(hv, "class", 5, newSVpv(pwd->pw_class,0),0);
hv_store(hv, "change", 6, newSViv(pwd->pw_change),0);
hv_store(hv, "expire", 6, newSViv(pwd->pw_expire),0);
DDG
view release on metacpan or search on metacpan
lib/DDG/Manual/Translation.pod view on Meta::CPAN
translation. But, to have a good normalization, we store this in our database
under the same fieldnames as expected by I<gettext>, so I display it to you now
like a "partly" I<po> file without the translation, this makes it easier to
understand it:
msgid "Monthly newsletter:"
Those tokens we store in the database of our community platform at
L<https://dukgo.com/translate/do/index>. For the token itself, there exists no page,
but here is the page for this specific token in german:
L<https://dukgo.com/translate/tokenlanguage/26811>.
lib/DDG/Manual/Translation.pod view on Meta::CPAN
<: lp('size','Medium') :>
and in the I<gettext> storage:
msgctxt "size"
msgid "Medium"
This means that we want the token "Medium" in the context of "size". The
advantage here is now, if there would be for example:
<: lp('weight','Medium') :>
lib/DDG/Manual/Translation.pod view on Meta::CPAN
<: ln("You have %d message.","You have %d messages.",$messages) :>
This is used to define a token which is based on the number for the specific
token. In the definition in the I<gettext> storage it ends like this:
msgid "You have %d message."
msgid_plural "You have %d messages."
Just to directly show that this can, of course, be combined with a B<context>:
<: lnp("email","You have %d message.","You have %d messages.",$messages) :>
which ends up in this form in I<gettext>:
msgctxt "email"
msgid "You have %d message."
msgid_plural "You have %d messages."
First, I<gettext> will check with the current plural definitions (see above),
what specific plural case is required for this translation. As mentioned on the
section L</Grammatical numbers>, some languages might have more than 2 forms
for this. But whatever it is, I<gettext> handles this with the translation
lib/DDG/Manual/Translation.pod view on Meta::CPAN
);
Which is written like this in gettext:
msgctxt "webelieve"
msgid "%s believe in %s AND %s."
msgctxt "webelieve"
msgid "We"
msgctxt "webelieve"
msgid "better search"
msgctxt "webelieve"
msgid "no tracking"
You can now imagine that without some more comments, it is very hard to get it
right to translate those texts. Best is if the user additionally has an URL to
see the tokens in action. Especially in the flow of all untranslated tokens,
which is what most users do to help us translating.
lib/DDG/Manual/Translation.pod view on Meta::CPAN
comments to every token that describes the complete text context where the token
is used.
=head3 Token translation functions
l( msgid, ... )
ln( msgid, msgid_plural, count, ... )
lp( msgctxt, msgid, ... )
lnp( msgctxt, msgid, msgid_plural, count, ... )
=head3 Token scraping
I<This section is only relevant for people who put tokens in the code or the
HTML, and can be skipped. Just go directly to L</Token translation storage>.>
lib/DDG/Manual/Translation.pod view on Meta::CPAN
As described in the previous sections, the database of the community platform
stores all the translations, which then gets generated into the I<po> files used
by I<gettext> in our translation system. I show you here the German
translations of the examples from above, from the I<po> that gets generated:
msgid "Monthly newsletter:"
msgstr "Monatlicher Newsletter:"
msgctxt "size"
msgid "Medium"
msgstr "Mittelgroß"
msgid "Hello %s!"
msgstr "Hallo %s!"
msgctxt "email"
msgid "You have %d message."
msgid_plural "You have %d messages."
msgstr[0] "Du hast %d Nachricht."
msgstr[1] "Du hast %d Nachrichten."
msgid "%2$s has %1$d message."
msgid_plural "%2$s has %1$d messages."
msgstr[0] "%2$s hat %1$d Nachricht."
msgstr[1] "%2$s hat %1$d Nachrichten."
msgid "From %s to %s"
msgstr "Von %s nach %s"
The pirate translation of the B<"Hello %s!"> example would look like this:
msgid "Hello %s!"
msgstr "%s, ahoi! hrrr"
Our example to change the order of the placeholders would look like this:
msgid "From %s to %s"
msgstr "To %2$s from %1$s"
In the case of a language which has more than 2 plural forms (See
L</Grammatical numbers>), the number in the brackets will just get stacked up:
msgid "You have %d message."
msgid_plural "You have %d messages."
msgstr[0] "Mas %d spravu."
msgstr[1] "Mas %d spravy."
msgstr[2] "Mas %d sprav."
Interesting sidenote, the highest amount of plural forms is 6. You can find
lib/DDG/Manual/Translation.pod view on Meta::CPAN
In the case of the placeholder with an amount and a dynamic text, a translation
which uses the correct order, can of course then use the normal I<sprintf>
placeholders definition:
msgid "%2$s has %1$d message."
msgid_plural "%2$s has %1$d messages."
msgstr[0] "%d Nachricht hat %s."
msgstr[1] "%d Nachrichten hat %s."
=head3 Voting translations
DIME-Tools
view release on metacpan or search on metacpan
lib/DIME/Payload.pm view on Meta::CPAN
if(!defined($params{Dynamic}))
{
# Load the attachment from a file
my $buf;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = $file->stat();
$file->read($buf,$size);
$file->close();
$data = \$buf;
}
else
DJabberd-RosterStorage-SQLite
view release on metacpan or search on metacpan
lib/DJabberd/RosterStorage/SQLite.pm view on Meta::CPAN
}
# add to groups
foreach my $gname ($ritem->groups) {
next if $in_group{$gname}; # already in this group, skip
my $gid = $self->_groupid_alloc($userid, $gname);
$dbh->do("INSERT OR IGNORE INTO groupitem (groupid, contactid) VALUES (?,?)",
undef, $gid, $contactid);
}
$dbh->commit
or return $fail->();
lib/DJabberd/RosterStorage/SQLite.pm view on Meta::CPAN
FROM rostergroup rg, groupitem gi
WHERE rg.userid=? AND gi.groupid=rg.groupid AND gi.contactid=?
};
my $sth = $self->{dbh}->prepare($sql);
$sth->execute($userid, $contactid);
while (my ($gid, $name) = $sth->fetchrow_array) {
push @ret, [$gid, $name];
}
return @ret;
}
sub delete_roster_item {
DMS-Parser-XS
view release on metacpan or search on metacpan
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
get_debug_opts|5.008001||Viu
get_deprecated_property_msg|5.031011||cVniu
getegid|5.005000||Viu
getenv|5.005000||Viu
getenv_len|5.006000||Viu
GETENV_LOCK|5.033005||Viu
GETENV_PRESERVES_OTHER_THREAD|5.033005|5.033005|Vn
GETENV_UNLOCK|5.033005||Viu
geteuid|5.005000||Viu
getgid|5.005000||Viu
getgrent|5.009000||Viu
GETGRENT_R_HAS_BUFFER|5.008000||Viu
GETGRENT_R_HAS_FPTR|5.008000||Viu
GETGRENT_R_HAS_PTR|5.008000||Viu
GETGRENT_R_PROTO|5.008000|5.008000|Vn
getgrgid|5.009000||Viu
GETGRGID_R_HAS_BUFFER|5.008000||Viu
GETGRGID_R_HAS_PTR|5.008000||Viu
GETGRGID_R_PROTO|5.008000|5.008000|Vn
getgrnam|5.009000||Viu
GETGRNAM_R_HAS_BUFFER|5.008000||Viu
KEY_format|5.003007||Viu
KEY_formline|5.003007||Viu
KEY_ge|5.003007||Viu
KEY_getc|5.003007||Viu
KEY_getgrent|5.003007||Viu
KEY_getgrgid|5.003007||Viu
KEY_getgrnam|5.003007||Viu
KEY_gethostbyaddr|5.003007||Viu
KEY_gethostbyname|5.003007||Viu
KEY_gethostent|5.003007||Viu
KEY_getlogin|5.003007||Viu
Perl_pp_ftfile|5.013009||Viu
Perl_pp_ftmtime|5.013009||Viu
Perl_pp_ftpipe|5.013009||Viu
Perl_pp_ftrexec|5.013009||Viu
Perl_pp_ftrwrite|5.013009||Viu
Perl_pp_ftsgid|5.013009||Viu
Perl_pp_ftsize|5.013009||Viu
Perl_pp_ftsock|5.013009||Viu
Perl_pp_ftsuid|5.013009||Viu
Perl_pp_ftsvtx|5.013009||Viu
Perl_pp_ftzero|5.013009||Viu
Perl_pp_getpeername|5.013009||Viu
Perl_pp_getsockname|5.013009||Viu
Perl_pp_ggrgid|5.013009||Viu
Perl_pp_ggrnam|5.013009||Viu
Perl_pp_ghbyaddr|5.013009||Viu
Perl_pp_ghbyname|5.013009||Viu
Perl_pp_gnbyaddr|5.013009||Viu
Perl_pp_gnbyname|5.013009||Viu
PerlProc_execv|5.005000||Viu
PerlProc_execvp|5.005000||Viu
PerlProc__exit|5.005000||Viu
PerlProc_exit|5.005000||Viu
PerlProc_fork|5.006000||Viu
PerlProc_getegid|5.005000||Viu
PerlProc_geteuid|5.005000||Viu
PerlProc_getgid|5.005000||Viu
PerlProc_getlogin|5.005000||Viu
PerlProc_GetOSError|5.006000||Viu
PerlProc_getpid|5.006000||Viu
PerlProc_gettimeofday|5.008000||Viu
PerlProc_getuid|5.005000||Viu
PerlProc_pclose|5.005000||Viu
PerlProc_pipe|5.005000||Viu
PerlProc_pipe_cloexec|5.027008||Viu
PerlProc_popen|5.005000||Viu
PerlProc_popen_list|5.007001||Viu
PerlProc_setgid|5.005000||Viu
PerlProc_setjmp|5.005000||Viu
PerlProc_setuid|5.005000||Viu
PerlProc_signal|5.005000||Viu
PerlProc_sleep|5.005000||Viu
PerlProc_spawnvp|5.008000||Viu
PL_defgv|5.004005|5.003007|p
PL_def_layerlist|5.007003||Viu
PL_defoutgv|5.005000||Viu
PL_defstash|5.005000||Viu
PL_delaymagic|5.005000||Viu
PL_delaymagic_egid|5.015008||Viu
PL_delaymagic_euid|5.015008||Viu
PL_delaymagic_gid|5.015008||Viu
PL_delaymagic_uid|5.015008||Viu
PL_destroyhook|5.010000||Viu
PL_diehook|5.005000|5.003007|poVnu
PL_Dir|5.006000||Viu
PL_dirty|5.005000|5.003007|poVnu
setfd_cloexec|5.027008||Vniu
setfd_cloexec_for_nonsysfd|5.027008||Viu
setfd_cloexec_or_inhexec_by_sysfdness|5.027008||Viu
setfd_inhexec|5.027008||Vniu
setfd_inhexec_for_sysfd|5.027008||Viu
setgid|5.005000||Viu
setgrent|5.009000||Viu
SETGRENT_R_HAS_FPTR|5.008000||Viu
SETGRENT_R_PROTO|5.008000|5.008000|Vn
sethostent|5.005000||Viu
SETHOSTENT_R_PROTO|5.008000|5.008000|Vn
SETPROTOENT_R_PROTO|5.008000|5.008000|Vn
setpwent|5.009000||Viu
SETPWENT_R_HAS_FPTR|5.008000||Viu
SETPWENT_R_PROTO|5.008000|5.008000|Vn
set_regex_pv|5.029004||Viu
setregid|5.003007||Viu
setreuid|5.003007||Viu
SETs|5.003007||Viu
setservent|5.005000||Viu
SETSERVENT_R_PROTO|5.008000|5.008000|Vn
setsockopt|5.005000||Viu
SvSCREAM|5.003007||Viu
SvSCREAM_off|5.003007||Viu
SvSCREAM_on|5.003007||Viu
sv_setbool|5.035004|5.035004|
sv_setbool_mg|5.035004|5.035004|
sv_setgid|5.019001||Viu
sv_sethek|5.015004||cViu
sv_setiv|5.003007|5.003007|
sv_setiv_mg|5.004005|5.003007|p
SvSETMAGIC|5.003007|5.003007|
SvSetMagicSV|5.004000|5.004000|
DMS-XS-Parser
view release on metacpan or search on metacpan
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
get_debug_opts|5.008001||Viu
get_deprecated_property_msg|5.031011||cVniu
getegid|5.005000||Viu
getenv|5.005000||Viu
getenv_len|5.006000||Viu
GETENV_LOCK|5.033005||Viu
GETENV_PRESERVES_OTHER_THREAD|5.033005|5.033005|Vn
GETENV_UNLOCK|5.033005||Viu
geteuid|5.005000||Viu
getgid|5.005000||Viu
getgrent|5.009000||Viu
GETGRENT_R_HAS_BUFFER|5.008000||Viu
GETGRENT_R_HAS_FPTR|5.008000||Viu
GETGRENT_R_HAS_PTR|5.008000||Viu
GETGRENT_R_PROTO|5.008000|5.008000|Vn
getgrgid|5.009000||Viu
GETGRGID_R_HAS_BUFFER|5.008000||Viu
GETGRGID_R_HAS_PTR|5.008000||Viu
GETGRGID_R_PROTO|5.008000|5.008000|Vn
getgrnam|5.009000||Viu
GETGRNAM_R_HAS_BUFFER|5.008000||Viu
KEY_format|5.003007||Viu
KEY_formline|5.003007||Viu
KEY_ge|5.003007||Viu
KEY_getc|5.003007||Viu
KEY_getgrent|5.003007||Viu
KEY_getgrgid|5.003007||Viu
KEY_getgrnam|5.003007||Viu
KEY_gethostbyaddr|5.003007||Viu
KEY_gethostbyname|5.003007||Viu
KEY_gethostent|5.003007||Viu
KEY_getlogin|5.003007||Viu
Perl_pp_ftfile|5.013009||Viu
Perl_pp_ftmtime|5.013009||Viu
Perl_pp_ftpipe|5.013009||Viu
Perl_pp_ftrexec|5.013009||Viu
Perl_pp_ftrwrite|5.013009||Viu
Perl_pp_ftsgid|5.013009||Viu
Perl_pp_ftsize|5.013009||Viu
Perl_pp_ftsock|5.013009||Viu
Perl_pp_ftsuid|5.013009||Viu
Perl_pp_ftsvtx|5.013009||Viu
Perl_pp_ftzero|5.013009||Viu
Perl_pp_getpeername|5.013009||Viu
Perl_pp_getsockname|5.013009||Viu
Perl_pp_ggrgid|5.013009||Viu
Perl_pp_ggrnam|5.013009||Viu
Perl_pp_ghbyaddr|5.013009||Viu
Perl_pp_ghbyname|5.013009||Viu
Perl_pp_gnbyaddr|5.013009||Viu
Perl_pp_gnbyname|5.013009||Viu
PerlProc_execv|5.005000||Viu
PerlProc_execvp|5.005000||Viu
PerlProc__exit|5.005000||Viu
PerlProc_exit|5.005000||Viu
PerlProc_fork|5.006000||Viu
PerlProc_getegid|5.005000||Viu
PerlProc_geteuid|5.005000||Viu
PerlProc_getgid|5.005000||Viu
PerlProc_getlogin|5.005000||Viu
PerlProc_GetOSError|5.006000||Viu
PerlProc_getpid|5.006000||Viu
PerlProc_gettimeofday|5.008000||Viu
PerlProc_getuid|5.005000||Viu
PerlProc_pclose|5.005000||Viu
PerlProc_pipe|5.005000||Viu
PerlProc_pipe_cloexec|5.027008||Viu
PerlProc_popen|5.005000||Viu
PerlProc_popen_list|5.007001||Viu
PerlProc_setgid|5.005000||Viu
PerlProc_setjmp|5.005000||Viu
PerlProc_setuid|5.005000||Viu
PerlProc_signal|5.005000||Viu
PerlProc_sleep|5.005000||Viu
PerlProc_spawnvp|5.008000||Viu
PL_defgv|5.004005|5.003007|p
PL_def_layerlist|5.007003||Viu
PL_defoutgv|5.005000||Viu
PL_defstash|5.005000||Viu
PL_delaymagic|5.005000||Viu
PL_delaymagic_egid|5.015008||Viu
PL_delaymagic_euid|5.015008||Viu
PL_delaymagic_gid|5.015008||Viu
PL_delaymagic_uid|5.015008||Viu
PL_destroyhook|5.010000||Viu
PL_diehook|5.005000|5.003007|poVnu
PL_Dir|5.006000||Viu
PL_dirty|5.005000|5.003007|poVnu
setfd_cloexec|5.027008||Vniu
setfd_cloexec_for_nonsysfd|5.027008||Viu
setfd_cloexec_or_inhexec_by_sysfdness|5.027008||Viu
setfd_inhexec|5.027008||Vniu
setfd_inhexec_for_sysfd|5.027008||Viu
setgid|5.005000||Viu
setgrent|5.009000||Viu
SETGRENT_R_HAS_FPTR|5.008000||Viu
SETGRENT_R_PROTO|5.008000|5.008000|Vn
sethostent|5.005000||Viu
SETHOSTENT_R_PROTO|5.008000|5.008000|Vn
SETPROTOENT_R_PROTO|5.008000|5.008000|Vn
setpwent|5.009000||Viu
SETPWENT_R_HAS_FPTR|5.008000||Viu
SETPWENT_R_PROTO|5.008000|5.008000|Vn
set_regex_pv|5.029004||Viu
setregid|5.003007||Viu
setreuid|5.003007||Viu
SETs|5.003007||Viu
setservent|5.005000||Viu
SETSERVENT_R_PROTO|5.008000|5.008000|Vn
setsockopt|5.005000||Viu
SvSCREAM|5.003007||Viu
SvSCREAM_off|5.003007||Viu
SvSCREAM_on|5.003007||Viu
sv_setbool|5.035004|5.035004|
sv_setbool_mg|5.035004|5.035004|
sv_setgid|5.019001||Viu
sv_sethek|5.015004||cViu
sv_setiv|5.003007|5.003007|
sv_setiv_mg|5.004005|5.003007|p
SvSETMAGIC|5.003007|5.003007|
SvSetMagicSV|5.004000|5.004000|
DNS-Unbound
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
get_debug_opts|5.008001||Viu
get_deprecated_property_msg|5.031011||cVniu
getegid|5.005000||Viu
getenv|5.005000||Viu
getenv_len|5.006000||Viu
GETENV_LOCK|5.033005||Viu
GETENV_PRESERVES_OTHER_THREAD|5.033005|5.033005|Vn
GETENV_UNLOCK|5.033005||Viu
geteuid|5.005000||Viu
getgid|5.005000||Viu
getgrent|5.009000||Viu
GETGRENT_R_HAS_BUFFER|5.008000||Viu
GETGRENT_R_HAS_FPTR|5.008000||Viu
GETGRENT_R_HAS_PTR|5.008000||Viu
GETGRENT_R_PROTO|5.008000|5.008000|Vn
getgrgid|5.009000||Viu
GETGRGID_R_HAS_BUFFER|5.008000||Viu
GETGRGID_R_HAS_PTR|5.008000||Viu
GETGRGID_R_PROTO|5.008000|5.008000|Vn
getgrnam|5.009000||Viu
GETGRNAM_R_HAS_BUFFER|5.008000||Viu
easyxs/ppport.h view on Meta::CPAN
KEY_format|5.003007||Viu
KEY_formline|5.003007||Viu
KEY_ge|5.003007||Viu
KEY_getc|5.003007||Viu
KEY_getgrent|5.003007||Viu
KEY_getgrgid|5.003007||Viu
KEY_getgrnam|5.003007||Viu
KEY_gethostbyaddr|5.003007||Viu
KEY_gethostbyname|5.003007||Viu
KEY_gethostent|5.003007||Viu
KEY_getlogin|5.003007||Viu
easyxs/ppport.h view on Meta::CPAN
Perl_pp_ftfile|5.013009||Viu
Perl_pp_ftmtime|5.013009||Viu
Perl_pp_ftpipe|5.013009||Viu
Perl_pp_ftrexec|5.013009||Viu
Perl_pp_ftrwrite|5.013009||Viu
Perl_pp_ftsgid|5.013009||Viu
Perl_pp_ftsize|5.013009||Viu
Perl_pp_ftsock|5.013009||Viu
Perl_pp_ftsuid|5.013009||Viu
Perl_pp_ftsvtx|5.013009||Viu
Perl_pp_ftzero|5.013009||Viu
Perl_pp_getpeername|5.013009||Viu
Perl_pp_getsockname|5.013009||Viu
Perl_pp_ggrgid|5.013009||Viu
Perl_pp_ggrnam|5.013009||Viu
Perl_pp_ghbyaddr|5.013009||Viu
Perl_pp_ghbyname|5.013009||Viu
Perl_pp_gnbyaddr|5.013009||Viu
Perl_pp_gnbyname|5.013009||Viu
easyxs/ppport.h view on Meta::CPAN
PerlProc_execv|5.005000||Viu
PerlProc_execvp|5.005000||Viu
PerlProc__exit|5.005000||Viu
PerlProc_exit|5.005000||Viu
PerlProc_fork|5.006000||Viu
PerlProc_getegid|5.005000||Viu
PerlProc_geteuid|5.005000||Viu
PerlProc_getgid|5.005000||Viu
PerlProc_getlogin|5.005000||Viu
PerlProc_GetOSError|5.006000||Viu
PerlProc_getpid|5.006000||Viu
PerlProc_gettimeofday|5.008000||Viu
PerlProc_getuid|5.005000||Viu
easyxs/ppport.h view on Meta::CPAN
PerlProc_pclose|5.005000||Viu
PerlProc_pipe|5.005000||Viu
PerlProc_pipe_cloexec|5.027008||Viu
PerlProc_popen|5.005000||Viu
PerlProc_popen_list|5.007001||Viu
PerlProc_setgid|5.005000||Viu
PerlProc_setjmp|5.005000||Viu
PerlProc_setuid|5.005000||Viu
PerlProc_signal|5.005000||Viu
PerlProc_sleep|5.005000||Viu
PerlProc_spawnvp|5.008000||Viu
easyxs/ppport.h view on Meta::CPAN
PL_defgv|5.004005|5.003007|p
PL_def_layerlist|5.007003||Viu
PL_defoutgv|5.005000||Viu
PL_defstash|5.005000||Viu
PL_delaymagic|5.005000||Viu
PL_delaymagic_egid|5.015008||Viu
PL_delaymagic_euid|5.015008||Viu
PL_delaymagic_gid|5.015008||Viu
PL_delaymagic_uid|5.015008||Viu
PL_destroyhook|5.010000||Viu
PL_diehook|5.005000|5.003007|poVnu
PL_Dir|5.006000||Viu
PL_dirty|5.005000|5.003007|poVnu
easyxs/ppport.h view on Meta::CPAN
setfd_cloexec|5.027008||Vniu
setfd_cloexec_for_nonsysfd|5.027008||Viu
setfd_cloexec_or_inhexec_by_sysfdness|5.027008||Viu
setfd_inhexec|5.027008||Vniu
setfd_inhexec_for_sysfd|5.027008||Viu
setgid|5.005000||Viu
setgrent|5.009000||Viu
SETGRENT_R_HAS_FPTR|5.008000||Viu
SETGRENT_R_PROTO|5.008000|5.008000|Vn
sethostent|5.005000||Viu
SETHOSTENT_R_PROTO|5.008000|5.008000|Vn
easyxs/ppport.h view on Meta::CPAN
SETPROTOENT_R_PROTO|5.008000|5.008000|Vn
setpwent|5.009000||Viu
SETPWENT_R_HAS_FPTR|5.008000||Viu
SETPWENT_R_PROTO|5.008000|5.008000|Vn
set_regex_pv|5.029004||Viu
setregid|5.003007||Viu
setreuid|5.003007||Viu
SETs|5.003007||Viu
setservent|5.005000||Viu
SETSERVENT_R_PROTO|5.008000|5.008000|Vn
setsockopt|5.005000||Viu
easyxs/ppport.h view on Meta::CPAN
SvSCREAM|5.003007||Viu
SvSCREAM_off|5.003007||Viu
SvSCREAM_on|5.003007||Viu
sv_setbool|5.035004|5.035004|
sv_setbool_mg|5.035004|5.035004|
sv_setgid|5.019001||Viu
sv_sethek|5.015004||cViu
sv_setiv|5.003007|5.003007|
sv_setiv_mg|5.004005|5.003007|p
SvSETMAGIC|5.003007|5.003007|
SvSetMagicSV|5.004000|5.004000|
DTA-CAB
view release on metacpan or search on metacpan
CAB/Analyzer/LangId.pm view on Meta::CPAN
## ##-- Filename Options
## mapFile => $filename, ##-- default: none (REQUIRED)
##
## ##-- Analysis Options
## analyzeWhich => $which, ##-- one of 'token', 'sentence', 'document'; default='document'
## vlabel => $label, ##-- verbose destination key (default='langid')
## label => $label, ##-- simple destination key (default='lang')
##
##
## ##-- Analysis Objects
## map => $map, ##-- a Lingua::LangId::Map object
CAB/Analyzer/LangId.pm view on Meta::CPAN
##-- filenames
mapFile => undef,
##-- options
analyzeWhich => 'document',
vlabel => 'langid',
label => 'lang',
##-- analysis objects
#map => undef,
CAB/Analyzer/LangId.pm view on Meta::CPAN
(
##-- Filename Options
mapFile => $filename, ##-- default: none (REQUIRED)
##-- Analysis Options
analyzeWhich => $which, ##-- one of 'token', 'sentence', 'document'; default='document'
vlabel => $label, ##-- verbose destination key (default='langid')
label => $label, ##-- simple destination key (default='lang')
##-- Analysis Objects
map => $map, ##-- a Lingua::LangId::Map object
)
Dackup
view release on metacpan or search on metacpan
lib/Dackup/Target/SSH.pm view on Meta::CPAN
my $root = 'XXX';
find( \&wanted, $root );
sub wanted {
my $filename = $File::Find::name;
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev,
$size, $atime, $mtime, $ctime, $blksize, $blocks
) = stat($filename);
my $type;
if ( -f _ ) {
$type = 'file';
Daemon-Control
view release on metacpan or search on metacpan
lib/Daemon/Control.pm view on Meta::CPAN
package Daemon::Control;
use strict;
use warnings;
use POSIX qw(_exit setsid setuid setgid getuid getgid);
use File::Spec;
use File::Path qw( make_path );
use Cwd 'abs_path';
require 5.008001; # Supporting 5.8.1+
lib/Daemon/Control.pm view on Meta::CPAN
sub group {
my $self = shift;
if ( @_ ) {
$self->{group} = shift;
delete $self->{gid};
}
return $self->{group};
}
lib/Daemon/Control.pm view on Meta::CPAN
$self->_set_uid_from_name unless exists $self->{uid};
return $self->{uid}
}
sub gid {
my $self = shift;
return $self->{gid} = shift if @_;
$self->_set_gid_from_name unless exists $self->{gid};
return $self->{gid}
}
sub new {
my ( $class, @in ) = @_;
lib/Daemon/Control.pm view on Meta::CPAN
foreground => 0,
reload_signal => 'HUP',
stop_signals => [ qw(TERM TERM INT KILL) ],
}, $class;
for my $accessor ( @accessors, qw(uid gid user group) ) {
if ( exists $args->{$accessor} ) {
$self->{$accessor} = delete $args->{$accessor};
}
}
lib/Daemon/Control.pm view on Meta::CPAN
unless defined $uid;
$self->trace( "Set UID => $uid" );
$self->uid( $uid );
}
# Set the uid, triggered from getting the gid if the group has changed.
sub _set_gid_from_name {
my ( $self ) = @_;
# Grab the GID if we have a UID but no GID.
if ( !defined $self->group && defined $self->uid ) {
my ( $gid ) = ( (getpwuid( $self->uid ))[3] );
$self->gid( $gid );
$self->trace( "Implicit GID => $gid" );
return $gid;
}
return unless defined $self->group;
my $gid = getgrnam( $self->group );
die "Error: Couldn't get gid for non-existent group " . $self->group
unless defined $gid;
$self->trace( "Set GID => $gid" );
$self->gid( $gid );
}
sub redirect_filehandles {
my ( $self ) = @_;
lib/Daemon/Control.pm view on Meta::CPAN
my ( $created ) = make_path(
$dir,
{
uid => $self->uid,
group => $self->gid,
error => \my $errors,
}
);
if ( @$errors ) {
lib/Daemon/Control.pm view on Meta::CPAN
if ( $pid == 0 ) { # Child, launch the process here.
setsid(); # Become the process leader.
my $new_pid = fork();
if ( $new_pid == 0 ) { # Our double fork.
if ( $self->gid ) {
setgid( $self->gid );
$self->trace( "setgid(" . $self->gid . ")" );
}
if ( $self->uid ) {
setuid( $self->uid );
lib/Daemon/Control.pm view on Meta::CPAN
# Create the PID file as the user we currently are,
# and change the permissions to our target UID/GID.
$self->_write_pid;
if ( $self->uid && $self->gid ) {
chown $self->uid, $self->gid, $self->pid_file;
$self->trace("PID => chown(" . $self->uid . ", " . $self->gid .")");
}
}
sub _write_pid {
my ( $self ) = @_;
lib/Daemon/Control.pm view on Meta::CPAN
$daemon->user('www-data');
=head2 group
When set, the groupname supplied to this accessor will be used to set
the GID attribute. When this is used, C<gid> will be changed from
its initial settings if you set it (which you shouldn't, since you're
using groupnames instead of GIDs). See L</gid> for setting numerical
group ids.
$daemon->group('www-data');
=head2 uid
lib/Daemon/Control.pm view on Meta::CPAN
ONLY supported in double-fork mode and will only work if you are running
as root. Accepts numeric UID. For usernames please see L</user>.
$daemon->uid( 1001 );
=head2 gid
If provided, the GID that the program will drop to when forked. This is
ONLY supported in double-fork mode and will only work if you are running
as root. Accepts numeric GID, for groupnames please see L</group>.
$daemon->gid( 1001 );
=head2 umask
If provided, the umask of the daemon will be set to the umask provided,
note that the umask must be in oct. By default the umask will not be
lib/Daemon/Control.pm view on Meta::CPAN
=head2 fork
The mode to use for fork. By default a double-fork will be used.
In double-fork, uid, gid, std*_file, and a number of other things are
supported. A traditional double-fork is used and setsid is called.
In single-fork none of the above are called, and it is the responsibility
of whatever you're forking to reopen files, associate with the init process
and do all that fun stuff. This mode is recommended when the program you want
( run in 1.509 second using v1.01-cache-2.11-cpan-5735350b133 )