/dports/devel/p5-Type-Tiny/Type-Tiny-1.012004/lib/Types/Standard/ |
H A D | Dict.pm | 53 if ( $slurpy ) { 58 $shash->{slurpy} = $slurpy; # store canonicalized slurpy 75 if ( $slurpy ) { 97 return if $slurpy && !$slurpy->can_be_inlined; 101 my $slurpy_is_any = $slurpy && $_hash->is_a_type_of( $slurpy ); 105 $slurpy 251 $all_inlinable = 0 if $slurpy && !$slurpy->can_be_inlined; 253 if $slurpy 257 $child_coercions_exist++ if $slurpy && $slurpy->has_coercion; 418 if !$slurpy; [all …]
|
H A D | Tuple.pm | 26 my $slurpy; 28 $slurpy = Types::TypeTiny::to_TypeTiny( $constraints[-1]{slurpy} ); 96 my $slurpy; 98 $slurpy = pop( @constraints )->{slurpy}; 102 return if defined $slurpy && !$slurpy->can_be_inlined; 147 $slurpy 169 my $slurpy; 214 $slurpy, 229 my $slurpy; 231 $slurpy = pop( @tuple )->{slurpy}; [all …]
|
/dports/devel/p5-Type-Tiny/Type-Tiny-1.012004/t/20-unit/Types-Standard/ |
H A D | structured.t | 30 use Types::Standard -all, "slurpy"; 130 note "Dict[ ..., slurpy ... ]"; 230 …ok((Dict[bar=>Int, slurpy Any])->my_hashref_allows_key('foo'), 'Dict[bar=>Int,slurpy Any] allows k… 231 …ok((Dict[bar=>Int, slurpy Any])->my_hashref_allows_key('bar'), 'Dict[bar=>Int,slurpy Any] allows k… 232 …ok(!(Dict[bar=>Int, slurpy Any])->my_hashref_allows_key(undef), 'Dict[bar=>Int,slurpy Any] disallo… 233 …ok(!(Dict[bar=>Int, slurpy Any])->my_hashref_allows_key([]), 'Dict[bar=>Int,slurpy Any] disallows … 234 …ok((Dict[bar=>Int, slurpy Ref])->my_hashref_allows_key('foo'), 'Dict[bar=>Int,slurpy Ref] allows k… 235 …ok((Dict[bar=>Int, slurpy Ref])->my_hashref_allows_key('bar'), 'Dict[bar=>Int,slurpy Ref] allows k… 237 …ok(!(Dict[bar=>Int, slurpy Ref])->my_hashref_allows_key([]), 'Dict[bar=>Int,slurpy Ref] disallows … 279 ok(!(Dict[slurpy Int])->my_hashref_allows_key('foo'), 'Dict[slurpy Int] disallows key "foo"'); [all …]
|
/dports/devel/p5-Specio/Specio-0.47/lib/Specio/Library/Structured/ |
H A D | Tuple.pm | 49 if ( $p->{slurpy} ) { 51 $type = $p->{slurpy}; 90 elsif ( $m->{slurpy} ) { 91 push @names, $self->_name_or_anon( $m->{slurpy} ) . '...'; 105 my $slurpy; 106 $slurpy = ( pop @of )->{slurpy} 107 if !blessed( $of[-1] ) && $of[-1]->{slurpy}; 111 unless ($slurpy) { 154 if ($slurpy) { 161 $val, $non_slurpy, $slurpy->_inline_check('$_'),
|
H A D | Dict.pm | 28 for my $p ( ( $args->{slurpy} || () ), values %{ $args->{kv} } ) { 72 if ( $p->{slurpy} ) { 73 push @kv, $self->_name_or_anon( $p->{slurpy} ) . '...'; 104 if ( $args{slurpy} ) { 111 $args{slurpy}->_inline_check( sprintf( '%s->{$_}', $val ) ),
|
/dports/devel/p5-Object-Pad/Object-Pad-0.58/hax/ |
H A D | make_argcheck_aux.c.inc | 5 #define make_argcheck_aux(params, opt_params, slurpy) S_make_argcheck_aux(aTHX_ params, opt_params… 6 static inline UNOP_AUX_item *S_make_argcheck_aux(pTHX_ UV params, UV opt_params, char slurpy) 13 aux->slurpy = slurpy; 19 aux[2].iv = slurpy;
|
H A D | make_argcheck_ops.c.inc | 35 …ne make_argcheck_ops(required, optional, slurpy, subname) S_make_argcheck_ops(aTHX_ required, opt… 36 static OP *S_make_argcheck_ops(pTHX_ int required, int optional, char slurpy, SV *subname) 41 UNOP_AUX_item *aux = make_argcheck_aux(params, optional, slurpy); 47 * optree ourselves. For now we only support required + optional, no slurpy 69 if(!slurpy) { 84 /* TODO: If slurpy is % then maybe complain about odd number of leftovers */
|
/dports/devel/p5-XS-Parse-Keyword/XS-Parse-Keyword-0.21/hax/ |
H A D | make_argcheck_aux.c.inc | 5 #define make_argcheck_aux(params, opt_params, slurpy) S_make_argcheck_aux(aTHX_ params, opt_params… 6 static inline UNOP_AUX_item *S_make_argcheck_aux(pTHX_ UV params, UV opt_params, char slurpy) 13 aux->slurpy = slurpy; 19 aux[2].iv = slurpy;
|
H A D | make_argcheck_ops.c.inc | 35 …ne make_argcheck_ops(required, optional, slurpy, subname) S_make_argcheck_ops(aTHX_ required, opt… 36 static OP *S_make_argcheck_ops(pTHX_ int required, int optional, char slurpy, SV *subname) 41 UNOP_AUX_item *aux = make_argcheck_aux(params, optional, slurpy); 47 * optree ourselves. For now we only support required + optional, no slurpy 69 if(!slurpy) { 84 /* TODO: If slurpy is % then maybe complain about odd number of leftovers */
|
/dports/devel/p5-XS-Parse-Sublike/XS-Parse-Sublike-0.14/hax/ |
H A D | make_argcheck_aux.c.inc | 5 #define make_argcheck_aux(params, opt_params, slurpy) S_make_argcheck_aux(aTHX_ params, opt_params… 6 static inline UNOP_AUX_item *S_make_argcheck_aux(pTHX_ UV params, UV opt_params, char slurpy) 13 aux->slurpy = slurpy; 19 aux[2].iv = slurpy;
|
/dports/devel/p5-MooseX-Types-Structured/MooseX-Types-Structured-0.36/t/ |
H A D | 11-overflow.t | 5 use MooseX::Types::Structured qw(Dict Tuple slurpy); 12 slurpy ArrayRef[Int], 15 is($array_tailed_tuple->name, 'MooseX::Types::Structured::Tuple[Int,Str,slurpy(ArrayRef[Int])]'); 17 'find_or_create_type_constraint finds array with slurpy'; 29 slurpy HashRef[Int], 32 is($hash_tailed_dict->name, 'MooseX::Types::Structured::Dict[name,Str,age,Int,slurpy(HashRef[Int])]… 34 'find_or_create_type_constraint finds hash with slurpy';
|
/dports/devel/p5-Function-Parameters/Function-Parameters-2.001003/t/ |
H A D | types_moose_2.t | 30 is $info->slurpy, undef; 60 is $info->slurpy, undef; 77 my $slurpy = $info->slurpy; 78 is $slurpy->name, '@nom'; 79 …ok $slurpy->type->equals(Moose::Util::TypeConstraints::find_or_parse_type_constraint('ArrayRef[Int… 131 is $info->slurpy, undef;
|
H A D | types_moose_3.t | 29 is $info->slurpy, undef; 52 is $info->slurpy, undef; 69 my $slurpy = $info->slurpy; 70 is $slurpy->name, '@nom'; 71 …ok $slurpy->type->equals(Moose::Util::TypeConstraints::find_or_parse_type_constraint('ArrayRef[Int… 123 is $info->slurpy, undef;
|
H A D | types_moose.t | 30 is $info->slurpy, undef; 53 is $info->slurpy, undef; 70 my $slurpy = $info->slurpy; 71 is $slurpy->name, '@nom'; 72 …ok $slurpy->type->equals(Moose::Util::TypeConstraints::find_or_parse_type_constraint('ArrayRef[Int… 124 is $info->slurpy, undef;
|
H A D | types_moosex.t | 29 is $info->slurpy, undef; 52 is $info->slurpy, undef; 69 my $slurpy = $info->slurpy; 70 is $slurpy->name, '@nom'; 71 ok $slurpy->type->equals(ArrayRef[Int|CodeRef]); 123 is $info->slurpy, undef;
|
H A D | types_moosex_2.t | 29 is $info->slurpy, undef; 52 is $info->slurpy, undef; 69 my $slurpy = $info->slurpy; 70 is $slurpy->name, '@nom'; 71 ok $slurpy->type->equals(ArrayRef[Int|CodeRef]);
|
H A D | strict.t | 10 ['1', qr/"\$z" can't appear after slurpy parameter "\@y\"/], 11 ['2', qr/"\$y" can't appear after slurpy parameter "\@x\"/], 12 ['3', qr/"\$z" can't appear after slurpy parameter "%y\"/], 13 ['4', qr/"\@z" can't appear after slurpy parameter "\@y\"/],
|
H A D | recursion.t | 51 fun slurpy(:$n, %rest) { [$n, \%rest] } 54 is_deeply slurpy(a => 1, b => 2, n => 9), [9, {a => 1, b => 2}]; 55 my $sav1 = slurpy(n => 5); 57 my $sav2 = slurpy(n => 6, a => 3); 60 is_deeply slurpy(b => 4, n => 7, hello => "world"), [7, {hello => "world", b => 4}];
|
/dports/devel/p5-Type-Tiny/Type-Tiny-1.012004/t/20-unit/Type-Params/ |
H A D | slurpy.t | 7 Test L<Type::Params> usage with slurpy parameters. 30 use Types::Standard -types, "slurpy"; 32 my $chk = compile(Str, slurpy HashRef[Int]); 49 my $chk2 = compile(Str, slurpy HashRef); 66 my $chk3 = compile(Str, slurpy Map); 73 my $chk4 = compile(Str, slurpy Tuple[Str, Int, Str]);
|
H A D | badsigs.t | 30 use Types::Standard qw( Optional Int ArrayRef slurpy ); 39 exception { compile(slurpy ArrayRef[Int], Optional[Int]) }, 40 qr{^Parameter following slurpy parameter}, 41 "Cannot follow a slurpy parameter with anything", 45 exception { compile(slurpy Int) },
|
H A D | multisig.t | 32 use Types::Standard qw( -types slurpy ); 125 validate( [ a => 3 ], slurpy $a ); 135 my $check = multisig( [ slurpy $a ], [ slurpy $b ] ); 141 my $check = multisig( compile(slurpy $a), compile(slurpy $b) );
|
/dports/devel/p5-Type-Tiny/Type-Tiny-1.012004/t/21-types/ |
H A D | Tuple.t | 181 # Simple slurpy example 184 use Types::Standard qw(slurpy); 188 slurpy Types::Standard::ArrayRef[ 202 # Optional + slurpy example 208 slurpy Types::Standard::ArrayRef[ 226 slurpy Types::Standard::Tuple[ 247 slurpy Types::Standard::Tuple[ 264 # Simple slurpy hashref example 269 slurpy Types::Standard::HashRef[ 290 slurpy Types::Standard::HashRef[ [all …]
|
/dports/lang/parrot/parrot-8.1.0/compilers/pct/src/POST/ |
H A D | Node.pir | 29 $P0[2] = " .param pmc %0 :slurpy\n" 30 $P0[3] = " .param pmc %0 :slurpy\n" 33 $P0[6] = " .param pmc %0 :slurpy :named\n" 34 $P0[7] = " .param pmc %0 :slurpy :named\n" 94 =item push_pirop(pirop [,arglist :slurpy] [,adverbs :slurpy :named]) 104 .param pmc arglist :slurpy 105 .param pmc adverbs :slurpy :named 254 .param pmc adverbs :slurpy :named 256 .local int optional, slurpy, call_sig 259 slurpy = adverbs['slurpy'] [all …]
|
/dports/lang/p5-Perl6-Subs/Perl6-Subs-0.05/lib/Perl6/ |
H A D | Subs.pm | 383 my $slurpy = $self->p_slurpy; 400 if (!%named && !$slurpy && $pos_req == @pos) { 408 unless (%named or $slurpy) { 421 my $named_var = $slurpy ? $slurpy->name : '%_perl6_named_params'; 425 my @vars = map { $_ ? $_->name : () } @pos, $slurpy; 426 push @vars, "\%$named_var" if %named && !$slurpy; 472 unless $slurpy;
|
/dports/lang/parrot/parrot-8.1.0/compilers/pge/PGE/ |
H A D | Regex.pir | 40 .param pmc adverbs :slurpy :named 68 .param pmc adverbs :slurpy :named 96 .param pmc adverbs :slurpy :named 108 .param pmc adverbs :slurpy :named 120 .param pmc adverbs :slurpy :named 131 .param pmc adverbs :slurpy :named 142 .param pmc adverbs :slurpy :named 153 .param pmc adverbs :slurpy :named 164 .param pmc adverbs :slurpy :named 175 .param pmc adverbs :slurpy :named [all …]
|