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") {
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") {
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") {
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") {
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return %repo, url => $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return %repo, url => $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
- Add github metadata (Andrew Fresh)
- Add files from `make update` (Andrew Fresh)
- Add some additional tests to the tests file (Andrew Fresh)
- Add a Plugin to upload releases to GitHub (Andrew Fresh)
- Add a default license Plugin (Andrew Fresh)
- Add PodWeaver Plugin with some of our prefs (Andrew Fresh)
- Add some Plugins for extra tests (Andrew Fresh)
- Switch from MetaYAML to MetaJSON (Andrew Fresh)
- Add a dist.ini for this dist (Andrew Fresh)
- Add some notes to the CONTRIBUTING file (Andrew Fresh)
- Add a few more Git related Plugins (Andrew Fresh)
view release on metacpan or search on metacpan
lib/Zest/Author/TABULO/Util/Dzil.pm view on Meta::CPAN
push @input, $arg;
}
}
if (@input) {
my %prefs = (
moniker => 'plugins',
require_unique => 1,
must_be => [qw(HASH)],
);
my @optlist = @{ Data::OptList::mkopt( \@input, \%prefs ) };
push @res, map {
grok_plugin($_);
} @optlist;
}
view release on metacpan or search on metacpan
eg/serialization.pl view on Meta::CPAN
# Store a complex structure
my $user = {
id => 42,
name => 'Alice',
roles => [qw(admin editor)],
prefs => { theme => 'dark', lang => 'en' },
};
set_data("user:42", $user, 300, sub {
my ($res, $err) = @_;
die "set: $err" if $err;
view release on metacpan or search on metacpan
lib/EB/Config/Data.pm view on Meta::CPAN
[
{ name => "admdir", tag => N__("Folder voor administraties"), type => 'folder', value => '$HOME/.eekboek/admdir' },
{ name => "wizard", tag => N__("Forceer wizard"), type => 'bool', value => undef },
],
},
{ section => "prefs",
tag => N__("Voorkeursinstellingen"),
keys =>
[
{ name => "journal", tag => N__("Toon journaalpost na elke boeking"), type => 'bool', value => undef },
],
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") {
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") {
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") {
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") {
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") {
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") {
view release on metacpan or search on metacpan
lib/File/Extension.pm view on Meta::CPAN
'prdx' => 'Presentations Document',
'pre' => 'Lotus Freelance Graphics File',
'pref' => 'Macintosh Preferences File',
'prefab' => 'Unity Prefab File',
'prefpane' => 'Mac OS X System Preference Pane',
'prefs' => 'MMORPG Tycoon Preferences File',
'prel' => 'Premiere Elements Project File',
'prf' => 'Plot Station Plot Request File',
'prfpset' => 'Premiere Pro Effect Preset File',
'prg' => 'GEM Application',
'pri' => 'Package Resource Index File',
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") {
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") {
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") {
view release on metacpan or search on metacpan
lib/File/VirtualPath.pm view on Meta::CPAN
use warnings;
use File::VirtualPath;
sub main {
my (undef, $project_dir) = @_;
my $prefs = &get_prefs( $project_dir->child_path_obj( 'config.pl' ) );
&do_work( $prefs, $project_dir );
}
sub get_prefs {
my ($project_dir) = @_;
my $real_filename = $project_dir->physical_path_string();
my $prefs = do $real_filename;
defined( $prefs ) or do {
my $virtual_fn = $project_dir->path_string();
die "Can't get Aardvark prefs from file '$virtual_fn': $!";
};
return( $prefs );
}
sub do_work {
my ($prefs, $project_dir) = @_;
my ($lbl_a, $lbl_b, $lbl_c) = ($prefs->{a}, $prefs->{b}, $prefs->{c});
my $data_source = $prefs->{'sourcefile'};
open( SOURCE, $project_dir->physical_child_path_string( $data_source ) );
while( my $line = <SOURCE> ) {
my ($a, $b, $c) = split( "\t", $line );
print "File contains: $lbl_a='$a', $lbl_b='$b', $lbl_c='$c'\n";
}
lib/File/VirtualPath.pm view on Meta::CPAN
1;
=head2 Content of settings file "config.pl"
$rh_prefs = {
sourcefile => 'mydata.txt',
a => 'name',
b => 'phone',
c => 'date',
};
view release on metacpan or search on metacpan
t/fixtures/google.html view on Meta::CPAN
(function(){try{var a=window.gbar;a.mcf("pm",{p:"2469003,Jb_,7,,"});}catch(e){window.gbar&&gbar.logger&&gbar.logger.ml(e,{"_sn":"cfg.init"});}})();
(function(){try{var a=window.gbar;a.mcf("mm",{s:"1"});}catch(e){window.gbar&&gbar.logger&&gbar.logger.ml(e,{"_sn":"cfg.init"});}})();
(function(){try{var d=window.gbar.i.i;var e=window.gbar;var f=e.i;var g=f.c("1",0),h=/\bgbmt\b/,k=function(a){try{var b=document.getElementById("gb_"+g),c=document.getElementById("gb_"+a);b&&f.l(b,h.test(b.className)?"gbm0l":"gbz0l");c&&f.k(c,h.test(...
n(a)},q=function(){if(window.google&&window.google.sn){var a=/.*hp$/;return a.test(window.google.sn)?"":"1"}return"-1"};e.rp=q;e.slp=k;e.qs=p;e.qsi=n;}catch(e){window.gbar&&gbar.logger&&gbar.logger.ml(e,{"_sn":"cfg.init"});}})();
(function(){try{window.gbar.rdl();}catch(e){window.gbar&&gbar.logger&&gbar.logger.ml(e,{"_sn":"cfg.init"});}})();
</script> </head><body class="hp" onload="try{if(!google.j.b){document.f&&document.f.q.focus();document.gbqf&&document.gbqf.q.focus();}}catch(e){}if(document.images)new Image().src='/images/nav_logo117.png'" dir="ltr" alink="#dd4b39" ...
var _coarr = eval('(' + _co + ')');google.j[1]={cc:[],co:_coarr,bl:['mngb','gb_'],funcs:[
{'n':'pcs','i':'gstyle','css':document.getElementById('gstyle').innerHTML,'is':'','r':true,'sc':true},{'n':'pc','i':'cst','h':document.getElementById('cst').innerHTML,'is':'','r':true,'sc':true},{'n':'pc','i':'main','h':_mstr,'is':'','r':true,'sc':tr...
};})();</script><script data-url="/extern_chrome/1cfbda40ed967628.js?bav=or.r_qf" id="ecs">function wgjp(){var xjs=document.createElement('script');xjs.src=document.getElementById('ecs').getAttribute('data-url');(document.getElementById('xjsd')|| doc...
if(!google.xjs){google.dstr=[];google.rein=[];window._=window._||{};window._._DumpException=function(e){throw e};if(google.timers&&google.timers.load.t){google.timers.load.t.xjsls=new Date().getTime();}google.dljp('/xjs/_/js/s/c,sb,cr,cdos,vm,tbui,mb...
function n(b,f,m){m=b.offsetHeight?m-b.offsetHeight:m;f-=m;f=Math.max(f,0);b.style.height=f+"px";return f}
view release on metacpan or search on metacpan
CompanyNames/TextSupport.pm view on Meta::CPAN
preempt preempted preemptible preempting preempts
preemption preemptions
preemptive preemptively
preevaluated preevaluation
preexistent preexisting
pref prefs
prefabricate prefabricated prefabrication
preface prefacing
prefactor prefactors
prefect prefects
prefectural prefecturally prefecture prefectures
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") {
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") {
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") {
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") {
view release on metacpan or search on metacpan
lib/Firefox/Marionette.pm view on Meta::CPAN
'return navigator.languages || branch.getComplexValue(arguments[0], Components.interfaces.nsIPrefLocalizedString).data.split(/,\s*/)';
my $old = $self->_context('chrome');
my @old_languages = @{
$self->script(
$self->_compress_script(
$self->_prefs_interface_preamble() . $script
),
args => [$pref_name]
)
};
$self->_context($old);
lib/Firefox/Marionette.pm view on Meta::CPAN
Firefox::Marionette::Exception->throw("javascript error: $result");
}
return $result;
}
sub _prefs_interface_preamble {
my ($self) = @_;
return <<'_JS_'; # modules/libpref/nsIPrefService.idl
let prefs = Components.classes["@mozilla.org/preferences-service;1"].getService(Components.interfaces.nsIPrefService);
let branch = prefs.getBranch("");
_JS_
}
sub get_pref {
my ( $self, $name ) = @_;
lib/Firefox/Marionette.pm view on Meta::CPAN
_JS_
my $old = $self->_context('chrome');
my ( $result, $type ) = @{
$self->script(
$self->_compress_script(
$self->_prefs_interface_preamble() . $script
),
args => [$name]
)
};
$self->_context($old);
lib/Firefox/Marionette.pm view on Meta::CPAN
}
}
_JS_
my $old = $self->_context('chrome');
$self->script(
$self->_compress_script( $self->_prefs_interface_preamble() . $script ),
args => [ $name, $value ]
);
$self->_context($old);
return $self;
}
lib/Firefox/Marionette.pm view on Meta::CPAN
my $script = <<'_JS_';
branch.clearUserPref(arguments[0]);
_JS_
my $old = $self->_context('chrome');
$self->script(
$self->_compress_script( $self->_prefs_interface_preamble() . $script ),
args => [$name]
);
$self->_context($old);
return $self;
}
lib/Firefox/Marionette.pm view on Meta::CPAN
$self->{_original_remote_tmp_directory} =
$proxy->{ssh}->{tmp};
}
$self->{profile_path} =
$self->_remote_catfile( $self->{_root_directory},
'profile', 'prefs.js' );
my $local_scp_directory =
File::Spec->catdir( $self->ssh_local_directory(), 'scp' );
$self->{_local_scp_get_directory} =
File::Spec->catdir( $local_scp_directory, 'get' );
$self->{_scp_get_file_index} =
lib/Firefox/Marionette.pm view on Meta::CPAN
}
sub _check_for_existing_local_firefox_process {
my ($self) = @_;
my $profile_path =
File::Spec->catfile( $self->{_profile_directory}, 'prefs.js' );
my $profile_handle = FileHandle->new($profile_path);
my $port;
if ($profile_handle) {
while ( my $line = <$profile_handle> ) {
if ( $line =~ /^user_pref[(]"marionette[.]port",[ ](\d+)[)];$/smx )
lib/Firefox/Marionette.pm view on Meta::CPAN
my ($self) = @_;
if ( $self->{profile_name} ) {
$self->{_profile_directory} =
Firefox::Marionette::Profile->directory( $self->{profile_name} );
$self->{profile_path} =
File::Spec->catfile( $self->{_profile_directory}, 'prefs.js' );
}
else {
$self->{_profile_directory} =
File::Spec->catfile( $self->{_root_directory}, 'profile' );
$self->{_download_directory} =
File::Spec->catfile( $self->{_root_directory}, 'downloads' );
$self->{profile_path} =
File::Spec->catfile( $self->{_profile_directory}, 'prefs.js' );
}
return;
}
sub _reconnect {
lib/Firefox/Marionette.pm view on Meta::CPAN
my $old = $self->_context('chrome');
# toolkit/mozapps/update/nsIUpdateService.idl
my $update_parameters = $self->script(
$self->_compress_script(
$self->_prefs_interface_preamble() . <<'_JS_' ) );
let disabledForTesting = branch.getBoolPref("app.update.disabledForTesting");
branch.setBoolPref("app.update.disabledForTesting", false);
let updateManager = new Promise((resolve, reject) => {
var updateStatus = {};
if ("@mozilla.org/updates/update-manager;1" in Components.classes) {
let PREF_APP_UPDATE_CANCELATIONS_OSX = "app.update.cancelations.osx";
let PREF_APP_UPDATE_ELEVATE_NEVER = "app.update.elevate.never";
if (Services.prefs.prefHasUserValue(PREF_APP_UPDATE_CANCELATIONS_OSX)) {
Services.prefs.clearUserPref(PREF_APP_UPDATE_CANCELATIONS_OSX);
}
if (Services.prefs.prefHasUserValue(PREF_APP_UPDATE_ELEVATE_NEVER)) {
Services.prefs.clearUserPref(PREF_APP_UPDATE_ELEVATE_NEVER);
}
let updateService = Components.classes["@mozilla.org/updates/update-service;1"].getService(Components.interfaces.nsIApplicationUpdateService);
let latestUpdate = null;
if (!updateService.canCheckForUpdates) {
updateStatus["updateStatusCode"] = 'CANNOT_CHECK_FOR_UPDATES';
lib/Firefox/Marionette.pm view on Meta::CPAN
$self->_remote_catfile( $profile_ini_directory, 'profiles.ini' );
my $handle = $self->_get_file_via_scp( { ignore_exit_status => 1 },
$profile_ini_path, 'profiles.ini file' )
or Firefox::Marionette::Exception->throw( 'Failed to find the file '
. $self->_ssh_address()
. ":$profile_ini_path which would indicate where the prefs.js file for the '$profile_name' is stored"
);
my $config = Config::INI::Reader->read_handle($handle);
$profile_directory = $self->_remote_catfile(
Firefox::Marionette::Profile->directory(
$profile_name, $config,
lib/Firefox/Marionette.pm view on Meta::CPAN
$self->{profile_name} = $parameters{profile_name};
if ( $self->_ssh() ) {
$self->{_profile_directory} =
$self->_get_remote_profile_directory( $parameters{profile_name} );
$self->{profile_path} =
$self->_remote_catfile( $self->{_profile_directory}, 'prefs.js' );
}
else {
$self->{_profile_directory} =
Firefox::Marionette::Profile->directory(
$parameters{profile_name} );
$self->{profile_path} =
File::Spec->catfile( $self->{_profile_directory}, 'prefs.js' );
}
push @arguments, ( '-P', $self->{profile_name} );
}
else {
my $profile_directory =
lib/Firefox/Marionette.pm view on Meta::CPAN
sub _new_profile_path {
my ($self) = @_;
my $profile_path;
if ( $self->_ssh() ) {
$profile_path =
$self->_remote_catfile( $self->{_profile_directory}, 'prefs.js' );
}
else {
$profile_path =
File::Spec->catfile( $self->{_profile_directory}, 'prefs.js' );
}
return $profile_path;
}
sub _setup_new_profile {
view release on metacpan or search on metacpan
lib/Firefox/Sync/Client.pm view on Meta::CPAN
use Storable;
our $VERSION = '0.04';
our @ISA = qw(Exporter);
our @EXPORT = qw(new get_raw_collection get_addons get_bookmarks get_clients get_forms get_history get_meta get_passwords get_prefs get_tabs);
=over
=item new(%config)
lib/Firefox/Sync/Client.pm view on Meta::CPAN
Returns an array reference containing all elements of the given collection.
The following collections are tested (but other collections may also work):
bookmarks
prefs
clients
forms
history
passwords
tabs
lib/Firefox/Sync/Client.pm view on Meta::CPAN
sub get_passwords {
my $self = shift;
return get_raw_collection($self, 'passwords');
}
=item get_prefs()
Returns the synchronized browser preferences.
=cut
sub get_prefs {
my $self = shift;
return get_raw_collection($self, 'prefs');
}
=item get_tabs()
Returns an array of tabs opened on each Sync client / Browser.
view release on metacpan or search on metacpan
lib/Flickr/API.pm view on Meta::CPAN
$api->export_storable_config($config_file);
my $response = $api->execute_method('flickr.auth.oauth.checkToken');
my $hash_ref = $response->as_hash();
$response = $api->execute_method('flickr.prefs.getPrivacy');
my $rsp_node = $response->as_tree();
}
=head2 The OAuth authorization uri will look something like:
view release on metacpan or search on metacpan
bundle/Sys-CpuAffinity/lib/Sys/CpuAffinity.pm view on Meta::CPAN
|| _getNumCpus_from_dmesg_bsd()
|| _getNumCpus_from_xs_solaris()
|| _getNumCpus_from_dmesg_solaris()
|| _getNumCpus_from_psrinfo()
|| _getNumCpus_from_hinv()
|| _getNumCpus_from_hwprefs()
|| _getNumCpus_from_system_profiler()
|| _getNumCpus_from_Win32API_System_Info()
|| _getNumCpus_from_Test_Smoke_SysInfo()
|| _getNumCpus_from_prtconf() # slower than bindprocessor, lsdev
|| _getNumCpus_from_ENV()
bundle/Sys-CpuAffinity/lib/Sys/CpuAffinity.pm view on Meta::CPAN
}
return $ncpu;
}
sub _getNumCpus_from_hwprefs {
return 0 if $^O !~ /darwin/i && $^O !~ /MacOS/i;
return 0 if !_configExternalProgram('hwprefs');
my $cmd = _configExternalProgram('hwprefs');
my $result = qx($cmd cpu_count 2> /dev/null);
$result =~ s/\s+$//;
_debug("\"$cmd cpu_count\" output: ", $result);
return $result || 0;
}
bundle/Sys-CpuAffinity/lib/Sys/CpuAffinity.pm view on Meta::CPAN
how to find the number of processors:
AIX: sysconf(_SC_NPROCESSORS_CONF), sysconf(_SC_NPROCESSORS_ONLN)
prtconf | grep "Number Of Processors:" | cut -d: -f2
Solaris: processor_info(), p_online()
MacOS: hwprefs cpu_count, system_profiler | grep Cores: | cut -d: -f2
do something with `sysctl -a`
AIX: prtconf
solaris also has prtconf, but don't think it has cpu data
BSD also has `sysctl`, they tell me
AIX: `smtctl | grep "Bind processor "` ... not reliable
bundle/Sys-CpuAffinity/lib/Sys/CpuAffinity.pm view on Meta::CPAN
##########################################
Issues in 1.02-1.04
1. darwin: hwprefs and sysctl give different results?
www.cpantesters.org/cpan/report/3982d2fa-9c2a-11e0-a04e-9d9517dc0771
2. openbsd: dmesg_bsd and sysctl give different results?
www.cpantesters.org/cpan/report/84d41dda-9942-11e0-a324-58f41aecacb6
www.cpantesters.org/cpan/report/0c6e981c-a2dd-11e0-a324-58f41aecacb6
3. linux: /usr/bin/taskset available but still cannot count CPUs? (x16)