view release on metacpan or search on metacpan
lib/Sub/Starter.pm view on Meta::CPAN
if( $parsed->{-returns_alternate} ){
$parsed->{-returns_alternate} = { _parse_variable( $parsed, $parsed->{-returns_alternate} ) };
croak "alternative return variable is not a scalar" if $parsed->{-returns_alternate}{-type} ne 'scalar';
}
for my $var ( split m{ \, }msx, $list ){
if( $seen{$var} ++ ){
croak "Return parameter $var repeated";
}
my %attr = _parse_variable( $parsed, $var );
push @{ $parsed->{-returns} }, { %attr };
lib/Sub/Starter.pm view on Meta::CPAN
if( $param_part =~ m{ \A ([^;]*) \; (.*) }msx ){
$param_part = $1;
$opt_params = $2;
}
for my $param ( split m{ \, }msx, $param_part ){
if( $seen{$param} ++ ){
die "Parameter $param repeated\n";
}
my %attr = _parse_variable( $parsed, $param );
push @{ $parsed->{-parameters} }, { %attr };
if( $attr{-type} eq 'array' or $attr{-type} eq 'hash' ){
die "array or hash may only occur at end of parameter list" if $list_var ++;
}
}
for my $param ( split m{ \, }msx, $opt_params ){
if( $seen{$param} ++ ){
die "Parameter $param repeated\n";
}
my %attr = _parse_variable( $parsed, $param );
push @{ $parsed->{-parameters} }, { optional=>1, %attr };
lib/Sub/Starter.pm view on Meta::CPAN
if( $line =~ m{ \A (.*?) \e\[1m \( ([^\)]*) \) \e\[0?m (.*) }msx ){
my $front = $1;
my $item = $2;
my $back = $3;
my ( $directive, @arguments ) = split m{ \s+ }msx, $item;
my $expansion; # array reference
if( exists $Expand{$directive} ){
$expansion = &{ $Expand{$directive} }( $self, @arguments );
}else{
view release on metacpan or search on metacpan
lib/Symbol/Get.pm view on Meta::CPAN
#----------------------------------------------------------------------
sub _get_module_table_hr {
my ($module) = @_;
my @nodes = split m<::>, $module;
my $table_hr = \%main::;
my $pkg = q<>;
view release on metacpan or search on metacpan
lib/Syntax/Feature/Ql.pm view on Meta::CPAN
method _run_callback {
return sub ($) {
my $string = shift;
$string =~ s{(?:^\s+|\s+$)}{}gsm;
return join ' ', split m{\s*\n\s*}, $string;
};
}
method _transform ($class: $name, $ctx) {
$ctx->skip_declarator;
view release on metacpan or search on metacpan
lib/Syntax/Feature/Sugar/Callbacks.pm view on Meta::CPAN
my @default = @{ $cb_options->{ -default } || [] };
my $signature = $ctx->strip_proto;
return [@invocants], [@default]
unless defined $signature and length $signature;
my @parts =
map { [ split m{ \s* , \s* }x, $_ ] }
split m{ \s* : \s* }x, $signature;
return @parts == 1 ? ([@invocants], @parts)
: @parts == 2 ? (@parts)
: @parts == 0 ? ([@invocants], [])
: croak q{Only expected to find a single ':' in signature};
}
view release on metacpan or search on metacpan
lib/Syntax/Highlight/Universal/hrc/auto/types/irclog.hrc view on Meta::CPAN
<scheme name="irclog">
<!-- Server messages -->
<regexp match="/\M(\*\*\*.*$)/" region1="Comment"/>
<!-- Join/split messages -->
<regexp match="/^ .*? (has (joined|quit|left).*?$)/ix" region="Parameter"/>
<!-- Nick highlight -->
<!-- TODO: need to use only non-whitespace chars within <> -->
<regexp match="/(<.*?>)/i" region="String"/>
<!-- Time marker -->
view release on metacpan or search on metacpan
lib/Syntax/Keyword/Match/Deparse.pm view on Meta::CPAN
my $kid = $o->flags & OPf_KIDS ? $o->first : undef;
if( $kid && !B::Deparse::null($kid) ) {
$ret .= "[\n";
while( $kid && !B::Deparse::null($kid) ) {
$ret .= join( "\n", map { " $_" } split m/\n/, op_dump($kid) ) . "\n";
$kid = $kid->sibling;
}
$ret .= "]";
}
view release on metacpan or search on metacpan
t/12deparse.t view on Meta::CPAN
# Deparsed output is '{ ... }'-wrapped
$got = ( $got =~ m/^{\n(.*)\n}$/s )[0];
# Deparsed output will have a lot of pragmata and so on; just grab the
# final line
$got = ( split m/\n/, $got )[-1];
$got =~ s/^\s+//;
is( $got, $exp, $name );
}
view release on metacpan or search on metacpan
t/12deparse.t view on Meta::CPAN
# Deparsed output is '{ ... }'-wrapped
$got = ( $got =~ m/^{\n(.*)\n}$/s )[0];
# Deparsed output will have a lot of pragmata and so on; just grab the
# final line
$got = ( split m/\n/, $got )[-1];
$got =~ s/^\s+//;
is( $got, $exp, $name );
}
view release on metacpan or search on metacpan
lib/Sys/Facter.pm view on Meta::CPAN
if (@invalid) {
croak "Invalid fact names: @invalid\n";
}
if (not @facts) {
@facts = map { (split m{[/.]})[-2] }
grep { m{/[a-z0-9_]+\.pm$} && -f $_ }
map { glob "$_/Pfacter/*.pm" }
@{ $self->{var}{modules} }, @INC;
}
view release on metacpan or search on metacpan
builder/Build/Spec.pm view on Meta::CPAN
$buf .= $line;
}
$fh->close || croak "Can not close $file: $!";
croak 'Unable to get ABSTRACT' if ! $buf;
$buf = trim( $buf );
my($mod, $desc) = split m{\-}xms, $buf, 2;
$desc = trim( $desc ) || croak 'Unable to get ABSTRACT';
return $desc;
}
1;
view release on metacpan or search on metacpan
lib/Sys/Info/Driver/Linux/Device/CPU.pm view on Meta::CPAN
: $mach =~ m{ ia64 }xmsi ? 'IA64'
: $mach =~ m{ x86_64 }xmsi ? 'AMD-64'
: $mach
;
my @raw = split m{\n\n}xms,
$self->trim( $self->slurp( proc->{cpuinfo} ) );
$self->{META_DATA} = [];
my $device_model;
foreach my $e ( @raw ) {
my %i = $self->_parse_cpuinfo($e);
view release on metacpan or search on metacpan
lib/Sys/Info/Driver/OSX.pm view on Meta::CPAN
warn "vm_stat: $error\n" if $error;
croak "vm_stat call failed!" if ! $success;
croak "vm_stat didn't generate any output" if ! $out;
my @lines = split m{\n+}, $out;
my $page_size = shift @lines;
if ( $page_size =~ m{
\QMach Virtual Memory Statistics: (page size of\E
\s (.+?) \s
lib/Sys/Info/Driver/OSX.pm view on Meta::CPAN
pop @lines; # some junk info line
my %rv;
for my $line ( @lines ) {
my($k, $v) = split m{[:]}xms, $line, 2;
$_ = __PACKAGE__->trim( $_ ) for $k, $v;
$k =~ s{ \A ["'] }{}xms;
$k =~ s{ ["'] \z }{}xms;
$k =~ s{ [\s\-] }{_}xmsg;
$v =~ s{ [.] \z }{}xms;
lib/Sys/Info/Driver/OSX.pm view on Meta::CPAN
$_ = __PACKAGE__->trim( $_ ) for $out, $error;
croak "Unable to capture `sw_vers`: $error" if $error || ! $success;
return map { split m{:\s+?}xms, $_ }
split m{\n}xms, $out;
}
sub fsysctl {
my $key = shift || croak 'Key is missing';
my $rv = _sysctl( $key );
lib/Sys/Info/Driver/OSX.pm view on Meta::CPAN
$_ = __PACKAGE__->trim( $_ ) for $out, $error;
croak "Unable to capture `powermetrics`: $error" if $error || ! $success;
my @info = split m{ [\n]+ }xms, $out;
my %info;
for my $i ( @info ) {
next if $i =~ m{ \A [*] }xms;
my($k, $v) = split m{[:]}xms, $i, 2;
$_ = __PACKAGE__->trim( $_ ) for $k, $v;
if ( $v =~ m{ \[ }xms ) {
my($subk, $subv) = split m{\s+}xms, $v, 2;
my @subv = map {
s{ [\[\]] }{}xms;
split m{ [:] \s+ }xms, $_
}
split m{ \] \s+ \[ }xms, $subv
;
$info{ $subk } = { @subv };
}
elsif ( $k =~ m{ \QC-state residency\E }xms ) {
my($subk, @subv) = split m{ [()] }xms, $v;
@subv = map { split m{ [\s] }xms, $_ } @subv;
$info{ $k } = {
value => __PACKAGE__->trim( $subk ),
map {
s{ [:] \s? }{}xms;
__PACKAGE__->trim( $_ )
view release on metacpan or search on metacpan
builder/Build/Spec.pm view on Meta::CPAN
$buf .= $line;
}
$fh->close || croak "Can not close $file: $!";
croak 'Unable to get ABSTRACT' if ! $buf;
$buf = trim( $buf );
my($mod, $desc) = split m{\-}xms, $buf, 2;
$desc = trim( $desc ) || croak 'Unable to get ABSTRACT';
return $desc;
}
1;
view release on metacpan or search on metacpan
lib/Sys/Info.pm view on Meta::CPAN
my $v = shift @data;
my @mods;
my($mn, $mv);
foreach my $e (@data) {
next if $e =~ m{ \A \( .+? \) \z}xms;
($mn,$mv) = split m{/}xms, $e;
$mn =~ s{ \-(.+?) \z }{}xms;
push @mods, $mn .'(' . $mv . ')';
}
return "$apache $v. Modules: " . join q{ }, @mods;
}
lib/Sys/Info.pm view on Meta::CPAN
return;
}
sub _legacy_perl { # function
my $v = shift or return;
my($rev, $patch_sub) = split m{[.]}xms, $v;
$patch_sub =~ s{[0_]}{}xmsg;
my @v = split m{}xms, $patch_sub;
return sprintf '%d.%d.%d', $rev, $v[0], $v[1] || '0';
}
1;
view release on metacpan or search on metacpan
lib/Sys/Statistics/Linux/ProcStats.pm view on Meta::CPAN
my $file = $self->{files};
my $lavg = $self->_procs;
my $filename = $file->{path} ? "$file->{path}/$file->{loadavg}" : $file->{loadavg};
open my $fh, '<', $filename or croak "$class: unable to open $filename ($!)";
($lavg->{runqueue}, $lavg->{count}) = (split m@/@, (split /\s+/, <$fh>)[3]);
close($fh);
return $lavg;
}
view release on metacpan or search on metacpan
if ($stderr) {
$stdout .= $stderr;
}
my @commands;
if ($stdout =~ m/{([\w\|\-]+)}/ms) {
@commands = split m/\|/ms, $1;
} elsif ($stdout =~ m/([\w\-]+)\s*$/ms) {
@commands = $1;
}
return sort @commands;
}
view release on metacpan or search on metacpan
lib/System/Info/AIX.pm view on Meta::CPAN
# First try the format used since 5.3ML05
chomp ($os = `oslevel -s`);
if ($os =~ m/^(\d+)-(\d+)-(\d+)-(\d+)$/ && $1 >= 5300) {
# 6100-09-03-1415 = AIX 6.1.0.0 TL09 SP03 (release 2014, week 15)
# Which will show as AIX 6.1.0.0/TL09-03
$os = join (".", split m// => $1) . "/TL$2-$3";
}
else {
chomp ($os = `oslevel -r`);
# 5300-12 = AIX 5.3.0.0/ML12
if ($os =~ m/^(\d+)-(\d+)$/) {
view release on metacpan or search on metacpan
1.20 Sun Oct 1 08:33:21 EST 2006
- added TM::Tau::Filter
- added TM::Analysis (first part)
1.19 Thu Sep 28 18:18:42 EST 2006
- split mapsphere test into two parts (MLDBM does not like it to be used with different serializers in one program)
- added torture test for hierarchical MLDBM2 databases
1.18 Sun Sep 24 18:24:11 EST 2006
- added first MapSphere support (experimental)
- added more subjects in TM::PSI
view release on metacpan or search on metacpan
xt/02StatusLineAndMenu/15MenuExpanded.t view on Meta::CPAN
new_TStatusItem( '~F10~ Menu', kbF10, cmMenu ) +
new_TStatusItem( '~F1~ Help', kbF1, cmHelp )
);
}
# You can also split menu entries using ScalarRef's.
# Whether you nest them or split them is a matter of taste.
# You can insert a blank line using C<newLine>.
# If a dialog box opens for a menu item, it is advisable to write C<...>
# after the name.
sub initMenuBar {
view release on metacpan or search on metacpan
lib/Tail/Tool/RegexList.pm view on Meta::CPAN
my $array = $_;
for my $item (@$array) {
my ( $regex, $replace, $enabled ) = ('', '', 1);
if ( $item =~ m{^/[^/]+?/,} ) {
my $rest;
( $regex, $rest ) = split m{/,}, $item, 2;
$regex =~ s{^/}{};
if ( !defined $enabled ) {
$enabled = 1;
}
view release on metacpan or search on metacpan
t/0-basic.t view on Meta::CPAN
return;
}
print "not ok $num\n";
return unless defined $diag;
$diag =~ s/\Z\n?/\n/; # unchomp
print map "# $num : $_", split m/^/m, $diag;
}
test 2, $Taint::VERSION > 0.08;
my $foo = "bar";
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker 6.64;
my $DN = 'Task-Devel-Essentials';
my $module_name = 'Task::Devel::Essentials';
my $module_filename = 'lib/Task/Devel/Essentials.pm';
my $module_pathname = File::Spec->catfile(split m{/}, $module_filename);
my $module_version = MM->parse_version($module_pathname);
my %requires = ();
my %recommends = ();
my %conf_requires = ();
view release on metacpan or search on metacpan
t/metasyntactic.t view on Meta::CPAN
my %pack2dist = qw( Acme-MetaSyntactic-xkcdcommon1949 Crypt-XKCDCommon1949 );
my @current = sort
map exists $pack2dist{$_} ? $pack2dist{$_} : $_,
map { s/::/-/g; $_ }
grep /^Acme::MetaSyntactic/,
split m{$/}, `dzil listdeps`;
# compare both lists
my $ok = is_deeply( \@current, \@latest, "The prereq list matches CPAN" );
if ( !$ok ) {
view release on metacpan or search on metacpan
samples/benchmark/bench_template_tag_parser.pl view on Meta::CPAN
$new .= "($tag)";
}
return $last ? $new . substr($_[0], $last) : $_[0];
}
### using a split method (several other split methods were also tried - but were slower)
sub parse_split {
my $new = '';
my $START = quotemeta '[%';
my $END = quotemeta '%]';
view release on metacpan or search on metacpan
lib/Template/Liquid/Tag/Assign.pm view on Meta::CPAN
message => 'Missing argument list in ' . $args->{'markup'},
fatal => 1
}
if !defined $args->{'attrs'};
($args->{'variable'}, $args->{'value'}, my $filters)
= split m[\s*[=\|]\s+?]o, $args->{'attrs'}, 3;
$args->{'name'} = 'a-' . $args->{'attrs'};
$args->{'filters'} = [];
if ($filters) {
for my $filter (split $Template::Liquid::Utility::FilterSeparator,
$filters) {
view release on metacpan or search on metacpan
lib/Template/Multilingual/Parser.pm view on Meta::CPAN
{
my ($self, $text) = @_;
# extract all sections from the text
$self->{_sections} = [];
my @tokens = split m!<t>(.*?)</t>!s, $text;
my $i = 0;
for my $t (@tokens) {
if ($i) { # <t>...</t> multilingual section
my %section;
while ($t =~ m!<([^<>]+)>(.*?)</\1>!gs) {
view release on metacpan or search on metacpan
lib/Template/Plexsite.pm view on Meta::CPAN
# Table entry
my $entry=$table->{$self->args->{plt}};
\my %config=$entry->{template}{config};
# Split the path and navigate to the level
my @part=split m|/|, $options{path};
my $parent=$config{nav}; #Root of nav object
my $inc_path="";
for my $part (@part){
$parent = $parent->{$part}//={
view release on metacpan or search on metacpan
lib/Template/Plugin/Java/Utils.pm view on Meta::CPAN
Determine the package of the current or passed-in directory.
=cut
sub determinePackage (;$) {
my $dir = shift || ".";
my @cwd = split m|/|, substr ( simplifyPath $dir, 1 );
my $i = @cwd;
while ($i--) {
my $package = join ('.', @cwd[$i..$#cwd]);
view release on metacpan or search on metacpan
lib/Template/Swig.pm view on Meta::CPAN
__DATA__
var templates = {};
/*! Swig https://paularmstrong.github.com/swig | https://github.com/paularmstrong/swig/blob/master/LICENSE */
/*! Cross-Browser Split 1.0.1 (c) Steven Levithan <stevenlevithan.com>; MIT License An ECMA-compliant, uniform cross-browser split method */
/*! Underscore.js (c) 2011 Jeremy Ashkenas | https://github.com/documentcloud/underscore/blob/master/LICENSE */
/*! DateZ (c) 2011 Tomo Universalis | https://github.com/TomoUniversalis/DateZ/blob/master/LISENCE */(function () {
var str = '{{ a }}',
splitter;
if (str.split(/(\{\{.*?\}\})/).length === 0) {
/** Repurposed from Steven Levithan's
* Cross-Browser Split 1.0.1 (c) Steven Levithan <stevenlevithan.com>; MIT License An ECMA-compliant, uniform cross-browser split method
*/
splitter = function (str, separator, limit) {
if (Object.prototype.toString.call(separator) !== '[object RegExp]') {
return splitter._nativeSplit.call(str, separator, limit);
}
view release on metacpan or search on metacpan
lib/Template/TAL/ValueParser.pm view on Meta::CPAN
my $value = Template::TAL::ValueParser->value( $string );
=head1 DESCRIPTION
This module is responsible for parsing the values of attributes in templates,
and returning them. It can also split multiple values up into a list, using
semicolons as list seperators. The way that values are parsed is based very
strongly on TALES (http://www.zope.org/Wikis/DevSite/Projects/ZPT/TALES)
but the actual TALES spec is provided by the language module
L<Template::TAL::Language::TALES>.