view release on metacpan or search on metacpan
share/debugtoolbar/js/prettify/lang-xq.js view on Meta::CPAN
PR.registerLangHandler(PR.createSimpleLexer([["var pln",/^\$[\w-]+/,null,"$"]],[["pln",/^[\s=][<>][\s=]/],["lit",/^@[\w-]+/],["tag",/^<\/?[a-z](?:[\w-.:]*\w)?|\/?>$/i],["com",/^\(:[\S\s]*?:\)/],["pln",/^[(),/;[\]{}]$/],["str",/^(?:"(?:[^"\\{]|\\[\S\s...
["typ",/^(?:xs:yearMonthDuration|xs:unsignedLong|xs:time|xs:string|xs:short|xs:QName|xs:Name|xs:long|xs:integer|xs:int|xs:gYearMonth|xs:gYear|xs:gMonthDay|xs:gDay|xs:float|xs:duration|xs:double|xs:decimal|xs:dayTimeDuration|xs:dateTime|xs:date|xs:byt...
["pln",/^[\w:-]+/],["pln",/^[\t\n\r \xa0]+/]]),["xq","xquery"]);
view release on metacpan or search on metacpan
t/01_default_settings.t view on Meta::CPAN
like $@, qr/^Please provide password argument/, 'die with empty password argument';
};
subtest 'passphrase->encoded' => sub {
$passphrase_generated = passphrase($password)->encoded;
like $passphrase_generated, qr/^\$argon2id\$v=19\$m=32768,t=3,p=1\$[\w\+\$\/]+\z/, 'with default settings';
};
subtest 'passphrase->matches' => sub {
ok passphrase($password)->matches($passphrase_generated), 'correct password matched';
ok !passphrase('bad-password')->matches($passphrase_generated), 'incorrect password doesn\'t match';
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);