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
libpng-1.6.17/CHANGES view on Meta::CPAN
Version 1.4.0beta57 [May 2, 2009]
Removed prototype for png_freeptr() that was added in libpng-1.4.0beta24
but was never defined (again).
Rebuilt configure scripts with autoconf-2.63 instead of 2.62
Removed pngprefs.h and MMX from makefiles
Version 1.4.0beta58 [May 14, 2009]
Changed pngw32.def to pngwin.def in makefile.mingw (typo was introduced
in beta57).
Clarified usage of sig_bit versus sig_bit_p in example.c (Vincent Torri)
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
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/Kwiki/Preferences.pm view on Meta::CPAN
const preference_class => 'Kwiki::Preference';
field objects_by_class => {};
sub load {
my $values = shift;
my $prefs = $self->hub->registry->lookup->preference;
for (sort keys %$prefs) {
my $array = $prefs->{$_};
my $class_id = $array->[0];
my $hash = {@{$array}[1..$#{$array}]}
or next;
next unless $hash->{object};
my $object = $hash->{object}->clone;
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
.metadata/.plugins/org.eclipse.core.runtime/.settings/org.eclipse.team.core.prefs view on Meta::CPAN
eclipse.preferences.version=1
file_types=xls\n2\njpeg\n2\ntif\n2\npdf\n2\nexsd\n1\nlaunch\n1\nemof\n1\nico\n2\npyx\n1\npyw\n1\ntxt\n1\nMF\n1\nprefs\n1\nmxsd\n1\nhtm\n1\ntiff\n2\noptions\n1\nzip\n2\nxsl\n1\nindex\n1\nso\n2\nxmi\n1\nxml\n1\nproperties\n1\nini\n1\nppt\n2\nbmp\n2\nhi...
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/LaTeXML/Plugin/LtxMojo/public/css/external/trac-sanity.css view on Meta::CPAN
#mainnav.nav ul { text-align: center; }
.nav li.last { border: none; }
.nav li { border-right: 1px solid #000; }
#prefs { background: #c0cdf2; padding: 0; border: none; }
#prefs div, #prefs fieldset { padding: .8em; }
/* For overriding roadmap.css */
.milestone .info h2 em { color: #6698ff; }
view release on metacpan or search on metacpan
lib/LaTeXML/Package/svmult.cls.ltxml view on Meta::CPAN
use strict;
use warnings;
use LaTeXML::Package;
#======================================================================
foreach my $option (qw(nospthms vecphys vecarrow norunningheads referee oribibl chaprefs
footinfo openany sechang
deutsch francais),
# These could affect numbering...
qw(numart book envcountresetchap envcountresetsect envcountsame envcountchap
envcountresetsect envcountresetchap),
view release on metacpan or search on metacpan
vhost/html/js/tiny_mce/tiny_mce.js view on Meta::CPAN
var tinymce={majorVersion:'3',minorVersion:'2.1.1',releaseDate:'2008-11-27',_init:function(){var t=this,d=document,w=window,na=navigator,ua=na.userAgent,i,nl,n,base,p,v;t.isOpera=w.opera&&opera.buildNumber;t.isWebKit=/WebKit/.test(ua);t.isOldWebKit=t...
view release on metacpan or search on metacpan
vhost/cgi-bin/db/plugin-base.sql view on Meta::CPAN
INSERT INTO `requests` VALUES (8,'error','badaccess','Users::LoggedIn','','public/badaccess.html','','error-login','','off','');
INSERT INTO `requests` VALUES (9,'error','baduser','','','public/baduser.html','','','','off','');
INSERT INTO `requests` VALUES (10,'error','login','Users::Store','','users/user-login.html','','','','off','');
INSERT INTO `requests` VALUES (11,'error','message','','','public/error_message.html','','','','off','');
INSERT INTO `requests` VALUES (12,'home','admin','','','admin/backend_index.html','','','','off','');
INSERT INTO `requests` VALUES (13,'home','prefs','CPAN::Authors::Basic','','cpan/prefs.html','','','','off','');
INSERT INTO `requests` VALUES (14,'home','status','CPAN::Authors::Status','','content/status.html','','','','off','');
INSERT INTO `requests` VALUES (15,'home','main','CPAN::Authors::Status','','content/welcome.html','','','','off','');
INSERT INTO `requests` VALUES (16,'req','admin','Requests::Admin',NULL,'request/request_adminlist.html','','',NULL,'off',NULL);
INSERT INTO `requests` VALUES (17,'req','add','Requests::Add',NULL,'request/request_adminedit.html','','',NULL,'off',NULL);
INSERT INTO `requests` VALUES (18,'req','edit','Requests::Edit',NULL,'request/request_adminedit.html','','',NULL,'off',NULL);
view release on metacpan or search on metacpan
lib/Lazy/Utils.pm view on Meta::CPAN
use Lazy::Utils;
trim($str);
ltrim($str);
rtrim($str);
file_get_contents($path, $prefs);
file_put_contents($path, $contents, $prefs);
shellmeta($s, $nonquoted);
system2($cmd, @argv);
bash_readline($prompt);
cmdargs($prefs, @argv);
whereis($name, $path);
file_cache($tag, $expiry, $coderef);
get_pod_text($file_name, $section, $exclude_section);
array_to_hash(@array);
lib/Lazy/Utils.pm view on Meta::CPAN
my ($s) = @_;
$s =~ s/\s+$//;
return $s
}
=head2 file_get_contents($path, $prefs)
gets all contents of file in string type
$path: I<path of file>
$prefs: I<preferences in HashRef, by default undef>
=over
utf8: I<opens file-handle as :utf8 mode, by default 0>
lib/Lazy/Utils.pm view on Meta::CPAN
return value: I<file contents in string type, otherwise undef because of errors>
=cut
sub file_get_contents
{
my ($path, $prefs) = @_;
$prefs = {} unless ref($prefs) eq 'HASH';
my $result = do
{
local $/ = undef;
my $mode = "";
$mode .= " :utf8" if $prefs->{utf8};
open my $fh, "<$mode", $path or return;
my $result = <$fh>;
close $fh;
$result;
};
return $result;
}
=head2 file_put_contents($path, $contents, $prefs)
puts all contents of file in string type
$path: I<path of file>
$contents: I<file contents in string type>
$prefs: I<preferences in HashRef, by default undef>
=over
utf8: I<opens file-handle as :utf8 mode, by default 0>
lib/Lazy/Utils.pm view on Meta::CPAN
return value: I<success 1, otherwise undef>
=cut
sub file_put_contents
{
my ($path, $contents, $prefs) = @_;
return if not defined($contents) or ref($contents);
$prefs = {} unless ref($prefs) eq 'HASH';
my $result = do
{
local $\ = undef;
my $mode = "";
$mode .= " :utf8" if $prefs->{utf8};
open my $fh, ">$mode", $path or return;
my $result = print $fh $contents;
close $fh;
$result;
};
lib/Lazy/Utils.pm view on Meta::CPAN
sub bashReadLine
{
return bash_readline(@_);
}
=head2 cmdargs([$prefs, ]@argv)
B<commandArgs([$prefs, ]@argv)> I<OBSOLETE>
B<cmdArgs([$prefs, ]@argv)> I<OBSOLETE>
resolves command line arguments
$prefs: I<preferences in HashRef, optional>
=over
valuableArgs: I<accepts option value after option if next argument is not an option, by default 0>
lib/Lazy/Utils.pm view on Meta::CPAN
{ -a => '', -b => 'c', -d => '', command => 'e', parameters => ['--f', 'g', '--h', '--i=j', 'k', 'l', '--','m', 'n'], late_parameters => [] }
=cut
sub cmdargs
{
my $prefs = {};
$prefs = shift if @_ >= 1 and ref($_[0]) eq 'HASH';
my @argv = @_;
my %result;
$result{command} = undef;
$result{parameters} = undef;
lib/Lazy/Utils.pm view on Meta::CPAN
while (@argv)
{
my $argv = shift @argv;
next unless defined($argv) and not ref($argv);
if (not (not defined($prefs->{optionAtAll}) or $prefs->{optionAtAll}) and @parameters)
{
push @parameters, $argv;
next;
}
lib/Lazy/Utils.pm view on Meta::CPAN
$opt = $arg[0];
}
next;
}
if ($prefs->{valuableArgs} and $opt)
{
$result{$opt} = $argv;
$opt = undef;
next;
}
$opt = undef;
push @parameters, $argv;
}
$result{command} = shift @parameters unless $prefs->{noCommand};
$result{parameters} = \@parameters;
$result{late_parameters} = \@late_parameters;
return \%result;
}
view release on metacpan or search on metacpan
lib/Leyland/Negotiator.pm view on Meta::CPAN
=cut
sub find_options {
my ($class, $c, $app_routes) = @_;
my $routes = $class->matching_routes($app_routes, $class->prefs_and_routes($c->path));
# have we found any matching routes?
$c->exception({ code => 404 }) unless scalar @$routes;
# okay, we have, let's see which HTTP methods are supported by
lib/Leyland/Negotiator.pm view on Meta::CPAN
$args->{path} ||= $c->path;
# let's find all possible prefix/route combinations
# from the request path and then find all routes matching the request path
my $routes = $class->_matching_routes($args->{app_routes}, $class->_prefs_and_routes($args->{path}), $args->{internal});
if ($args->{method}) {
return $class->_negotiate_method($args->{method}, $routes);
} else {
return $routes;
}
}
sub _prefs_and_routes {
my ($class, $path) = @_;
my $pref_routes = [{ prefix => '', route => $path }];
my ($prefix) = ($path =~ m!^(/[^/]+)!);
my $route = $' || '/';
view release on metacpan or search on metacpan
lib/Lingua/EN/NameParse.pm view on Meta::CPAN
The C<case_all> method converts the first letter of each component to
capitals and the remainder to lower case, with the following exceptions-
initials remain capitalised
surname spelling such as MacNay-Smith, O'Brien and Van Der Heiden are preserved
- see C<surname_prefs.txt> for user defined exceptions
A complete definition of the capitalising rules can be found by studying
the case_surname function.
The method returns the entire cased name as text.
lib/Lingua/EN/NameParse.pm view on Meta::CPAN
object. The input is a text string. An optional input argument controls the
casing rules for prefix portions of a surname, as described above in the
C<lc_prefix> section.
The output is a string converted to the correct casing for surnames.
See C<surname_prefs.txt> for user defined exceptions
This function is useful when you know you are only dealing with names that
do not have initials like "Mr John Jones". It is much faster than the case_all
method, but does not understand context, and cannot detect errors on strings
that are not personal names.
=head2 surname_prefs.txt
Some surnames can have more than one form of valid capitalisation, such as
MacQuarie or Macquarie. Where the user wants to specify one form as the default,
a text file called surname_prefs.txt should be created and placed in the same
location as the NameParse module. The text file should contain one surname per
line, in the capitalised form you want, such as
Macquarie
MacHado
lib/Lingua/EN/NameParse.pm view on Meta::CPAN
}
return(join(' ',@cased_name_reversed));
}
#-------------------------------------------------------------------------------
# The user may specify their own preferred spelling for surnames.
# These should be placed in a text file called surname_prefs.txt
# in the same location as the module itself.
BEGIN
{
# Obtain the full path to NameParse module, defined in the %INC hash.
my $prefs_file_location = $INC{"Lingua/EN/NameParse.pm"};
# Now substitute the name of the preferences file
$prefs_file_location =~ s/NameParse\.pm$/surname_prefs.txt/;
if ( open(PREFERENCES_FH,"<$prefs_file_location") )
{
my @surnames = <PREFERENCES_FH>;
foreach my $name ( @surnames )
{
chomp($name);
lib/Lingua/EN/NameParse.pm view on Meta::CPAN
{
return('');
}
# If the user has specified a preferred capitalisation for this
# surname in the surname_prefs.txt, it should be returned now.
if ($Lingua::EN::surname_preferences{lc($surname)} )
{
return($Lingua::EN::surname_preferences{lc($surname)});
}
view release on metacpan or search on metacpan
lib/Lingua/EN/SENNA/third-party/senna/hash/words.lst view on Meta::CPAN
prefixing
prefontaine
preform
preformed
prefrontal
prefs
prefunded
pregame
pregnancies
pregnancy
pregnant
view release on metacpan or search on metacpan
share/count_1w.txt view on Meta::CPAN
ubi 695630
beckman 695612
crusher 695578
riva 695575
cornelia 695516
prefs 695498
militaria 695435
romney 695398
macaroni 695373
electing 695296
dictation 695273
share/count_1w.txt view on Meta::CPAN
emilion 144389
mcinnes 144388
ratebeer 144381
putrid 144368
displayname 144367
webprefstopic 144355
waschk 144347
unguarded 144347
colliders 144341
sirota 144338
prodded 144338
share/count_1w.txt view on Meta::CPAN
donegan 126921
kentrox 126920
wahid 126914
belga 126913
transitivity 126912
wikiprefstopic 126911
mckim 126909
deedee 126908
pfile 126907
scriptable 126905
raak 126905
share/count_1w.txt view on Meta::CPAN
patmore 30734
nsew 30734
ieblog 30734
spinnerbait 30733
santoprene 30733
readtopicprefs 30733
helme 30733
dealcatcher 30733
xpdl 30732
vobiscum 30732
freleng 30732
view release on metacpan or search on metacpan
src/correct.c view on Meta::CPAN
terse = 0;
else if (contextbufs[0][0] == '+' || contextbufs[0][0] == '-') {
math_mode = 0;
LaTeX_Mode = 'P';
tflag = (contextbufs[0][0] == '+');
prefstringchar =
findfiletype(tflag ? "tex" : "nroff", 1, (int *) NULL);
if (prefstringchar < 0)
prefstringchar = 0;
defdupchar = prefstringchar;
}
else if (contextbufs[0][0] == '~') {
defdupchar = findfiletype(&contextbufs[0][1], 1, &tflag);
if (defdupchar < 0)
defdupchar = 0;
view release on metacpan or search on metacpan
examples/inverter1/MyApp.pl view on Meta::CPAN
###########################################################################
###########################################################################
sub main {
# user indicates language pref as command line argument
my @user_lang_prefs = grep { $_ =~ m/^[a-zA-Z]+$/x } @ARGV;
@user_lang_prefs = 'Eng'
if @user_lang_prefs == 0;
my $translator = Locale::KeyedText::Translator->new({
'set_names' => ['MyApp::L::', 'MyLib::L::'],
'member_names' => \@user_lang_prefs,
});
show_message( $translator, Locale::KeyedText::Message->new({
'msg_key' => 'MYAPP_HELLO' }) );
view release on metacpan or search on metacpan
lib/Locale/Maketext/Lexicon/DB.pm view on Meta::CPAN
my $class = shift;
my @requested_langs = @_;
$instance ||= $class->new;
@requested_langs = Locale::Maketext->_ambient_langprefs
unless @requested_langs;
TRACE('Languages asked for: ' . join (', ', @requested_langs));
my $langs = [];
view release on metacpan or search on metacpan
lib/Locale/Maketext.pm view on Meta::CPAN
@languages;
DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
}
}
else {
@languages = $base_class->_ambient_langprefs;
}
@languages = $base_class->_langtag_munging(@languages);
my %seen;
lib/Locale/Maketext.pm view on Meta::CPAN
return @languages;
}
###########################################################################
sub _ambient_langprefs {
return I18N::LangTags::Detect::detect();
}
###########################################################################
view release on metacpan or search on metacpan
lib/Locale/Unicode/Data.pm view on Meta::CPAN
}, @_ ) ); }
sub unit_pref { return( shift->_fetch_one({
id => 'get_unit_pref',
field => 'unit_id',
table => 'unit_prefs',
}, @_ ) ); }
sub unit_prefs { return( shift->_fetch_all({
id => 'unit_prefs',
table => 'unit_prefs',
by => [qw( territory category )],
}, @_ ) ); }
sub unit_quantity { return( shift->_fetch_one({
id => 'get_unit_quantity',
lib/Locale/Unicode/Data.pm view on Meta::CPAN
pattern_type => 'regular',
);
my $ref = $cldr->unit_prefix( unit_id => 'micro' );
my $all = $cldr->unit_prefixes;
my $ref = $cldr->unit_pref( unit_id => 'square-meter' );
my $all = $cldr->unit_prefs;
my $all = $cldr->unit_prefs( territory => 'US' );
my $all = $cldr->unit_prefs( category => 'area' );
my $ref = $cldr->unit_quantity( base_unit => 'kilogram' );
my $all = $cldr->unit_quantities;
my $all = $cldr->unit_quantities( quantity => 'mass' );
my $ref = $cldr->variant( variant => 'valencia' );
my $all = $cldr->variants;
lib/Locale/Unicode/Data.pm view on Meta::CPAN
=item * L<Unit conversions|/"Table unit_conversions">
Define a list of unit conversion from one unit to another.
=item * L<Unit preferences by territories|/unit_prefs">
Defines what units are preferred by territory.
=item * L<Unit aliases|/"Table unit_aliases">
lib/Locale/Unicode/Data.pm view on Meta::CPAN
usage => 'default',
geq => undef,
skeleton => undef,
}
Returns an hash reference of a unit preference information from the table L<unit_prefs|/"Table unit_prefs"> based on the C<unit_id> ID provided.
=head2 unit_prefs
my $all = $cldr->unit_prefs;
my $all = $cldr->unit_prefs( territory => 'US' );
my $all = $cldr->unit_prefs( category => 'area' );
Returns all the unit preferences information as an array reference of hash reference from the L<table unit_prefs|/"Table unit_prefs">
A combination of the following fields may be provided to filter the information returned:
=over 4
lib/Locale/Unicode/Data.pm view on Meta::CPAN
An integer field.
=back
=head2 Table unit_prefs
=over 4
=item * C<unit_pref_id>
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
use Data::Printer;
use Log::FreeSWITCH::Line qw(parse);
# Log record.
my $data = '2014-07-01 13:37:53.973562 [DEBUG] sofia.c:4045 inbound-codec-prefs [PCMA]';
# Parse.
my $data_o = parse($data);
# Dump.
# private methods (1) : _datetime
# internals: {
# date "2014-07-01",
# file "sofia.c",
# file_line 4045,
# message "inbound-codec-prefs [PCMA]",
# raw "2014-07-01 13:37:53.973562 [DEBUG] sofia.c:4045 inbound-codec-prefs [PCMA]",
# time "13:37:53.973562",
# type "DEBUG"
# }
# }
# Data.
my $record = Log::FreeSWITCH::Line::Data->new(
'date' => '2014-07-01',
'file' => 'sofia.c',
'file_line' => 4045,
'message' => 'inbound-codec-prefs [PCMA]',
'time' => '13:37:53.973562',
'type' => 'DEBUG',
);
# Serialize and print to stdout.
print serialize($record)."\n";
# Output:
# 2014-07-01 13:37:53.973562 [DEBUG] sofia.c:4045 inbound-codec-prefs [PCMA]
=head1 DEPENDENCIES
L<Error::Pure>,
L<Exporter>,