Home
last modified time | relevance | path

Searched refs:slurpy (Results 1 – 25 of 288) sorted by relevance

12345678910>>...12

/dports/devel/p5-Type-Tiny/Type-Tiny-1.012004/lib/Types/Standard/
H A DDict.pm53 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 DTuple.pm26 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 Dstructured.t30 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 DTuple.pm49 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 DDict.pm28 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 Dmake_argcheck_aux.c.inc5 #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 Dmake_argcheck_ops.c.inc35 …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 Dmake_argcheck_aux.c.inc5 #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 Dmake_argcheck_ops.c.inc35 …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 Dmake_argcheck_aux.c.inc5 #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 D11-overflow.t5 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 Dtypes_moose_2.t30 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 Dtypes_moose_3.t29 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 Dtypes_moose.t30 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 Dtypes_moosex.t29 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 Dtypes_moosex_2.t29 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 Dstrict.t10 ['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 Drecursion.t51 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 Dslurpy.t7 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 Dbadsigs.t30 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 Dmultisig.t32 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 DTuple.t181 # 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 DNode.pir29 $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 DSubs.pm383 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 DRegex.pir40 .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 …]

12345678910>>...12