Result:
found more than 703 distributions - search limited to the first 2001 files matching your query
( run in 2.124 )
Code-ART
view release on metacpan or search on metacpan
lib/Code/ART.pm view on Meta::CPAN
},
"\$\@" => {
aliases => { "\$EVAL_ERROR" => 1 },
desc => "Current propagating exception",
},
"\$[" => {
aliases => { "\$ARRAY_BASE" => 1 },
desc => "Array index origin [deprecated]",
},
"\$\\" => {
aliases => { "\$ORS" => 1, "\$OUTPUT_RECORD_SEPARATOR" => 1 },
lib/Code/ART.pm view on Meta::CPAN
"\$ARGV" => {
aliases => {},
desc => "Name of file being read by readline() or <>",
},
"\$ARRAY_BASE" => {
aliases => { "\$[" => 1 },
desc => "Array index origin [deprecated]",
},
"\$b" => {
aliases => {},
desc => "Block parameter: automatically provided to sort blocks",
CodeManager
view release on metacpan or search on metacpan
lib/Prima/CodeManager/hilite/hilite_html.pl view on Meta::CPAN
$main::hilite{case_html} = 0;
$main::hilite{rexp_html} = [
# '(\/\/.*$)', { color => 0xaaaaaa,},
'(<\/*\w+>|<\w+|>)', { color => 0xcc0000,},
'(\$_.+?\})', { color => 0xff00ff,},
'(\$[A-Z]+\{.*?\})', { color => 0x0077ff,},
# '((alt|class|href|id|name|ondblclick|onclick|onfocus|onblur|readonly|READONLY|title|src|style|type|value)="[^\$<>]*?")', { color => 0x00aa55,},
'((alt|class|href|id|name|ondblclick|onclick|onblur|readonly|READONLY|title|src|style|type|value)(?=\s*=\s*"[^<>]*?"))', { color => 0x00aa55,},
# '((?<=onclick)\s*=\s*"[^\$<>]*?")', { color => 0xff00aa,},
# '((?<=ondblclick)\s*=\s*"[^\$<>]*?")',{ color => 0xff00aa,},
# '((?<=onblur)\s*=\s*"[^\$<>]*?")', { color => 0xff00aa,},
Cog
view release on metacpan or search on metacpan
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
// create selector for plugin
$.expr[ ":" ][ fullName.toLowerCase() ] = function( elem ) {
return !!$.data( elem, fullName );
};
$[ namespace ] = $[ namespace ] || {};
existingConstructor = $[ namespace ][ name ];
constructor = $[ namespace ][ name ] = function( options, element ) {
// allow instantiation without "new" keyword
if ( !this._createWidget ) {
return new constructor( options, element );
}
Compiler-Lexer
view release on metacpan or search on metacpan
gen/gen_decl.pl view on Meta::CPAN
Term SpecificValue $$
Term SpecificValue $<
Term SpecificValue $>
Term SpecificValue $(
Term SpecificValue $)
Term SpecificValue $[
Term SpecificValue $]
Term SpecificValue $;
Term SpecificValue $^A
Term SpecificValue $^D
Term SpecificValue $^E
Compiler-Parser
view release on metacpan or search on metacpan
src/compiler/util/Compiler_gen_token_decl.cpp view on Meta::CPAN
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$$"},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$<"},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$>"},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$("},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$)"},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$["},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$]"},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$;"},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$^A"},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$^D"},
{Enum::Token::Type::SpecificValue, Enum::Token::Kind::Term, "SpecificValue", "$^E"},
Compress-Raw-Bzip2
view release on metacpan or search on metacpan
2.023 9 November 2009
* Removed redundant bzip2 source files from the bzip2-src directory.
[RT# 47225]
* Fixed instance where $[ should have been $] in t/01bzip2.t
Thanks to Robin Barker and zefram [RT #50764] for independently
spotting the issue.
2.021 30 August 2009
Compress-Raw-Zlib
view release on metacpan or search on metacpan
TEST_SKIP_VERSION_CHECK environment variable.
[RT #54510]
2.023 9 November 2009
* fixed instance where $[ should have been $] in t/02zlib.t
Thanks to Robin Barker and zefram [RT #50765] for independently
spotting the issue.
2.021 30 August 2009
Config-Context
view release on metacpan or search on metacpan
lib/Config/Context.pm view on Meta::CPAN
$section_hash,
];
}
}
elsif ($match_type =~ /^substring$/i) {
if ((index $target_string, $section_string) != ($[ - 1)) {
# store matches as array ref where first element is
# the section's MergePriority, the second element is
# the length and the third is the config hash of
# matching section
Config-General-Match
view release on metacpan or search on metacpan
lib/Config/General/Match.pm view on Meta::CPAN
$section_hash,
];
}
}
elsif ($match_type =~ /^substring$/i) {
if ((index $target_string, $section_string) != ($[ - 1)) {
# store matches as array ref where first element is
# the section's MergePriority, the second element is
# the length and the third is the config hash of
# matching section
Config-General
view release on metacpan or search on metacpan
t/Tie/IxHash.pm view on Meta::CPAN
=head1 BUGS
You cannot specify a negative length to C<Splice>. Negative indexes are OK,
though.
Indexing always begins at 0 (despite the current C<$[> setting) for
all the functions.
=head1 TODO
Config-IOD-Reader
view release on metacpan or search on metacpan
lib/Config/IOD/Expr.pm view on Meta::CPAN
(?: \. [0-9]+ )?
(?: [eE] [-+]? [0-9]+ )?
)
)
(?<VAR> \$[A-Za-z_][A-Za-z0-9_]{0,63})
(?<STR_SINGLE>
(
'
(?:
Config-Identity
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
eval { Config::Identity->load_check('pause-alternate',[qw/notfound1 notfound2 password/]) };
like( $@, qr/^Missing required fields: notfound1 notfound2/, "load_check detected missing fields" );
my $checker = sub {
is( "$_", "$_[0]", "checker sub has same \$_ and \$[0]" );
cmp_deeply( $_, $expected, "checker sub has expected fields in \$_" );
return "notfound1"; # fake error
};
eval { Config::Identity->load_check('pause-alternate', $checker) };
Config-Irssi-Parser
view release on metacpan or search on metacpan
# treated specially .. window is printed with non-empty windows,
# window_empty is printed with empty windows
window = "{sb $winref:$itemname{sbmode $M}}";
window_empty = "{sb $winref{sbservertag $tag}}";
prompt = "{prompt $[.15]itemname}";
prompt_empty = "{prompt $winname}";
topic = " $topic";
topic_empty = " Irssi v$J - http://irssi.org/help/";
# all of these treated specially, they're only displayed when needed
Config-Manager
view release on metacpan or search on metacpan
lib/Config/Manager/Conf.pm view on Meta::CPAN
################################################################################
sub _name_ {
my $key = pop;
my $sec = pop || $DEFAULT;
return "\$[$sec]{$key}";
}
sub _not_found_ {
return "Configuration constant " . _name_(@_) . " not found";
}
lib/Config/Manager/Conf.pm view on Meta::CPAN
else { return( $variable, $rest ); }
}
}
else {
if ($section eq '') { $@ = "found '\$' followed by '$first', expecting '{' or [A-Za-z]"; }
else { $@ = "found '\$[$section]' followed by '$first', expecting '{' or [A-Za-z]"; }
return ();
}
}
1;
lib/Config/Manager/Conf.pm view on Meta::CPAN
TMP = $ROOT\tmp
# Ein neuer Abschnitt:
[FILES]
# Auch Variablen eines anderen Abschnitts sind verfuegbar:
TMPFILE1 = $[DIRECTORIES]{TMP}\tempfile1.txt
# Wer unbedingt Anfuehrungszeichen verwenden moechte, bitteschoen:
TMPFILE2 = "$[DIRECTORIES]{TMP}\tempfile2.txt"
# Noch ein Abschnitt
[DIVERSES]
# Wenn ich ein Dollarzeichen '$' brauche:
MS = "Micro$$oft"
# Backslash '\' hat keine Sonderbedeutung:
SW = Sun\$MS\IBM
# Wenn ich ein '$' vor einem '$' von einer Substitution brauche:
BD = $$$[SO]{WHAT}
# Variablennamen koennen in geschweifte Klammern gesetzt werden,
# muessen aber (ausser bei Indirektion) nicht:
MESSAGE1 = Schreibe alles nach $[FILES]TMPFILE1
MESSAGE2 = Schreibe alles nach $[FILES]{TMPFILE2}
# Ein Schluessel-Wert-Paar kann durch einen Dollar eingeleitet werden, um
# sowohl Shell- als auch Perl-Programmierer zufriedenzustellen :-). Der
# Dollar ist aber ohne Bedeutung, d.h. folgende Zeilen sind gleichwertig:
$KEY = Value
lib/Config/Manager/Conf.pm view on Meta::CPAN
wird dabei in eckige Klammern ("[]") eingefasst. Der Variablen-
name kann zur Vermeidung von Mehrdeutigkeiten in geschweifte
Klammern ("{}") eingefasst werden. Zwischen Abschnittsnamen und
Variablennamen darf kein Leerraum stehen. Beispiele:
$Var, $[Sec]Var, ${Var}, $[Sec]{Var}, Text${Var}Text
Der Name eines Abschnitts oder einer Variablen muss mit einem
Buchstaben beginnen, gefolgt von beliebig vielen Zeichen (auch
null) aus a-z, A-Z, 0-9, Unterstrich "_" und Bindestrich "-". Der
Name darf nicht mit einem Bindestrich enden.
lib/Config/Manager/Conf.pm view on Meta::CPAN
3) Die Indirektion ist grundsaetzlich nur zwischen Klammern
moeglich, da zwei aufeinanderfolgende Dollarzeichen ("$")
fuer ein literales Dollarzeichen stehen ("$$var" steht
fuer den literalen String "$var"). Beispiele:
$VAR, ${VAR}, ${$var}, $[SEC]VAR, $[SEC]{VAR},
$[SEC]{$var}, $[$sec]VAR, $[$sec]{VAR}, $[$sec]{$var}
4) Bei einer Indirektion kann eine Variable den Namen eines Abschnitts
ODER den Namen einer Variablen enthalten, aber nicht beides; z.B.:
$Section = Person
$Variable = Name
$Fullname = $[$Section]{$Variable}
Dagegen geht folgendes NICHT:
$Variable = Person::Name
$Fullname = ${$Variable}
lib/Config/Manager/Conf.pm view on Meta::CPAN
A S |
V S
V = $X |
${X} |
$[X]X | (Interpolation)
$[X]{X} |
---------------------------------
${V} |
$[V]X | (Indirektion)
$[V]{X} |
$[X]{V} |
$[V]{V}
X = (A-Za-z)(A-Za-z0-9_-)*
Erlaeuterungen:
lib/Config/Manager/Conf.pm view on Meta::CPAN
Der Wert "1" bedeutet "alles in Ordnung", der Wert "0" bedeutet, dass
es sich um eine Fehlermeldung handelt.
Der zweite Wert gibt den Namen der Konfigurationskonstanten in der Form
"C<$[SECTION]{VARIABLE}>" an.
Der dritte Wert enthaelt entweder den Wert der Konfigurationskonstanten
oder eine Fehlermeldung.
Der vierte Wert des Tupels gibt die Quelle an, aus dem die betreffende
lib/Config/Manager/Conf.pm view on Meta::CPAN
=item *
C<_name_([section,] key)>
Ich gebe den Namen in der Form C<$[section]{key}> zurueck. Ist
keine Section oder die DEFAULT-Section angegeben, dann wird als
Section C<[DEFAULT]> geschrieben.
=item *
C<_not_found_([section,] key)>
Ich gebe den String "C<Configuration constant $[section]{key} not found>"
zurueck. Ist keine Section oder die DEFAULT-Section angegeben,
dann wird als Section C<[DEFAULT]> geschrieben.
=item *
C<_read_only_([section,] key)>
Ich gebe den String "C<Configuration constant $[section]{key} is read-only>"
zurueck. Ist keine Section oder die DEFAULT-Section angegeben,
dann wird als Section C<[DEFAULT]> geschrieben.
=back
Config-Resolver
view release on metacpan or search on metacpan
lib/Config/Resolver.pm view on Meta::CPAN
# If no backend plugin exists, we can either 'croak' or just
# fall through and treat it as a literal string.
}
if ( $value =~ /\$[{]([\S]+?)[}]/xsm ) {
my %vars;
while ( $value =~ /\$[{]([\S]+?)[}]/xsmg ) {
my $p = $1;
my $v = $self->get_parameter( $parameters, $p );
{
lib/Config/Resolver.pm view on Meta::CPAN
if ( !exists $vars{$k} || !defined $vars{$k} ) {
$vars{$k} = q{};
print {*STDERR} "WARNING: $k is undefined!\n";
}
$value =~ s/\$[{]\Q$k\E[}]/$vars{$k}/xsmg;
}
return ( $value, $parameters );
}
if ( $value =~ /\$[{]([\S]+?)\s+([\w!=><]+)\s+(.+?)\s+\?\s+(.+?)\s+\:\s+(.+?)\s*[}]/ ) {
my %dispatch_ops = (
# Numeric
q{==} => sub { $_[0] == $_[1] },
q{!=} => sub { $_[0] != $_[1] },
q{>} => sub { $_[0] > $_[1] },
lib/Config/Resolver.pm view on Meta::CPAN
if !exists $dispatch_ops{$op};
my $is_true = $dispatch_ops{$op}->( $lhs, $rhs );
my $val = $is_true ? $alt_true : $alt_false;
$value =~ s/\$[{]([\S]+?)\s+([\w!=><]+)\s+(.+?)\s+\?\s+(.+?)\s+\:\s+(.+?)\s*[}]/$val/;
return ( $value, $parameters );
}
return ( $value, $parameters );
Convert-BinHex
view release on metacpan or search on metacpan
testin/hands_m.eps.hqx view on Meta::CPAN
!mrrd!2Irq`$jrmd!r2rN!2Mr!3!!!#lq!2Mrj3$lrmd!q2rm!2MrmJ$crr`!m[q
h!26rm`$hrr`!qIr-!2[rjJ$irri!!#lp!2Rrj3$lrm`!q2rp!2MrmJ$crrX!mrq
h!26rm`$hrrd!qIr,!2[rjJ$irri!!#lp!2MrjJ$mrmS!q2rq!2Mrm3$drrX!mrq
i!22rm`$hrri!qIr+!2[rjJ$irri!!$$p!2MrjJ$mrmN!q2m"!!$hrr)!mrrl!26
rZ!$drr)!prm"!!$irmS!qrrQ!2Rrr3!!,[`!qIrR!2[ra`$jr`!!prrb!22rq`$
erlF!p2rb!2Ir!!$irmJ!r2rR!2Mrr3!!*[`!q2rS!2[raJ$[rr%!p2rk!2ErZ!$
crr)!l[r(!2[rk!$irrd!!#Em!2Mrk!$mrm3!m2ra!22rq`$frlJ!p2ra!2$ra3$
lrqJ!q2rp!!!Qq`$jrqJ!r2r$!2(rm3$crrS!p[qk!22rm3$arm-!r2rS!2Rrr!!
!*[X!qIrS!2cr`J$brr!!mrrk!2IrZJ$crr%!m[r#!2crk!$jrr`!!#El!2Rrk3$
lrm%!mrr`!22rqJ$hrlX!mrr`!22r`3$mrqN!q2rm!!!Qq`$jrqN!r2r!!22rl`$
crrS!prqm!22rm!$drm!!qrrU!2Mrr!!!*[X!q2rU!2cr[`$drqm!m[rk!2Mr[3$
testin/hands_m.eps.hqx view on Meta::CPAN
(!2MrSJ$brp%!!",3!2(rT!$irmF!q2qM!2,rd!!!%Xm!mIqP!2Mra`$irk3!mIr
3!!!5cJ$arkB!q2r(!2MrT3$armm!!",0!2(rT`$irmF!prqR!2(rcJ!!%X`!mIq
S!2Mra`$hrkJ!mIr0!!!5b`$arkN!q2r(!2IrUJ$`rm`!!",+!2$rU`$irmB!q2q
V!2$rb`!!%XN!m2qY!2IraJ$irk`!m2r+!!!5b!$`rki!prr'!2MrV3$`rmN!!",
(!1rrX!$hrmB!prq`!1rrb!!!%XB!lrqa!2IraJ$hrl%!lrr(!!!5a3$Zrl3!p[r
'!2IrX`$[rm8!!",$!1rrY3$frmB!p[qe!1rra!!!%X)!l[qi!2Era3$frlF!l[r
$!!!5`3$YrlS!p[r%!2ErZJ$Yrm)!!",!!1hr[!$erm3!p[ql!1hr`3!!%Vi!lIq
q!2Ara!$erli!lIqr!!!5[3$Xrm%!pIr$!26r`3$Xrli!!"+m!1[ra!$drm-!mrr
%!1[r[3!!%VS!krr(!22r`J$crmJ!k[ql!!!5Z3$TrmX!mrr"!2,rb`$TrlS!!"+
h!1RrcJ$brm%!mIr1!1RrZ!!!%V8!k2r5!2(r`!$arp)!k2qf!!!5Y!$QrpF!m2q
q!2$re`$Qrl8!!"+b!1Arh!$[rld!lrrE!1ArX`!!%V!!irrK!1lr[!$Zrq%!irq
a!!!5VJ$KrqJ!l2qk!1crk3$Jrkm!!"+X!0hrm3$UrlJ!k[ra!0hrV3!!#US!ZIq
f!,RrU`!!#UJ![2qd!,crU3!!#UB![rqb!,rrT`!!#U3!`[q`!-2rT!!!#U%!a[q
Y!-MrS3!!#Ti!brqU!-crRJ!!#TX!d2qQ!0(rQ`!!#TF!e[qL!0IrP`!!#T-!hIq
F!0lrN`!!#Si!j[q8!1MrM3!!r`!!!3!!!&P,!!"B5`!!!1d"JaS%&JS!!!!F!+S
!"P4&69!!!!!k8%&(43!!!%C69&)J!!!!8P088L-!!!"H9%9B9!!!!'T`EQpd!!!
( run in 2.124 seconds using v1.01-cache-2.11-cpan-5735350b133 )