Result:
found 771 distributions and 1902 files matching your query !
( run in 1.734 )
Net-Nessus-ScanLite
view release on metacpan or search on metacpan
lib/Net/Nessus/ScanLite.pm view on Meta::CPAN
ssl => 1,
debug => 1,
_cfg => undef,
_section => 'nessus',
_duration => 0,
_prefsect => 'preferences',
_defsection => 'defaults',
_holes => [],
_info => [],
preferences => {},
lib/Net/Nessus/ScanLite.pm view on Meta::CPAN
}
}
sub pref_section
{
my $this = shift;
my $key = '_prefsect';
$this->{$key} = shift if( @_ );
return($this->{$key});
}
sub ini_default
{
lib/Net/Nessus/ScanLite.pm view on Meta::CPAN
$this->set_error(1,"Bad login ". $this->user);
return(0);
}
return(1);
}
sub setprefs
{
my $this = shift;
my $p = "CLIENT <|> PREFERENCES <|>\n";
$this->socket->flush;
my $h = $this->preferences;
lib/Net/Nessus/ScanLite.pm view on Meta::CPAN
sub attack
{
my ($this,$host) = @_;
my $start = time;
$this->setprefs;
my @hosts = ( $host );
my $status = $this->Attack(@hosts);
$this->duration(time - $start);
}
sub user
Net-Nessus-XMLRPC
view release on metacpan or search on metacpan
lib/Net/Nessus/XMLRPC.pm view on Meta::CPAN
$opts{'policy_shared'}=0;
}
if ($report->{'policyContents'}->[0]->{'policyComments'}->[0]) {
$opts{'policy_comments'}=$report->{'policyContents'}->[0]->{'policyComments'}->[0];
}
foreach my $prefs (@{$report->{'policyContents'}->[0]->{'Preferences'}->[0]->{'ServerPreferences'}->[0]->{'preference'}}) {
$opts{$prefs->{'name'}->[0]} = $prefs->{'value'}->[0] if ($prefs->{'name'}->[0]);
}
foreach my $prefp (@{$report->{'policyContents'}->[0]->{'Preferences'}->[0]->{'PluginsPreferences'}->[0]->{'item'}}) {
$opts{$prefp->{'fullName'}->[0]} = $prefp->{'selectedValue'}->[0] if ($prefp->{'fullName'}->[0]);
}
foreach my $plugf (@{$report->{'policyContents'}->[0]->{'FamilySelection'}->[0]->{'FamilyItem'}}) {
Net-Nostr
view release on metacpan or search on metacpan
};
subtest 'd tag can be any arbitrary string' => sub {
my $event = Net::Nostr::AppData->to_event(
pubkey => $PK,
d_tag => 'com.example.app/user-prefs/v2',
);
is($event->d_tag, 'com.example.app/user-prefs/v2', 'arbitrary d tag');
};
subtest 'd_tag is required' => sub {
like(
dies { Net::Nostr::AppData->to_event(pubkey => $PK) },
Net-SMS-CDYNE
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Net-SSH2
view release on metacpan or search on metacpan
net_ss__set_error(SSH2 *ss, int errcode = 0, SSH2_CHARP_OR_NULL errmsg = NULL)
CODE:
libssh2_session_set_last_error(ss->session, errcode, errmsg);
SSH2_NERROR
net_ss__method(SSH2* ss, SSH2_METHOD type, SSH2_CHARP_OR_NULL prefs = NULL)
CODE:
/* if there are no other parameters, return the current value */
if (items == 2) {
const char *method = libssh2_session_methods(ss->session, (int)type);
if (!method)
XSRETURN_EMPTY;
XSRETURN_PV(method);
}
RETVAL = libssh2_session_method_pref(ss->session,
(int)type, prefs);
save_eagain(ss->session, RETVAL);
OUTPUT:
RETVAL
#if LIBSSH2_VERSION_NUM >= 0x010200
Net-SecurityCenter
view release on metacpan or search on metacpan
lib/Net/SecurityCenter/API/Policy.pm view on Meta::CPAN
name => {},
description => {},
tags => {},
preferences => {},
families => {},
remove_prefs => {
remap => 'removePrefs'
}
};
my $params = sc_check_params( $tmpl, \%args );
lib/Net/SecurityCenter/API/Policy.pm view on Meta::CPAN
=item * C<preferences>: Preferences (HASH of C<PREFERENCE => VALUE>)
=item * C<families>: Plugin Families
=item * C<remove_prefs>: ARRAY of preferences to remove from policy
=back
=head2 edit
lib/Net/SecurityCenter/API/Policy.pm view on Meta::CPAN
=item * C<preferences>: Preferences (HASH of C<PREFERENCE => VALUE>)
=item * C<families>: Plugin Families
=item * C<remove_prefs>: ARRAY of preferences to remove from policy
=back
=head2 delete
Net-TinyIp
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Net-Z3950
view release on metacpan or search on metacpan
yazwrap/send.c view on Meta::CPAN
}
static Odr_oid *record_syntax(ODR odr, int preferredRecordSyntax)
{
oident prefsyn;
int oidbuf[20]; /* more than enough */
int *oid;
prefsyn.proto = PROTO_Z3950;
prefsyn.oclass = CLASS_RECSYN;
prefsyn.value = (oid_value) preferredRecordSyntax;
if ((oid = oid_ent_to_oid(&prefsyn, oidbuf)) == 0)
return 0;
return odr_oiddup(odr, oid);
}
Number-Extreme
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
OPCUA-Open62541
view release on metacpan or search on metacpan
Open62541.xs view on Meta::CPAN
OPCUA_Open62541_ServerConfig config
SV * password
SV * pref
PREINIT:
const char *passstr;
const char *prefstr = NULL;
char hash[_PASSWORD_LEN + 1];
CODE:
(void)config;
if (!SvOK(password))
CROAK("Undef password");
passstr = SvPV_nolen(password);
if (SvOK(pref))
prefstr = SvPV_nolen(pref);
if (crypt_newhash(passstr, prefstr, hash, _PASSWORD_LEN) != 0)
CROAKE("crypt_newhash");
RETVAL = newSVpv(hash, 0);
OUTPUT:
RETVAL
Object-Container-Exporter
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
Object-InterfaceType
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e "$ENV{HOME}/.svk") {
OpenGL-Sandbox
view release on metacpan or search on metacpan
lib/OpenGL/Sandbox.c view on Meta::CPAN
if (internal_p) internal_fmt= SvIV(internal_p);
else if (known_format) internal_fmt= default_internal_fmt;
else carp_croak("No default internal_format for given format %d; must be specified", format);
/* use mipmaps if the user set it to true, or if the min_filter uses a mipmap,
and default in absence of any user prefs is true. But not if the user has specified 'level' */
with_mipmaps= level? 0
: mipmap_p? SvTRUE(mipmap_p)
: !min_filter_p? 1
: (SvIV(min_filter_p) == GL_NEAREST || SvIV(min_filter_p) == GL_LINEAR) ? 0
: 1;
OpenGuides
view release on metacpan or search on metacpan
lib/OpenGuides.pm view on Meta::CPAN
my $config = $self->config;
my $wiki = $self->wiki;
my $node = $args{id};
my %node_data = $wiki->retrieve_node($node);
my ($content, $checksum) = @node_data{ qw( content checksum ) };
my %cookie_data = OpenGuides::CGI->get_prefs_from_cookie(config=>$config);
my $username = $self->get_cookie( "username" );
my $edit_type = $self->get_cookie( "default_edit_type" ) eq "normal"
? "Normal edit"
: "Minor tidying";
lib/OpenGuides.pm view on Meta::CPAN
return_output => $return_output,
);
}
}
=item B<display_prefs_form>
$guide->display_prefs_form;
Displays a form that lets the user view and set their preferences. The
C<return_output> and C<return_tt_vars> parameters can be used to return
the output or template variables, instead of printing the output to STDOUT.
The C<noheaders> parameter can also be used in conjunction with
C<return_output>, if you wish to omit all HTTP headers.
=cut
sub display_prefs_form {
my ($self, %args) = @_;
my $config = $self->config;
my $wiki = $self->wiki;
my $from = $ENV{HTTP_REFERER} || "";
lib/OpenGuides.pm view on Meta::CPAN
sub get_cookie {
my $self = shift;
my $config = $self->config;
my $pref_name = shift or return "";
my %cookie_data = OpenGuides::CGI->get_prefs_from_cookie(config=>$config);
return $cookie_data{$pref_name};
}
=back
OpusVL-AppKit
view release on metacpan or search on metacpan
t/lib/script/testapp_setpassword.pl view on Meta::CPAN
use OpusVL::AppKit::Schema::AppKitAuthDB;
my $username;
my $password;
# .. set option the arguments prefs..
my $go = new Getopt::Compact
(
name => 'TestApp Users admin script',
struct =>
[
OpusVL-Preferences
view release on metacpan or search on metacpan
lib/OpusVL/FB11X/Preferences/Role/ParameterValueEditing.pm view on Meta::CPAN
use v5.24;
use Moose::Role;
use Switch::Plain 'sswitch';
sub add_prefs_defaults
{
my $self = shift;
my $c = shift;
my $args = shift;
my $defaults = $args->{defaults};
lib/OpusVL/FB11X/Preferences/Role/ParameterValueEditing.pm view on Meta::CPAN
}
# DEBT: I don't know how to decouple this from the token processor because it's
# doing audit trail stuff. The Brain architecture needs to be more mature to do
# that.
sub update_prefs_values
{
my ($self, $c, $object) = @_;
# FIXME: to use two methods below instead.
my $form = $c->stash->{form};
lib/OpusVL/FB11X/Preferences/Role/ParameterValueEditing.pm view on Meta::CPAN
$object->prf_set($name, $value);
}
}
}
sub get_prefs_values_from_form
{
my ($self, $c, $object) = @_;
my @fields = $object->prf_defaults->active->all;
return $self->collect_values_from_form($c, @fields);
lib/OpusVL/FB11X/Preferences/Role/ParameterValueEditing.pm view on Meta::CPAN
$values->{$name} = $value;
}
return $values;
}
sub prefs_hash_to_array
{
my $self = shift;
my $rs = shift;
my $hash = shift;
lib/OpusVL/FB11X/Preferences/Role/ParameterValueEditing.pm view on Meta::CPAN
param => $rs->prf_defaults->find({ name => $_ }),
} } keys %$hash;
return @d;
}
sub update_prefs_from_hash
{
my ($self, $object, $hash) = @_;
for my $name (keys %$hash)
{
lib/OpusVL/FB11X/Preferences/Role/ParameterValueEditing.pm view on Meta::CPAN
=head1 DESCRIPTION
=head1 METHODS
=head2 add_prefs_defaults
=head2 update_prefs_values
=head2 get_prefs_values_from_form
=head2 collect_values_from_form
=head2 prefs_hash_to_array
=head2 update_prefs_from_hash
=head2 construct_global_data_form
=head2 construct_global_data_search_form
Orochi
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
P
view release on metacpan or search on metacpan
our (%mod_dflts, %types);
BEGIN {
%_dflts=(
depth => 3,
ellipsis => '…',
expand_duprefs => 0,
implicit_io => 0,
maxstring => undef,
noquote => 1,
seen => 'ðŸ”', # ðŸ”
undef => '∄',
%types=(
default => $true,
depth => $intnum,
ellipsis => $string,
expand_duprefs => $bool,
implicit_io => $bool,
maxstring => $intnum,
noquote => $bool,
seen => $string,
undef => $string,
};
# local (*sw_decr); *sw_decr = sub(*) { my $res;
# 0 >= ($res = sw($_[0])) and return $res;
# --sw($_[0]); $res };
unless (sw(expand_duprefs)) {
if (ref $v && ! SCALAR $v) {
if ($p->{__P_seen}{$v}) { return "*". sw(seen) . ":" . $v . "*" }
else { $p->{__P_seen}{$v} = 1 }
}
}
PAD
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
PApp
view release on metacpan or search on metacpan
reload_p switch_userid getuid
dprintf dprint echo capture $request
N_ language_selector preferences_url preferences_link
$prefs $curprefs getpref setpref save_prefs
);
our @EXPORT_OK = qw(config_eval abort_with_file);
# might also get loaded in PApp::Util
require XSLoader;
our $url_prefix_ssl = undef;
our $url_prefix_sslauth = undef;
our $logfile = undef;
our $prefs = new PApp::Prefs \""; # the global preferences
our $curprefs = new PApp::Prefs *location; # the current application preferences
our ($st_reload_p, $st_replacepref, $st_deletepref, $st_newuserid, $st_insertstate,
$_config, $st_newstateids, $st_fetchstate, $st_eventcount, $event_count);
%preferences = ( # system default preferences
PApp::Util::_exit(0);
} else {
$restart_flag = 1;
}
our $save_prefs_cb = create_callback {
&save_prefs if $userid;
} name => "papp_save_prefs";
our $start_session_cb = create_callback {
&start_session;
} name => "papp_start_session";
sub SURL_POP ($) { ( "\x00\x81", @_ ) }
sub SURL_SHIFT ($) { ( "\x00\x82", @_ ) }
#sub SURL_EXEC ($) { SURL_PUSH("/papp_execonce" => $_[0]) }
sub SURL_EXEC_IMMED ($) { "\x00\x91", \$_[0] }
sub SURL_EXEC ($) { $_[0] }
sub SURL_SAVE_PREFS () { $save_prefs_cb }
sub SURL_SET_LOCALE ($) { ( SURL_SAVE_PREFS, "/papp_locale" => $_[0] ) }
sub SURL_START_SESSION() { SURL_EXEC_IMMED ($start_session_cb) }
sub SURL_SUFFIX ($) { ("\x00\x41", @_) }
sub SURL_STYLE ($) { ("\x00\x42", @_) }
A unique number identifying the current session (not page). You could use
this for transactions or similar purposes. This variable might or might
not be zero indicating that no session has been allocated yet (similar to
C<$userid> == 0).
=item $curprefs, $prefs [L<PApp::Prefs>]
The current application's (C<$curprefs>) and the global (C<$prefs>) preferences object.
$curprefs->get("bg_color");
ef_string $curprefs->ref("bg_color"), 15;
=item $PApp::papp (a hash-ref) [read-only] [not exported] [might get replaced by a function call]
The current PApp::Application object (see L<PApp::Application>). The
following keys are user-readable:
can be used to implement special surl behaviour, because it can affect
values specified after this specification. Normally, you don't want
to use this call.
SURL_SAVE_PREFS
call save_prefs
SURL_START_SESSION
start a new session, tearing the connection to the current session.
must be specified early in the surlargs. Right now, the %state is not
being cleared and retains its old values, so watch out!
See also L<PApp::Prefs>.
=cut
sub getpref($) {
$curprefs->get ($_[0])
}
sub setpref($;$) {
$curprefs->set ($_[0], $_[1]);
}
# forcefully (re-)read the user-prefs and returns the "new-user" flag
# reads all user-preferences (no args) or only the preferences
# for the given path (argument is given)
sub load_prefs($) {
if ($userid) {
my $st = sql_exec $DBH, \my($prefs),
"select value from prefs where uid = ? and path = ? and name = 'papp_prefs'",
$userid, $_[0];
if ($st->fetch) {
$prefs &&= PApp::Storable::thaw decompress $prefs;
my $h = $_[0] ? $state{$_[0]} : \%state;
@$h{keys %$prefs} = values %$prefs;
return 0;
} else {
return 1;
}
}
}
=item save_prefs
Save the preferences for all currently loaded applications.
=cut
sub save_prefs {
my %prefs;
my $userid = getuid;
while (my ($path, $keys) = each %preferences) {
next if $path && !exists $state{$path};
my $h = $path ? $state{$path} : \%state;
$prefs{$path} = { map { $_ => $h->{$_} } grep { defined $h->{$_} } @$keys };
}
while (my ($path, $keys) = each %prefs) {
if (%$keys) {
$st_replacepref->execute($userid, $path, "papp_prefs",
compress PApp::Storable::nfreeze($keys));
} else {
$st_deletepref->execute($uid, $path, "papp_prefs");
$userid, $path, "papp_prefs";
}
}
}
sub start_session {
sub switch_userid {
if ($userid != $_[0]) {
$userid = $_[0];
if ($userid) {
load_prefs "";
for (keys %preferences) {
load_prefs $_ if exists $state{$_};
}
}
$state{papp_switch_newuserid} = $_[0];
$state{papp_cookie} = 0; # unconditionally re-set the cookie
#$modules = $pathinfo =~ m%/(.*?)/?$% ? modpath_thaw $1 : {}; #d#
if ($temporary{cookie}{papp_1984}[0] =~ /^([0-9a-zA-Z.-]{22,22})$/) {
($userid, undef, undef, $state{papp_cookie}) = unpack "VVVV", $cipher_d->decrypt(PApp::X64::dec $1);
load_prefs "";
} else {
$userid = 0;
}
}
$state{papp_alternative} = [];
PDF-API2
view release on metacpan or search on metacpan
lib/PDF/API2.pm view on Meta::CPAN
=cut
sub viewer_preferences {
my $self = shift();
require PDF::API2::ViewerPreferences;
my $prefs = PDF::API2::ViewerPreferences->new($self);
unless (@_) {
return $prefs->get_preferences();
}
return $prefs->set_preferences(@_);
}
# Deprecated; the various preferences have been split out into their own methods
sub preferences {
my ($self, %options) = @_;
PDF-Builder
view release on metacpan or search on metacpan
lib/PDF/Builder.pm view on Meta::CPAN
=cut
sub viewer_preferences {
my $self = shift();
require PDF::Builder::ViewerPreferences;
my $prefs = PDF::Builder::ViewerPreferences->new($self);
unless (@_) {
return $prefs->get_preferences();
}
return $prefs->set_preferences(@_);
}
=head2 preferences
$pdf->preferences(%opts)
PDF-Burst
view release on metacpan or search on metacpan
t/campdf-burst.pl view on Meta::CPAN
$pdf->appendPageContent(1, $newcontent);
my $anotherpdf = CAM::PDF->new('test2.pdf');
$pdf->appendPDF($anotherpdf);
my @prefs = $pdf->getPrefs();
$prefs[$CAM::PDF::PREF_OPASS] = 'mypassword';
$pdf->setPrefs(@prefs);
$pdf->cleanoutput('out1.pdf');
print $pdf->toPDF();
PDF-Reuse
view release on metacpan or search on metacpan
lib/PDF/Reuse.pm view on Meta::CPAN
@jsfiler, @inits, @bookmarks, @annots);
our ( %old, %oldObject, %resurser, %form, %image, %objRef, %nyaFunk, %fontSource,
%sidFont, %sidXObject, %sidExtGState, %font, %intAct, %fields, %script,
%initScript, %sidPattern, %sidShading, %sidColorSpace, %knownToFile,
%processed, %embedded, %dummy, %behandlad, %unZipped, %links, %prefs);
our $stream = '';
our $idTyp = '';
our $ddir = '';
our $log = '';
lib/PDF/Reuse.pm view on Meta::CPAN
sub prFile
{ if ($pos)
{ prEnd();
close UTFIL;
}
%prefs = ();
my $param = shift;
if (ref($param) eq 'HASH')
{ $filnamn = '-';
for (keys %{$param})
{ my $key = lc($_);
lib/PDF/Reuse.pm view on Meta::CPAN
elsif (($key eq 'hidetoolbar')
|| ($key eq 'hidemenubar')
|| ($key eq 'hidewindowui')
|| ($key eq 'fitwindow')
|| ($key eq 'centerwindow'))
{ $prefs{$key} = $param->{$_};
}
}
}
else
{ $filnamn = $param || '-';
$prefs{hidetoolbar} = $_[1] if defined $_[1];
$prefs{hidemenubar} = $_[2] if defined $_[2];
$prefs{hidewindowui} = $_[3] if defined $_[3];
$prefs{fitwindow} = $_[4] if defined $_[4];
$prefs{centerwindow} = $_[5] if defined $_[5];
}
my $kortNamn;
if ($filnamn ne '-')
{ my $ri = rindex($filnamn,'/');
if ($ri > 0)
lib/PDF/Reuse.pm view on Meta::CPAN
prPage(1);
$stream = ' ';
if ($runfil)
{ $filnamn = prep($filnamn);
$log .= "File~$filnamn";
$log .= (exists $prefs{hidetoolbar}) ? "~$prefs{hidetoolbar}" : '~';
$log .= (exists $prefs{hidemenubar}) ? "~$prefs{hidemenubar}" : '~';
$log .= (exists $prefs{hidewindowui}) ? "~$prefs{hidewindowui}" : '~';
$log .= (exists $prefs{fitwindow}) ? "~$prefs{fitwindow}" : '~';
$log .= (exists $prefs{centerwindow}) ? "~$prefs{centerwindow}" : "~\n";
}
1;
}
lib/PDF/Reuse.pm view on Meta::CPAN
if (scalar @bookmarks)
{ my $outLine = ordnaBookmarks();
$utrad .= "/Outlines $outLine 0 R/PageMode /UseOutlines\n";
}
if (scalar %prefs)
{ $utrad .= '/ViewerPreferences << ';
if (exists $prefs{hidetoolbar})
{ $utrad .= ($prefs{hidetoolbar}) ? '/HideToolbar true'
: '/HideToolbar false';
}
if (exists $prefs{hidemenubar})
{ $utrad .= ($prefs{hidemenubar}) ? '/HideMenubar true'
: '/HideMenubar false';
}
if (exists $prefs{hidewindowui})
{ $utrad .= ($prefs{hidewindowui}) ? '/HideWindowUI true'
: '/HideWindowUI false';
}
if (exists $prefs{fitwindow})
{ $utrad .= ($prefs{fitwindow}) ? '/FitWindow true'
: '/FitWindow false';
}
if (exists $prefs{centerwindow})
{ $utrad .= ($prefs{centerwindow}) ? '/CenterWindow true'
: '/CenterWindow false';
}
$utrad .= '>> ';
}
PDL-Fit-Levmar
view release on metacpan or search on metacpan
t/chkjac.t
t/funcbug.t
t/gauss_from_c.c
t/gauss_from_def.lpp
t/interface.t
t/keeprefs.t
t/levmar.t
t/liblevmar.t
t/ndim.t
t/ros.c
t/simple_gaussian.lpp
PHP-Session
view release on metacpan or search on metacpan
t/sess_refcnt view on Meta::CPAN
sq_base_url|s:19:"http://192.168.0.17";base_uri|s:9:"/webmail/";onetimepad|s:8:"3eoPdw==";sqimap_capabilities|a:16:{s:9:"IMAP4REV1";b:1;s:8:"LITERAL+";b:1;s:3:"ACL";b:1;s:4:"IDLE";b:1;s:9:"NAMESPACE";b:1;s:17:"MAILBOX-REFERRALS";b:1;s:6:"BINARY";b:1;...
";}delimiter|s:1:"/";username|s:17:"test@192.168.0.17";prefs_cache|a:43:{s:7:"isStyle";s:7:"default";s:17:"show_html_default";s:1:"0";s:4:"sort";s:1:"0";s:15:"compose_new_win";s:1:"1";s:15:"smallcal_bottom";s:1:"0";s:18:"smallcal_separator";s:1:"0";s...
";s:9:"formatted";s:5:"INBOX";s:14:"unformatted-dm";s:5:"INBOX";s:11:"unformatted";s:5:"INBOX";s:16:"unformatted-disp";s:5:"INBOX";s:2:"id";i:5;s:5:"flags";a:1:{i:0;s:11:"noinferiors";}}i:1;a:7:{s:3:"raw";s:33:"* LIST (\NoInferiors) "/" Draft
";s:9:"formatted";s:5:"Draft";s:14:"unformatted-dm";s:5:"Draft";s:11:"unformatted";s:5:"Draft";s:16:"unformatted-disp";s:5:"Draft";s:2:"id";i:2;s:5:"flags";a:1:{i:0;s:11:"noinferiors";}}i:2;a:7:{s:3:"raw";s:32:"* LIST (\NoInferiors) "/" Sent
";s:9:"formatted";s:4:"Sent";s:14:"unformatted-dm";s:4:"Sent";s:11:"unformatted";s:4:"Sent";s:16:"unformatted-disp";s:4:"Sent";s:2:"id";i:8;s:5:"flags";a:1:{i:0;s:11:"noinferiors";}}i:3;a:7:{s:3:"raw";s:33:"* LIST (\NoInferiors) "/" Trash
";s:9:"formatted";s:5:"Trash";s:14:"unformatted-dm";s:5:"Trash";s:11:"unformatted";s:5:"Trash";s:16:"unformatted-disp";s:5:"Trash";s:2:"id";i:14;s:5:"flags";a:1:{i:0;s:11:"noinferiors";}}i:4;a:7:{s:3:"raw";s:36:"* LIST (\NoInferiors) "/" Calendar
";s:9:"formatted";s:8:"Calendar";s:14:"unformatted-dm";s:8:"Calendar";s:11:"unformatted";s:8:"Calendar";s:16:"unformatted-disp";s:8:"Calendar";s:2:"id";i:0;s:5:"flags";a:1:{i:0;s:11:"noinferiors";}}i:5;a:7:{s:3:"raw";s:36:"* LIST (\NoInferiors) "/" C...
PHP-Var
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
POE-Component-Client-opentick
view release on metacpan or search on metacpan
lib/POE/Component/Client/opentick/Protocol.pm view on Meta::CPAN
{
my( $class, @args ) = @_;
croak( "$class requires an even number of parameters" ) if( @args & 1 );
my $self = {
# User prefs
alias => OTDefault( 'alias' ),
rawdata => $FALSE, # user prefers to receive raw response
# data instead of ::Record objects
debug => $FALSE,
# Protocol settings
POE-Component-Player-Xmms
view release on metacpan or search on metacpan
'get_skin',
'toggle_aot',
'main_win_toggle',
'pl_win_toggle',
'eq_win_toggle',
'prefs_win_toggle',
'get_output_time',
'get_output_timestr',
'stop',
'is_playing',
'quit',
'get_playlist_pos',
'set_playlist_pos',
'get_playlist_files',
'get_version',
'is_running',
'show_prefs_box',
'set_skin',
'all_win_toggle',
'get_playlist_titles',
'get_playlist_title',
'eject',
sub eq_win_toggle {
return $_[OBJECT]->SUPER::eq_win_toggle(splice(@_,ARG0));
}
sub prefs_win_toggle {
return $_[OBJECT]->SUPER::prefs_win_toggle(splice(@_,ARG0));
}
sub get_output_time {
return $_[OBJECT]->SUPER::get_output_time(splice(@_,ARG0));
}
sub is_running {
return $_[OBJECT]->SUPER::is_running(splice(@_,ARG0));
}
sub show_prefs_box {
my $r = $_[OBJECT]->SUPER::show_prefs_box(splice(@_,ARG0));
Xmms::sleep(0.25);
return $r;
}
sub set_skin {
get_skin,
toggle_aot,
main_win_toggle,
pl_win_toggle,
eq_win_toggle,
prefs_win_toggle,
get_output_time,
get_output_timestr,
stop,
is_playing,
quit,
get_playlist_pos,
set_playlist_pos,
get_playlist_files,
get_version,
is_running,
show_prefs_box,
set_skin,
all_win_toggle,
get_playlist_titles,
get_playlist_title,
eject,
POE-Component-Schedule
view release on metacpan or search on metacpan
.includepath
.perlcriticrc
.project
.settings/org.eclipse.core.resources.prefs
Build.PL
Changes
Changes.rss
Changes.yml
inc/MY/Build.pm
( run in 1.734 second using v1.01-cache-2.11-cpan-0bb4e1dffa6 )