Result:
found 1203 distributions and 1934 files matching your query !
( run in 3.073 )
cPanel-APIClient
view release on metacpan or search on metacpan
lib/cPanel/APIClient/Response/WHM1.pm view on Meta::CPAN
my $msgs = $output->{$type};
next if !$msgs;
if ( !ref $msgs ) {
$msgs = [ split m<\n>, $msgs ];
}
if ( 'ARRAY' eq ref $msgs ) {
push @messages, [ $type_xform{$type} => $_ ] for @$msgs;
}
circle-be
view release on metacpan or search on metacpan
lib/Circle/Command.pm view on Meta::CPAN
}
sub shortname
{
my $self = shift;
( split m/ /, $self->name )[-1];
}
sub is_default
{
my $self = shift; return $self->{Command_default};
circle-fe-term
view release on metacpan or search on metacpan
lib/Circle/FE/Term/Widget/Scroller.pm view on Meta::CPAN
# Quoted text
$format{bg} = "#303030";
$format{fg} = "#00C0C0";
# blockquotes get to be on their own line, with "> " prefixed on each
$text = join( "\n", map { "> $_" } split m/\n/, $text );
# surround the text by linefeeds
$str->append( "\n" ) if !$is_initial;
$needs_linefeed++;
}
combine
view release on metacpan or search on metacpan
Combine/HTMLExtractor.pm view on Meta::CPAN
defined $$NL{'http-equiv'} && $$NL{'http-equiv'} =~ /refresh/i
or
defined $$NL{'name'} && $$NL{'name'} =~ /refresh/i
) ) {
my( $timeout, $url ) = split m{;\s*?URL=}, $$NL{content},2;
my $base = $self->{_base};
$$NL{url} = URI->new_abs( $url, $base ) if $base;
$$NL{url} = $url unless exists $$NL{url};
$$NL{timeout} = $timeout if $timeout;
}
dvdrip
view release on metacpan or search on metacpan
dvd::rip exits after finishing, so this can be used for
simple batch transcoding a bunch of projects/titles, if
cluster mode is no option for you (e.g. in case of NTSC movies).
Thanks to Rainer Lay for his suggestion.
Example: dvdrip -t 1 -f transcode_split movie.rip
Bugfixes:
- Cluster mode: if a frame range was set, dvdrip-master
crashed with a fatal error (transcoding a frame range
is still not supported with cluster mode, but really no
extproc_perl
view release on metacpan or search on metacpan
* code in database now stored as VARCHAR2 instead of CLOB
* support for per-session namespaces (packages)
* renamed ExtProc::exception to ExtProc::ora_exception
* ExtProc::is_function & ExtProc::is_procedure will tell you the
context of the current call
* split module shared objects into their own library, libperlxsi,
so they can be maintained separately from extproc_perl.so
* perlxsi.mk Makefile is installed to facilitate linking new modules
* perl_config view contains configuration settings
iPerl
view release on metacpan or search on metacpan
cgi-bin/web-iPerl view on Meta::CPAN
'xpm?' => [-type => 'image/x-xpixmap'],
'' => [-type => 'text/plain'];
}
my( $directory, $file ) = split m!/(?=[^/]*$)!, $ENV{PATH_TRANSLATED};
@type = (@{_case $file, @autotype_by_name},
-X_Powered_By => "Text::iPerl/$VERSION <http://beam.to/iPerl>");
$header = header @type;
ifdef
view release on metacpan or search on metacpan
lib/ifdef.pm view on Meta::CPAN
# OUT: 1 processed string (in place change if called in void context)
sub process {
# process all lines
my @line= split m#(?<=$/)#, $_[0];
&reset;
local $_= \my $foo;
&oneline foreach @line;
# close of activating section (e.g. when called by "load")
jQuery-Loader
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
return $_[1];
};
}
{
map { my ($pk, $vr) = split m/\s/; build_requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Test::Most
Directory::Scratch
_END_
map { my ($pk, $vr) = split m/\s/; requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Carp::Clan::Share
File::Copy
HTML::Declare
LWP::UserAgent
Moose
Makefile.PL view on Meta::CPAN
URI
_END_
}
if (-e 'inc/.author') {
my $all_from = join '/', 'lib', split m/-/, name . '.pm';
`perldoc -tF $all_from > README` if ! -e 'README' || (stat $all_from)[9] > (stat 'README')[9];
}
tests_recursive;
jmx4perl
view release on metacpan or search on metacpan
inc/Module-Build/Module/Build/Base.pm view on Meta::CPAN
@{ $self->rscan_dir($dir, file_qr("\\.$type\$")) } };
}
sub localize_file_path {
my ($self, $path) = @_;
return File::Spec->catfile( split m{/}, $path );
}
sub localize_dir_path {
my ($self, $path) = @_;
return File::Spec->catdir( split m{/}, $path );
}
sub fix_shebang_line { # Adapted from fixin() in ExtUtils::MM_Unix 1.35
my ($self, @files) = @_;
my $c = ref($self) ? $self->{config} : 'Module::Build::Config';
mb
view release on metacpan or search on metacpan
else {
$parsed .= sprintf('{@{[' . 'qr%s%s ]}}%s', $regexp, $modifier_not_cegir, $modifier_cegr);
}
}
# split m/^/ --> mb::_split qr/^/m
# split m/.../ --> mb::_split qr/.../
elsif (/\G ( m | qr ) \b /xmsgc) {
$parsed .= "qr";
if (/\G ( [#] ) /xmsgc) { $regexp = parse_re_endswith('m',$1); } # split qr#...#
elsif (/\G ( ['] ) /xmsgc) { $regexp = parse_re_as_q_endswith('m',$1); } # split qr'...'
y/MBCS-search/MBCS-replacement/cdsr s{[\x00-\xFF]*}{mb::tr($&,q/OO-search/,q/OO-replacement/,'cdsr')}ser
y/MBCS-search/MBCS-replacement/cds s{[\x00-\xFF]+}{mb::tr($&,q/OO-search/,q/OO-replacement/,'cdsr')}se
y/MBCS-search/MBCS-replacement/ds s{[\x00-\xFF]+}{mb::tr($&,q/OO-search/,q/OO-replacement/,'dsr')}se
qr'MBCS-quotee'cgimosx qr{\G${mb::_anchor}@{[mb::_ignorecase(qr'OO-quotee'mosx)]}@{[mb::_m_passed()]}}cg
qr'MBCS-quotee'cgmosx qr{\G${mb::_anchor}@{[qr'OO-quotee'mosx ]}@{[mb::_m_passed()]}}cg
split m'^' mb::_split qr{@{[qr'^'m ]}}
split m'MBCS-quotee'cgimosx mb::_split qr{@{[mb::_ignorecase(qr'OO-quotee'mosx)]}}cg
split m'MBCS-quotee'cgmosx mb::_split qr{@{[qr'OO-quotee'mosx ]}}cg
split qr'^' mb::_split qr{@{[qr'^'m ]}}
split qr'MBCS-quotee'cgimosx mb::_split qr{@{[mb::_ignorecase(qr'OO-quotee'mosx)]}}cg
split qr'MBCS-quotee'cgmosx mb::_split qr{@{[qr'OO-quotee'mosx ]}}cg
mb::split qr'^' mb::_split qr{@{[qr'^'m ]}}
mb::split qr'MBCS-quotee'cgimosx mb::_split qr{@{[mb::_ignorecase(qr'OO-quotee'mosx)]}}cg
qr/MBCS-quotee/cgimosx qr{\G${mb::_anchor}@{[mb::_ignorecase(qr/OO-quotee/mosx)]}@{[mb::_m_passed()]}}cg
qr/MBCS-quotee/cgmosx qr{\G${mb::_anchor}@{[qr/OO-quotee/mosx ]}@{[mb::_m_passed()]}}cg
split /^/ mb::_split qr{@{[qr/^/m ]}}
split /MBCS-quotee/cgimosx mb::_split qr{@{[mb::_ignorecase(qr/OO-quotee/mosx)]}}cg
split /MBCS-quotee/cgmosx mb::_split qr{@{[qr/OO-quotee/mosx ]}}cg
split m/^/ mb::_split qr{@{[qr/^/m ]}}
split m/MBCS-quotee/cgimosx mb::_split qr{@{[mb::_ignorecase(qr/OO-quotee/mosx)]}}cg
split m/MBCS-quotee/cgmosx mb::_split qr{@{[qr/OO-quotee/mosx ]}}cg
split qr/^/ mb::_split qr{@{[qr/^/m ]}}
split qr/MBCS-quotee/cgimosx mb::_split qr{@{[mb::_ignorecase(qr/OO-quotee/mosx)]}}cg
split qr/MBCS-quotee/cgmosx mb::_split qr{@{[qr/OO-quotee/mosx ]}}cg
mb::split qr/^/ mb::_split qr{@{[qr/^/m ]}}
mb::split qr/MBCS-quotee/cgimosx mb::_split qr{@{[mb::_ignorecase(qr/OO-quotee/mosx)]}}cg
m:MBCS-quotee:cgmosx m{\G${mb::_anchor}@{[qr`OO-quotee`mosx ]}@{[mb::_m_passed()]}}cg
s:MBCS-regexp:MBCS-replacement:eegimosxr s{(\G${mb::_anchor})@{[mb::_ignorecase(qr`OO-regexp`mosx)]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q:OO-replacement:}egr
s:MBCS-regexp:MBCS-replacement:eegmosxr s{(\G${mb::_anchor})@{[qr`OO-regexp`mosx ]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q:OO-replacement:}egr
qr:MBCS-quotee:cgimosx qr{\G${mb::_anchor}@{[mb::_ignorecase(qr`OO-quotee`mosx)]}@{[mb::_m_passed()]}}cg
qr:MBCS-quotee:cgmosx qr{\G${mb::_anchor}@{[qr`OO-quotee`mosx ]}@{[mb::_m_passed()]}}cg
split m:^: mb::_split qr{@{[qr`^`m ]}}
split m:MBCS-quotee:cgimosx mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
split m:MBCS-quotee:cgmosx mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
split qr:^: mb::_split qr{@{[qr`^`m ]}}
split qr:MBCS-quotee:cgimosx mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
split qr:MBCS-quotee:cgmosx mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
mb::split qr:^: mb::_split qr{@{[qr`^`m ]}}
mb::split qr:MBCS-quotee:cgimosx mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
m@MBCS-quotee@cgmosx m{\G${mb::_anchor}@{[qr`OO-quotee`mosx ]}@{[mb::_m_passed()]}}cg
s@MBCS-regexp@MBCS-replacement@eegimosxr s{(\G${mb::_anchor})@{[mb::_ignorecase(qr`OO-regexp`mosx)]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q@OO-replacement@}egr
s@MBCS-regexp@MBCS-replacement@eegmosxr s{(\G${mb::_anchor})@{[qr`OO-regexp`mosx ]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q@OO-replacement@}egr
qr@MBCS-quotee@cgimosx qr{\G${mb::_anchor}@{[mb::_ignorecase(qr`OO-quotee`mosx)]}@{[mb::_m_passed()]}}cg
qr@MBCS-quotee@cgmosx qr{\G${mb::_anchor}@{[qr`OO-quotee`mosx ]}@{[mb::_m_passed()]}}cg
split m@^@ mb::_split qr{@{[qr`^`m ]}}
split m@MBCS-quotee@cgimosx mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
split m@MBCS-quotee@cgmosx mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
split qr@^@ mb::_split qr{@{[qr`^`m ]}}
split qr@MBCS-quotee@cgimosx mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
split qr@MBCS-quotee@cgmosx mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
mb::split qr@^@ mb::_split qr{@{[qr`^`m ]}}
mb::split qr@MBCS-quotee@cgimosx mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
m#MBCS-quotee#cgmosx m{\G${mb::_anchor}@{[qr#OO-quotee#mosx ]}@{[mb::_m_passed()]}}cg
s#MBCS-regexp#MBCS-replacement#eegimosxr s{(\G${mb::_anchor})@{[mb::_ignorecase(qr#OO-regexp#mosx)]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q#OO-replacement#}egr
s#MBCS-regexp#MBCS-replacement#eegmosxr s{(\G${mb::_anchor})@{[qr#OO-regexp#mosx ]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q#OO-replacement#}egr
qr#MBCS-quotee#cgimosx qr{\G${mb::_anchor}@{[mb::_ignorecase(qr#OO-quotee#mosx)]}@{[mb::_m_passed()]}}cg
qr#MBCS-quotee#cgmosx qr{\G${mb::_anchor}@{[qr#OO-quotee#mosx ]}@{[mb::_m_passed()]}}cg
split m#^# mb::_split qr{@{[qr#^#m ]}}
split m#MBCS-quotee#cgimosx mb::_split qr{@{[mb::_ignorecase(qr#OO-quotee#mosx)]}}cg
split m#MBCS-quotee#cgmosx mb::_split qr{@{[qr#OO-quotee#mosx ]}}cg
split qr#^# mb::_split qr{@{[qr#^#m ]}}
split qr#MBCS-quotee#cgimosx mb::_split qr{@{[mb::_ignorecase(qr#OO-quotee#mosx)]}}cg
split qr#MBCS-quotee#cgmosx mb::_split qr{@{[qr#OO-quotee#mosx ]}}cg
mb::split qr#^# mb::_split qr{@{[qr#^#m ]}}
mb::split qr#MBCS-quotee#cgimosx mb::_split qr{@{[mb::_ignorecase(qr#OO-quotee#mosx)]}}cg
/[abc 123]/xx m{\G${mb::_anchor}@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xx ]}@{[mb::_m_passed()]}}
m/[abc 123]/xx m{\G${mb::_anchor}@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xx ]}@{[mb::_m_passed()]}}
qr/[abc 123]/xx qr{\G${mb::_anchor}@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xx ]}@{[mb::_m_passed()]}}
s/[abc 123]//xx s{(\G${mb::_anchor})@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xx ]}@{[mb::_s_passed()]}}{$1 . qq //}e
split /[abc 123]/xx mb::_split qr{@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xxm ]}}
split m/[abc 123]/xx mb::_split qr{@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xxm ]}}
$` mb::_PREMATCH()
${`} mb::_PREMATCH()
$PREMATCH mb::_PREMATCH()
${PREMATCH} mb::_PREMATCH()
${^PREMATCH} mb::_PREMATCH()
mod_perl
view release on metacpan or search on metacpan
docs/os/win32/Changes.pod view on Meta::CPAN
The most recent changes are listed first.
=head1 Thu May 30 16:44:02 SGT 2002
* split modperl2 into config and install
[Randy Kobes E<lt>randy@theoryx5.uwinnipeg.caE<gt>]
=head1 Thu May 30 12:20:02 SGT 2002
* win32::modperl2 initial docs
mogilefs-server
view release on metacpan or search on metacpan
wrapper. (in particular, lighttpd and apache) mogstored still
exists for all its other misc admin/monitoring functions,
but can then manage/configure apache/lighttpd child process(es).
so far they're just stubbed out.
* split mogstored into separate files per class, rather than one
large script.
2007-04-24: Release version 2.10
* bug from earlier refactoring: changing some 'next' to 'return'
o2sms
view release on metacpan or search on metacpan
Fixed meteor support.
3.31 2008-11-20
Added dependency for testgen 0.10 to fix split message bug.
3.30 2008-11-19
Fix for o2.
Fix when there's leading space in config file.
onsearch
view release on metacpan or search on metacpan
cgi/archive.cgi view on Meta::CPAN
my ($fname, $content_type, $file, @plugins, $tmpfname, $oldrs);
($boundary) = ($ENV{CONTENT_TYPE} =~ /boundary=(.*)/i);
$content_length = $ENV{CONTENT_LENGTH};
binmode STDIN, ':crlf';
read STDIN, $content, $content_length;
@content = split m"--$boundary", $content;
foreach my $cs (@content) {
if ($cs =~ /filename=/is) {
($fname) = ($cs =~ /filename=\"(.*)\"/);
($content_type) = ($cs =~ /Content-Type:\s+(\S+)/);
($file) = ($cs =~ /\015\012\015\012(.*)\015\012/s);
ora
view release on metacpan or search on metacpan
scripts/or.pl view on Meta::CPAN
my @hits = Bio::ORA->getHits($seq, 1, $ref);
if ($#hits >= 0)
{
for (my $i = 0 ; $i <= $#hits ; $i++)
{
my ($hitstrand, $hitstart, $hitend) = split m/\|/, $hits[$i];
my $seqstart = $hitstart - 250;
$seqstart = 1 if ($seqstart < 1);
my $seqend = $hitend + 250;
$seqend = $seq->length() if ($seqend > $seq->length());
my $seq_or = Bio::Seq->new(
perl
view release on metacpan or search on metacpan
Porting/add-package.pl view on Meta::CPAN
print "done\n" if $Verbose;
}
### copy over change log
my @Changes;
foreach my $cl (split m/\s+/ => $Changes) {
-f $cl or next;
push @Changes, $cl;
print "Copying $cl files to $TopDir..." if $Verbose;
system( "cp -f $CPV $cl $TopDir" )
perl5i
view release on metacpan or search on metacpan
lib/perl5i/2/SCALAR.pm view on Meta::CPAN
|| $defaults->{grouping});
my $decimal_point = $opts->{decimal_point} // (_get_from_locale("decimal_point", $is_money)
|| $defaults->{decimal_point});
return $self if $grouping == 0;
my($integer, $decimal) = split m{\.}, $self, 2;
$integer = CORE::reverse $integer;
$integer =~ s/(\d{$grouping})(?=\d)(?!\d*\.)/$1$sep/g;
$integer = CORE::reverse $integer;
perl_mlb
view release on metacpan or search on metacpan
File/Spec/OS2.pm view on Meta::CPAN
}
sub splitdir {
my ($self,$directories) = @_ ;
split m|[\\/]|, $directories, -1;
}
sub catpath {
my ($self,$volume,$directory,$file) = @_;
ph
view release on metacpan or search on metacpan
my ($repo, $user);
if (@ARGV==2) {
($user, $repo) = @ARGV;
} elsif (@ARGV==1) {
if ($ARGV[0] =~ m{/}) {
($user, $repo) = split m{/}, $ARGV[0];
}
else {
($user, $repo) = ($me, $ARGV[0]);
}
}
podlators
view release on metacpan or search on metacpan
lib/Pod/Man.pm view on Meta::CPAN
# Output any pending index entries, and optionally an index entry given as an
# argument. Support multiple index entries in X<> separated by slashes, and
# strip special escapes from index entries.
sub outindex {
my ($self, $section, $index) = @_;
my @entries = map { split m%\s*/\s*% } @{ $$self{INDEX} };
return unless ($section || @entries);
# We're about to output all pending entries, so clear our pending queue.
$$self{INDEX} = [];
ppt
view release on metacpan or search on metacpan
util/lib/PPT/Util.pm view on Meta::CPAN
foreach ( @{$contrib} ) {
mkdir "$HTML/commands/$basename";
io("$SRC/$basename/$_->{name}") > io("$HTML/commands/$basename/$_->{name}");
if ( $_->{support} ) {
io("$SRC/$basename/$_") > io("$HTML/commands/$basename/$_")
for split m/\s+/, $_->{support};
}
}
}
sub copy_v7doc {
smokeinabox
view release on metacpan or search on metacpan
cpansmokebox/inc/bundle/File/Spec/OS2.pm view on Meta::CPAN
}
sub splitdir {
my ($self,$directories) = @_ ;
split m|[\\/]|, $directories, -1;
}
sub catpath {
my ($self,$volume,$directory,$file) = @_;
sofu
view release on metacpan or search on metacpan
lib/Data/Sofu/SofuML.pm view on Meta::CPAN
$string =~ s/\</</g;
$string =~ s/\>/>/g;
$string =~ s/\"/"/g;
$string =~ s/\'/'/g;
$string=~s"^([\s\n\x0A]+)"join '',map {sprintf('&#x%X;' ,ord($_))} split //,$1"emg;
$string=~s/([\s\n\x0A]+)$/join '',map {sprintf('&#x%X;' ,ord($_))} split m##,$1/emg;
$string =~ s/([\s]+)/$self->whiteescape($1)/eg;
$string=~s/([\ ]{2,})/join '',map {sprintf('&#x%X;' ,ord($_))} split m##,$1/eg;
$string=~s/\n/"\n".$self->indent($level)/eg;
#$string=~s/\n/$self->indent($level)."\n"/eg;
return $string;
#return $self->indent($level).$string; #makes bad Juju with XSLT
}
stockmonkey
view release on metacpan or search on metacpan
examples/precursor-bayesian-nightmare-stockmonkey.pl view on Meta::CPAN
my $dbo = MySQL::Easy->new("scratch"); # reads .my.cnf for password and host
my @tickers = split(m/[^A-Z]/, shift || "JPM,SCTY,P,TSLA,ATVI,HIMX,ZNGA,BEARX");
my $phist = shift || 180; # final plot history items
my $slurpp = "10 years"; # data we want to fetch
my @proj = map {[map {int $_} split m{/}]} @ARGV; # projections
# proj is a list of projections to consider, days/percent
@proj = (
[10,3],[10,5],[10,10],
[20,3],[20,5],[20,10],
examples/precursor-bayesian-nightmare-stockmonkey.pl view on Meta::CPAN
$adx = int(100 * $adx);
for (10, 20, 30, 40, 50) { $events{"adx_$_"} = 1 if $adx >= $_ }
}
if( defined ( my $bbs = $row->{'BOLL(2,20)'}) ) {
my ($L, $M, $U) = map {$_ eq "-" ? undef : (0.0+$_)} split m{/}, $bbs;
if( defined $L and defined $M and defined $U ) {
$events{boll_overbought} = 1 if $row->{close} >= $U;
$events{boll_oversold} = 1 if $row->{close} <= $L;
}
}
supertag
view release on metacpan or search on metacpan
return $str;
}
sub ensure_dir {
my $dir = shift;
my @parts = split m{/} => $dir;
my $x = '';
while (@parts) {
$x .= '/' . shift @parts;
if ($x && !-d $x) {
syntax
view release on metacpan or search on metacpan
lib/syntax.pm view on Meta::CPAN
my ($class, $feature) = @_;
my $name =
join '/',
map ucfirst,
split m{/},
join '',
map ucfirst,
split qr{_}, $feature;
my $file = "Syntax/Feature/${name}.pm";
triceps
view release on metacpan or search on metacpan
doc/html/guide.html view on Meta::CPAN
</p><pre class="programlisting">$ref_results = Triceps::Braced::split_braced_final($string);
confess "Unbalanced braces around '$string'" if $string;</pre><p>
The combined functionality of splitting a string and un-escaping
the result elements. That's why it's final: no further splits must be
done after un-escaping. <span class="bold"><strong>The return value is different from the
other split methods.</strong></span> It is a reference to the array of result
strings. The difference has been introduced to propagate the <code class="computeroutput">undef</code>
from the argument to the result: if the argument string is <code class="computeroutput">undef</code>,
the result will be also <code class="computeroutput">undef</code>, <span class="bold"><strong>not</strong></span> a reference to an
empty array. The string gets consumed in the same way as for the
other split methods, and anything left in it indicates an unbalanced
brace.
</p></div><div class="sect1" title="19.17. FnReturn reference"><div class="titlepage"><div><div><h2 class="title" style="clear: both"><a name="sc_ref_fnreturn"></a>19.17. FnReturn reference</h2></div></div></div><a class="indexterm" name="idm9104">...
The FnReturn represents the return value of a streaming function.
The return value consists of a stream of rowops, and gets processed
by sending them to the labels through a binding.
uHTML
view release on metacpan or search on metacpan
my $Value = shift ;
return '' unless $Value or $Node->{Attributes} and ($Value = $Node->{Attributes}->{$Attr}) ne '' ;
my( $func,$par,$tail,$sub,$rsub ) ;
my @subs = split m/(?<!\\)\$(?=[a-zA-Z_\$])/s,$Value ;
while( $#subs > 0 )
{
$rsub++ ;
next unless $sub = pop @subs ;
$sub =~ s/\\(?=\$)//s ;
( run in 3.073 seconds using v1.01-cache-2.11-cpan-71847e10f99 )