view release on metacpan or search on metacpan
lib/Farabi/files/public/assets/codemirror/mode/markdown/markdown.js view on Meta::CPAN
state.linkTitle = false;
var matchCh = ch;
if (ch === '(') {
matchCh = ')';
}
matchCh = (matchCh+'').replace(/([.?*+^$[\]\\(){}|-])/g, "\\$1");
var regex = '^\\s*(?:[^' + matchCh + '\\\\]+|\\\\\\\\|\\\\.)' + matchCh;
if (stream.match(new RegExp(regex), true)) {
return linkhref;
}
}
lib/Farabi/files/public/assets/codemirror/mode/markdown/markdown.js view on Meta::CPAN
var savedInlineRE = [];
function inlineRE(endChar) {
if (!savedInlineRE[endChar]) {
// Escape endChar for RegExp (taken from http://stackoverflow.com/a/494122/526741)
endChar = (endChar+'').replace(/([.?*+^$[\]\\(){}|-])/g, "\\$1");
// Match any non-endChar, escaped character, as well as the closing
// endChar.
savedInlineRE[endChar] = new RegExp('^(?:[^\\\\]|\\\\.)*?(' + endChar + ')');
}
return savedInlineRE[endChar];
view release on metacpan or search on metacpan
CHUNK:
while (length($self->{inbuf}) > 0) {
# In the middle of a tag?
if ($self->{intag}) {
# Look for the stuff key
if ((my $i = index($self->{inbuf}, KEY)) != $[-1) {
if (substr($self->{inbuf}, $i+KEYLEN, 1) eq 'X') {
# If there's an X at the end, it's literal
substr($self->{inbuf}, $i+KEYLEN, 1) = "";
} else {
# Otherwise, we've got a complete waveform/expr/whatever
if ($rbuf =~ s/^(WV|LP|ER|OK)\n$//s) {
$tag = $1;
last if $tag eq 'OK' or $tag eq 'ER';
}
if ((my $i = index($rbuf, KEY)) != $[-1) {
if (substr($rbuf, $i+KEYLEN, 1) eq 'X') {
substr($rbuf, $i+KEYLEN, 1) = "";
} else {
$rest = substr($rbuf, $i+KEYLEN);
substr($rbuf, $i) = "";
view release on metacpan or search on metacpan
lib/File/Basename/Object.pm view on Meta::CPAN
return $old_path;
}
sub suffixlist {
my($self, @suffixes) = @_;
my @old_suffixes = @{$self}[$[ + 1 .. $#$self];
splice(@$self, $[ + 1, $#$self, @suffixes) if(@_ > 1);
return @old_suffixes;
}
sub no_suffixes {
my $self = shift;
lib/File/Basename/Object.pm view on Meta::CPAN
sub _compare_basename {
my($a, $b) = @_;
if(UNIVERSAL::isa($b, __PACKAGE__)) {
return scalar($a->fileparse) cmp scalar($b->fileparse);
} else {
return $a->_compare_basename(__PACKAGE__->new($b, @{$a}[ $[ + 1 .. $#$a ]));
}
}
__END__
view release on metacpan or search on metacpan
script/rsybak view on Meta::CPAN
# (?: \. [0-9]+ )?
# (?: [eE] [-+]? [0-9]+ )?
# )
#)
#
#(?<VAR> \$[A-Za-z_][A-Za-z0-9_]{0,63})
#
#(?<STR_SINGLE>
# (
# '
# (?:
view release on metacpan or search on metacpan
FileList/configure view on Meta::CPAN
' >$as_me.lineno &&
chmod +x $as_me.lineno ||
{ echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2
{ (exit 1); exit 1; }; }
# Don't try to exec as it changes $[0], causing all sort of problems
# (the dirname of $[0] is not the place where we might find the
# original and so on. Autoconf is especially sensible to this).
. ./$as_me.lineno
# Exit status is that of the last command.
exit
}
FileList/configure view on Meta::CPAN
chmod +x $as_me.lineno ||
{ { echo "$as_me:$LINENO: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&5
echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2;}
{ (exit 1); exit 1; }; }
# Don't try to exec as it changes $[0], causing all sort of problems
# (the dirname of $[0] is not the place where we might find the
# original and so on. Autoconf is especially sensible to this).
. ./$as_me.lineno
# Exit status is that of the last command.
exit
}
FileList/configure view on Meta::CPAN
# CDPATH.
$as_unset CDPATH
exec 6>&1
# Open the log real soon, to keep \$[0] and so on meaningful, and to
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling. Logging --version etc. is OK.
exec 5>>config.log
{
echo
view release on metacpan or search on metacpan
' >$as_me.lineno &&
chmod +x $as_me.lineno ||
{ echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2
{ (exit 1); exit 1; }; }
# Don't try to exec as it changes $[0], causing all sort of problems
# (the dirname of $[0] is not the place where we might find the
# original and so on. Autoconf is especially sensible to this).
. ./$as_me.lineno
# Exit status is that of the last command.
exit
}
chmod +x $as_me.lineno ||
{ { echo "$as_me:$LINENO: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&5
echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2;}
{ (exit 1); exit 1; }; }
# Don't try to exec as it changes $[0], causing all sort of problems
# (the dirname of $[0] is not the place where we might find the
# original and so on. Autoconf is especially sensible to this).
. ./$as_me.lineno
# Exit status is that of the last command.
exit
}
# CDPATH.
$as_unset CDPATH
exec 6>&1
# Open the log real soon, to keep \$[0] and so on meaningful, and to
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling. Logging --version etc. is OK.
exec 5>>config.log
{
echo
view release on metacpan or search on metacpan
demo/Demo2a.pm view on Meta::CPAN
package Demo2a;
$VERSION = '0.01';
use Filter::Simple sub {
s/(\$[a-z])/\U$1/g;
};
1;
view release on metacpan or search on metacpan
lib/Fixed.pm view on Meta::CPAN
};
my $KEYWORD = 'fix';
my $CLASS = __PACKAGE__;
my $PERLSVAR = qr{\$[^\W0-9]\w*};
my $SPACE = qr{(?:\s|\#.*?\n)*}s;
sub import
{
require Keyword::Simple;
view release on metacpan or search on metacpan
lib/Flip/Flop.pm view on Meta::CPAN
my @flipflops; # Flip::Flops encountered
my $startProcess = $$; # Starting process
sub AUTOLOAD # Any method will do
{push @flipflops, $Flip::Flop::AUTOLOAD unless @_; # No parameters: flop switch, with parameters: flip switch to $[0]
$_[0]
}
END
{if ($startProcess eq $$) # Reset the flip flops once in the starting process