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

bin/dancer  view on Meta::CPAN

MS>=_ARGN>T@LK.XVZCC\(2`$(O&])@A?'%OPK^_'^E[DQON"N8IEA1DI-)ZK
MKXYB>:KM;Q;[;QJ094\=YK*67%->L=E0-M+Q:.B3%2TUG<-6.\7C\@F`````
M```````````````````ISY-1J'<V3EC4=V:9W.P)ZNUK-IU#E8F9U#32L8Z;
MGN!2M<==SW1^[+;X@K%LEMSV71$1&H`K6*QJ(=```'+1N-(TIRI@#EITZY:-
MP"$]+;@CU/\`X[6D[ZR[R_?L$)Z[,?NG%>KE:ZF9!&LZO,NVGFIMVU-SN)=F
MOVZ@'*1":%:VB>Z4]@0\K?IW)VASDM$[B4];KJ05QY.V]2':TF)W,NWKOK'<
M$<?NY;4Q,IUKJ$9I.^_0$L?A"3D1J-.@A%/NVF```"O)CB>L=)6`*:7U/+='
M+BU]U>RW)2+1^4,=IK/)?L#.ECM-9VGGQZ^ZO92#;2T6C<),>*\UG\-=9BT;
M@'0```````````````````$<EHK7<NS.HVRYK\UOP"-K3:=RY$;EQ?@IK[K`
MECI%*\TN1O+?\%IG)?4=H75B*QJ`(B(C4.N6G4;9YSWW[`TC-]>_X/KW_`-(
MSQGGW3KFK/<%HY$Q,='0`49,UJWF([`O&;Z]_P`'U[_@&D9OKW_!]>_X!I&;

bin/dancer  view on Meta::CPAN

H#2S\5/6(:&7B)W8%8ECC=G,GG(+^&G[=+F?AI^[30#+Q'E"I;Q'E"@``
M@7<-.K+<_@S4G5H:<T[Q[!E]VK#X,ONU8?`$LDZI+&U9YU5D`=<2QQNVI!IP
MUY:I9/3L[$:B(<R>G8&)?PWDH7\-Y`T``HXOV41W7\7[*([@UX?3A3Q/3(NP
7^G"CB)W<$,?E#97M#'C\X;([`Z````H`
M<_6U8_*Y3Y9ICX`XF=4B&9=Q,_=I4"_A8Z3*]7@C55@``````````"CB8Z;7
MH9HW28!C:.&G<3"B>Z>&VKP"W']N6T2N49HY;Q:/==$[@'0```<GQG],4]Y;
M9\9_3%/>06</YPT9/3LS\/YPT9/3L#$NX7U%*[A?4!I8\L[M+7:=0Q6\I!9P
M\;LYG]24^%C<RYQ$?=L'.'G5VICQSJS9'8&7B/*%<1N=+.(\H0Q>I`$QRV73
,.\$2KSQJ\NUG^/0*
M_=JP^#+[M6'P!'B>D0S-/$]H9@%F#SA6LP>I`-:.3T[)(Y/3L#$GCR32=Q"`
1"_\`Z+?$+XG<1+%#;7PC]`H`

bin/dancer  view on Meta::CPAN

M.G;=U%W&XTXA^<J"A$=:0HKP7.?F\@/T^>A+&8WJ$3<G9JJWB''L6E.;M<O@
M*0,H473_`%5<^".F/AYYQC3KXFMV;?$SL]-W94JT0Y!3-*CDE\.,=YGX\V=*
MZSVM,F;-XC7\6`\BSI]TM2HSH9/><A6XD\IQU&2D_0:9''K=<1[?G"#>ICRG
MXD%QB?/:C-%QUCQ,O%M2?1?*1X3@]1I?P9_31^]:&+N7;4NHE,(>#K9Y$J'Z
ML$8^O4?70)V.MP2XD:]X:6CRG']NO@P5+/5<-P<S?\=1\BG1?PXWK4[\V^J\
MI6+!B,E]3!3-8[ESF2`2>7)Z>(=<Z6VV1[$[9266`$(LJI]#P'J0X'4?PAQ"
M?II[6H6'CPY4`]B]KK>,)\\IL1&DHS^PL.-Y^K@:3\U:)^T7:W55L".NAM7:
MJ9*MH<02FD!2D)=<Y2<'H?/RU3=K&KD[5WSMGBM"0H165"NM5(']M"E`M.G_
M`!6`?GRZ\[0MJU9<(JR[ALO2647,"2XB,@N*`0Z%+``\\8/^M9+\A2](7.[N
M*6_F.!0+-TXK<L+<TNL>GL-(0J0Q%:4ZM13CE'@(S@?I^>K#B'Q8O*[=E]#@
5VBXS$W9L>QJPA*0(\DI0X5)./,H*

 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

CTable.pm  view on Meta::CPAN

	## 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");