view release on metacpan or search on metacpan
lib/CPANPLUS/YACSmoke/ReAssemble.pm view on Meta::CPAN
my $path = shift;
my $offset = shift;
my $token = shift;
my $debug = shift;
my $path_end = [@{$path}[$offset..$#{$path}]];
# NB: $path->[$offset] and $[path_end->[0] are equivalent
my $token_key = _re_path($self, [$token]);
$debug and print "# insert node(@{[_dump($token)]}:@{[_dump(\@_)]}) (key=$token_key)",
" at path=@{[_dump($path_end)]}\n";
if( ref($path_end->[0]) eq 'HASH' ) {
if( exists($path_end->[0]{$token_key}) ) {
view release on metacpan or search on metacpan
docs/notes.lyx view on Meta::CPAN
\begin_layout Subsection
\begin_inset Formula $E_{0}$
\end_inset
,
\begin_inset Formula $[R_{min},R_{max}],$
\end_inset
\begin_inset Formula $w$
\end_inset
view release on metacpan or search on metacpan
lib/Catalyst/Helper/InitScript/FreeBSD.pm view on Meta::CPAN
[% app %]_chdir="[% base %]"
[% app %]_user="[% user %]"
[% app %]_group="[% group %]"
[% IF use_socket %]
if [ ! -w $[% app %]_pidfile ]; then
echo "ERROR: $[% app %]_pidfile is not writable."
exit 1
fi
[% END %]
. /etc/rc.subr
name="[% app %]"
rcvar=`set_rcvar`
command="$[% app %]_chdir/script/[% app %]_fastcgi.pl"
command_args="-listen [% listen %] -nproc [% nproc %] -pidfile $[% app %]_pidfile -daemon"
load_rc_config $name
procname="perl-fcgi-pm"
pidfile="$[% app %]_pidfile"
run_rc_command "$1"
view release on metacpan or search on metacpan
examples/TestApp/root/static/js/superfish.js view on Meta::CPAN
},
out = function(){
var $$ = $(this), menu = getMenu($$), o = sf.op;
clearTimeout(menu.sfTimer);
menu.sfTimer=setTimeout(function(){
o.retainPath=($.inArray($$[0],o.$path)>-1);
$$.hideSuperfishUl();
if (o.$path.length && $$.parents(['li.',o.hoverClass].join('')).length<1){over.call(o.$path);}
},o.delay);
},
getMenu = function($menu){
view release on metacpan or search on metacpan
lib/Catmandu/Importer/MARC/Line.pm view on Meta::CPAN
# split string by subfield code pattern
my @sf_values
= grep {length $_}
split
/\s?\$[a-z0-9!"#\$%&'\(\)\*\+'-\.\/:;<=>]\s/,
$sf;
if (scalar @sf_codes != scalar @sf_values) {
warn
'different number of subfield codes and values';
view release on metacpan or search on metacpan
lib/Catmandu/Path/simple.pm view on Meta::CPAN
sub split_path {
my ($self) = @_;
my $path = $self->path;
if (is_value($path)) {
$path = trim($path);
$path =~ s/^\$[\.\/]//;
$path = [map {s/\\(?=[\.\/])//g; $_} split /(?<!\\)[\.\/]/, $path];
return $path;
}
if (is_array_ref($path)) {
return $path;
view release on metacpan or search on metacpan
lib/Earabic.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Earabic.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Earabic
view release on metacpan or search on metacpan
lib/Ebig5hkscs.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Ebig5hkscs.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Ebig5hkscs
view release on metacpan or search on metacpan
lib/Ebig5plus.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Ebig5plus.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Ebig5plus
view release on metacpan or search on metacpan
lib/Ecyrillic.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Ecyrillic.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Ecyrillic
view release on metacpan or search on metacpan
lib/Eeucjp.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Eeucjp.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Eeucjp
view release on metacpan or search on metacpan
lib/Eeuctw.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Eeuctw.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Eeuctw
view release on metacpan or search on metacpan
lib/Egb18030.pm view on Meta::CPAN
$slash = 'div';
return $1;
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$slash = 'div';
return $1;
}
# while (<FILEHANDLE>)
lib/Egb18030.pm view on Meta::CPAN
$e_string .= $1;
$slash = 'div';
}
# $ $ $ $ $ $ $ $ $ $ $ $ $ $
# $ @ # \ ' " / ? ( ) [ ] < >
elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
$e_string .= $1;
$slash = 'div';
}
# subroutines of package Egb18030