view release on metacpan or search on metacpan
share/assets/dash_core_components/async~highlight.js view on Meta::CPAN
(window.webpackJsonpdash_core_components=window.webpackJsonpdash_core_components||[]).push([[3],{669:function(e,n,a){var t,s,r;s=function(e){var n,a=[],t=Object.keys,s={},r={},i=!0,l=/^(no-?highlight|plain|text)$/i,o=/\blang(?:uage)?-([\w-]+)\b/i,c=/...
//# sourceMappingURL=async~highlight.js.map
view release on metacpan or search on metacpan
## apparently unique in the incoming data file.
$IncomingFields = [map {(/^_*(.*)/)[0]} @$IncomingFields];
## Make a hash that can be used to map these fields' names to their numbers.
my $IncomingFieldNameToNum = {}; @$IncomingFieldNameToNum{@$IncomingFields} = ($[ .. $#$IncomingFields);
## Make a list of the fields we'll be importing (by taking the
## list the caller requested, and paring it down to only those
## fields that are actually available in the table.)
view release on metacpan or search on metacpan
t/perlcriticrc view on Meta::CPAN
# add_themes =
# severity = 2
# maximum_violations_per_document = no_limit
# Regular expression to use to look for code in comments.
# commentedcoderegex = \$[A-Za-z_].*=
# Prohibit loading of debugging modules like Data::Dumper
[Bangs::ProhibitDebuggingModules]
# set_themes = bangs maintenance
view release on metacpan or search on metacpan
t/encode/data/7bit-jis.txt view on Meta::CPAN
$B$$$m$O$K$[$X$H$A$j$L$k$r(B
$B$o$+$h$?$l$=$D$M$J$i$`(B
$B$&$p$N$*$/$d$^$1$U$3$($F(B
$B$"$5$-$f$a$_$7$q$R$b$;$9$s(B
$B?'$OFw$X$I;6$j$L$k$r(B
$B2f$,@$C/$=>o$J$i$`(B
view release on metacpan or search on metacpan
lib/ddGUI/Window.pm view on Meta::CPAN
$self->_seen->{ refaddr($item) } = $path;
my @internals;
if (reftype($item) eq 'ARRAY') {
my $i = $[-1;
@internals = map { ++$i; $self->_item_to_arrayref("[$i]", $_, "$path\->[$i]") } @$item;
}
if (reftype($item) eq 'HASH') {
@internals = map { $self->_item_to_arrayref("{${\__maybequote($_)}}", $item->{$_}, "$path\->{${\__maybequote($_)}}") } sort keys %$item;
}
view release on metacpan or search on metacpan
t/t_TestCommon.pm view on Meta::CPAN
splice @_, $ix, 1, ();
redo unless $ix > $#_;
}
}
# Do an initial read of $[ so arybase will be autoloaded
# (prevents corrupting $!/ERRNO in subsequent tests)
eval '$[' // die;
# Test2::V0
# Do not import warnings, to avoid un-doing prior settings.
# Do not inport 1- and 2- or 3- character upper-case names, which are
# likely to clash with user variables and/or spreadsheet column letters
view release on metacpan or search on metacpan
lib/Data/FlexSerializer.pm view on Meta::CPAN
Data::FlexSerializer->add_format(
data_dumper => {
serialize => sub { shift; goto \&Data::Dumper::Dumper },
deserialize => sub { shift; my $VAR1; eval "$_[0]" },
detect => sub { $_[1] =~ /\$[\w]+\s*=/ },
}
);
my $flex_to_dd = Data::FlexSerializer->new(
detect_data_dumper => 1,
view release on metacpan or search on metacpan
sample/bin/inspect.pl view on Meta::CPAN
else {
if ($perl) {
Data::Interactive::Inspect->new(struct => $code,
serialize => sub { my $db = shift;
my $c = Dumper($db);
$c =~ s/^\s*\$[a-zA-Z0-9_]*\s*=\s*/ /;
return $c;
},
deserialze => sub { my $code = shift;
$code = "\$code = $code";
eval $code;
sample/bin/inspect.pl view on Meta::CPAN
return $code;
}
sub loaddumper {
my $dump = shift;
$dump =~ s/^\s*\$[a-zA-Z0-9_]*\s*=\s*/\$code = /;
eval $dump; # fills global $code
}
view release on metacpan or search on metacpan
Iterator.pm view on Meta::CPAN
use FileHandle;
use vars qw($VERSION);
$VERSION = 0.021;
local $[ = 0;
my %_cfg = ('_set_' => {'-Nodes' => 0, # show nodes as normal items
'-DigLevel' => undef, # dig down to this level
'-DigFiles' => 1, # show file's content if value is in '-FILE:...'-format
'-DigGlobs' => 1, # resolve glob references
view release on metacpan or search on metacpan
t/04-untie.t view on Meta::CPAN
is($foo, "value0", "FETCH on LAZY_UNTIE");
SKIP: {
skip ("untie inside FETCH unsupported on 5.8.0 - upgrade "
."to 5.8.1+", 1)
if $] < 5.008001 && $[ >= 5.008;
is(tied($foo), undef, "Foo is now untied");
}
is($foo, "value0", "FETCH only called once");
}
t/04-untie.t view on Meta::CPAN
is($foo="bar", "bar", "STORE on LAZY_UNTIE");
SKIP: {
skip ("untie inside STORE unsupported on 5.8.0 - upgrade "
."to 5.8.1+", 1)
if $] < 5.008001 && $[ >= 5.008;
is(tied($foo), undef, "Foo is now untied");
}
is($foo, "bar", "STORE saved value");
view release on metacpan or search on metacpan
Locations.pm view on Meta::CPAN
return '';
}
sub new
{
&_usage_("\$[top|sub]location = [$Class|\$location]->new( [ \$filename ] );")
if ((@_ < 1) || (@_ > 2));
my($outer) = shift;
my($file,$name,$inner);
view release on metacpan or search on metacpan
|(( '.') ) ).+
((( (( ( (((
((( ( ( (((
((( ( '\\')))
))) ) ) ) )
) )))) )))))) .'$[;' . (
( ( (( ( (
( ( ( (( ( ( (( ( ( (
( ( '`') )))) ) )
) ) ))) )
) ))) ) )
view release on metacpan or search on metacpan
lib/Data/SExpression/Parser.pm view on Meta::CPAN
sub lexer {
my $self = shift;
defined($self->YYData->{INPUT}) or return ('', undef);
my $symbol_char = qr{[*!\$[:alpha:]\?<>=/+:_{}-]};
for($self->YYData->{INPUT}) {
$_ =~ /\G \s* (?: ; .* \s* )* /gcx;
/\G ([+-]? \d+ (?:[.]\d*)?) /gcx
view release on metacpan or search on metacpan
lib/Data/Scan.pm view on Meta::CPAN
#
# Avoid calls to arybase
#
my $ARRAY_START_INDICE = $[;
sub process {
my ($self) = shift;
my ($consumer, $previous, $inner) = $self->consumer;
view release on metacpan or search on metacpan
lib/Data/Selector.pm view on Meta::CPAN
unless defined $args->{selector_string}
&& length $args->{selector_string};
if ( index( $args->{selector_string}, '$', ) != -1 ) {
$args->{selector_string} =~
s/(?:(?<=^)|(?<=,))(\$[a-z_]*)(?:(,)(?!$)|$)/
defined $args->{named_selectors}->{$1}
&& length $args->{named_selectors}->{$1}
? $args->{named_selectors}->{$1} . ( $2 ? $2 : '' )
: die "contains invalid named selector\n";
/ego;
view release on metacpan or search on metacpan
ShowTable.pm view on Meta::CPAN
my @prefix = (" ", "<");
my @suffix = (" |", ">|");
my @cell;
# loop over the data, formatting it into cells, one row at a time.
while ((@values = &$row_sub(0)), $#values >= $[) {
# first pass -- format each value into a string
@cell = ();
for ($c = 0; $c <= $#values; $c++) {
$cell[$c] = &$fmt_sub($values[$c], $types->[$c], $max_widths->[$c],
$widths->[$c], $precision->[$c], 'box');
ShowTable.pm view on Meta::CPAN
my @values;
my @prefix = (" ", "<");
my @suffix = (" ", ">");
while ((@values = &$row_sub(0)), $#values >= $[) {
# first pass -- format each value into a string
my @cell;
for ($c = 0; $c <= $#values; $c++) {
$cell[$c] = &$fmt_sub($values[$c], $types->[$c], $max_widths->[$c],
$widths->[$c], $precision->[$c], 'table');
ShowTable.pm view on Meta::CPAN
}
out $title_line;
out "</TR>";
my ($href, $key, $val, $out);
while ((@values = &$row_sub(0)), $#values >= $[) {
out "<TR> ";
# Walk through the values
for ($c = 0; $c <= $#values; $c++) {
$out = "<TD";
if (defined($val = $values[$c])) { # only worry about defined values
ShowTable.pm view on Meta::CPAN
my $fmt = sprintf("%%-%ds : %%s\n", ($#$titles >= 0 ? &max_length($titles) : 8));
my @values;
my ($value, $c, $cut, $line);
my $col_limit = $max_width - 2;
while ((@values = &$row_sub(0)), $#values >= $[) {
for ($c = 0; $c <= $#values; $c++) {
# get this column's title
$title = $#$titles >= 0 ? $titles->[$c] : sprintf("Field_%d", $c+1);
my $type = $types->[$c];
my $width = 0;
ShowTable.pm view on Meta::CPAN
if (ref($types) eq 'ARRAY') {
@prectype = map {/float|num(eric|ber)|money|dec|real|precision|double/i } @$types;
}
# Scan the values
while ((@values = &$row_sub(0)), $#values >= $[) {
# If the new row is larger than the number of titles, adjust
# the info arrays..
if ($num_cols < 1 + $#values) { # new column?
$num_cols = 1 + $#values; # new # of columns
for ($c = $#expandable + 1; $c <= $#values; $c++) {
view release on metacpan or search on metacpan
lib/Data/Transactional.pm view on Meta::CPAN
This is loosely inspired by L<DBM::Deep>.
=head1 BUGS/WARNINGS
I assume that C<$[> is zero.
Storing blessed objects in a C<Data::Transactional> structure is not
supported. I suppose it could be, but there's no sane way that they
could be transactionalised. This also applies to tie()d objects.
Please note that in the case of tie()d objects, we don't do a great deal