Home
last modified time | relevance | path

Searched refs:coderef (Results 1 – 25 of 43) sorted by relevance

12

/openbsd-src/gnu/usr.bin/perl/cpan/File-Path/t/
H A DFilePathTest.pm29 my $coderef = shift;
32 &$coderef;
37 my $coderef = shift;
41 &$coderef;
/openbsd-src/gnu/usr.bin/perl/cpan/Filter-Util-Call/
H A DCall.pm52 my $coderef = (ref $obj eq 'CODE');
55 if (!$coderef and (!ref($obj) or ref($obj) =~ /^ARRAY|HASH$/)) {
60 Filter::Util::Call::real_import($obj, (caller)[0], $coderef) ;
H A DCall.xs217 real_import(object, perlmodule, coderef) in real_import() argument
220 IV coderef in real_import()
232 CODE_REF(sv) = coderef ; in real_import()
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/t/
H A Dutf8warnings.t18 is_deeply \@invalid, [ 0xD800 ], 'Fallback coderef contains invalid codepoint 0xD800';
24 is_deeply \@invalid, [ 0xED, 0xA0, 0x80 ], 'Fallback coderef contains invalid byte sequence 0xED, 0…
30 is_deeply \@invalid, [ 0xED, 0xA0 ], 'Fallback coderef contains invalid byte sequence 0xED, 0xA0';
35 is_deeply \@invalid, [ 0xED, 0xA0 ], 'Fallback coderef contains invalid byte sequence 0xED, 0xA0';
H A Dmime-header.t273 is $output => Encode::encode("MIME-Header", $valid_unicode), "encode valid with coderef check: output string is valid";
274 is $input => $valid_unicode, "encode valid with coderef check: input string is not modified";
279 is $output => Encode::encode("MIME-Header", $valid_unicode . '!0x1000000!'), "encode with coderef check: output string contains output from coderef";
280 is $input => $valid_unicode . $invalid_unicode, "encode with coderef check: input string is not modified";
331 is $output => Encode::decode("MIME-Header", $valid_mime), "decode valid with coderef check: output string is valid";
332 is $input => $valid_mime, "decode valid with coderef check: input string is not modified";
337 is $output => Encode::decode("MIME-Header", $valid_mime) . " " . $invalid_mime, "decode with coderef check: output string contains unmodified mime word with unknown charset";
338 is $input => $valid_mime . " " . $invalid_mime, "decode with coderef check: input string is not modified";
343 is $output => Encode::decode("MIME-Header", $valid_mime) . '(!0xC3!)', "decode with coderef chec
[all...]
H A Dfallback.t160 is($dst, $ac, "coderef encode");
161 is($src, $uo, "coderef residue encode");
165 is($dst, $uc, "coderef decode");
166 is($src, $ao, "coderef residue decode");
/openbsd-src/gnu/usr.bin/perl/cpan/autodie/lib/autodie/
H A Dhints.pm379 my ($coderef) = @_;
380 ref $coderef or return;
381 my $cv = B::svref_2object($coderef);
/openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/
H A Dget.t16 is ref $subref, "CODE", 'got a coderef from get_cv("globless sub")';
21 is ref $subref, "CODE", 'got a coderef from get_cv with GV_NOADD_NOINIT';
/openbsd-src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/t/
H A D12_hashwarn.t42 cmp_ok(scalar(@warnings),'==',1,'coderef count');
43 cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'coderef msg');
/openbsd-src/gnu/usr.bin/perl/cpan/Memoize/t/
H A Dbasic.t14 is ref $wrapped, 'CODE', '... and returns a coderef';
48 is ref $wrapped, 'CODE', 'memoizing a $coderef wraps it';
70 like $@, qr/^Usage: memoize 'functionname'\|coderef \{OPTIONS\}/, '... with the expected error';
H A Dthreadsafe.t35 is ref($got->{U}), 'CODE', '... and returns a coderef as expected';
H A Dnormalize.t43 is_deeply [map par2($_), @ARGS], [qw(1 0 1 0 1)], '... also installable by coderef';
/openbsd-src/gnu/usr.bin/perl/
H A Dscope.c491 /* XXX For now, we just upgrade any coderef in the stash to a full GV in Perl_save_gp()
1883 The C<coderef> argument determines the type of function that will be
1885 will arrange for the coderef to be called. If it is not SvROK() then it
1934 Perl_mortal_destructor_sv(pTHX_ SV *coderef, SV *args) { in Perl_magic_freedestruct()
1937 (SvROK(coderef) && SvTYPE(SvRV(coderef)) == SVt_PVCV) /* perl coderef */ in Perl_magic_freedestruct() local
1939 (SvIOK(coderef) && !SvROK(coderef)) /* C function ref */ in Perl_magic_freedestruct()
1942 (void)sv_magicext(variable, coderef, PERL_MAGIC_destruc in Perl_magic_freedestruct()
1907 Perl_mortal_destructor_sv(pTHX_ SV * coderef,SV * args) Perl_mortal_destructor_sv() argument
[all...]
H A Dscope.h201 #define MORTALDESTRUCTOR_SV(coderef,args) \ argument
202 mortal_destructor_sv(coderef,args)
/openbsd-src/gnu/usr.bin/perl/t/perf/
H A Dopcount.t50 my ($debug, $desc, $coderef, $expected_counts) = @_;
53 B::walkoptree(B::svref_2object($coderef)->ROOT,
153 my $coderef = eval $sub
183 ::test_opcount(0, $sub, $coderef, \%c);
/openbsd-src/gnu/usr.bin/perl/ext/B/t/
H A Dconcise.t165 like ($@, qr/^err: not a coderef: $typ/,
182 like ($res, qr/coderef CODE\(0x[0-9a-fA-F]+\) has no START/,
195 like ($res, qr/coderef CODE\(0x[0-9a-fA-F]+\) has no START/,
208 like ($res, qr/coderef CODE\(0x[0-9a-fA-F]+\) has no START/,
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dlexsub.t570 my $coderef = eval "my sub foo (\$\x{30cd}) {1}; \\&foo";
571 my $proto = prototype $coderef;
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/
H A DHub.t74 "follow_up takes a coderef"
210 "listen takes a coderef"
321 "filter takes a coderef"
391 "pre_filter takes a coderef"
/openbsd-src/gnu/usr.bin/perl/lib/
H A Dbuiltin.t267 my $coderef = sub {
271 ok($coderef->(), 'true in anon sub');
H A DBenchmark.t146 my $coderef = sub {$baz += fib($ballast)};
150 my $threesecs = countit(0, $coderef);
166 my $onesec = countit(1, $coderef);
/openbsd-src/gnu/usr.bin/perl/ext/B/B/
H A DConcise.pm138 my($order, $coderef, $name) = @_;
139 my $codeobj = svref_2object($coderef);
151 my $coderef = ref $h->{$k} eq 'CODE' ? $h->{$k}
156 my $codeobj = svref_2object($coderef);
/openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/t/
H A D008_pc_base.t90 like($@, qr/JSON can only/i, 'invalid value (coderef)');
/openbsd-src/gnu/usr.bin/perl/ext/Devel-Peek/t/
H A DPeek.t1456 my $coderef = eval <<"EOP";
1462 _dump($coderef),
/openbsd-src/gnu/usr.bin/perl/cpan/Params-Check/t/
H A D01_Params-Check.t39 sub { is_deeply(+shift,$thing, "Allow coderef gets proper args") }
230 " Allow coderef gets proper args") }
/openbsd-src/gnu/usr.bin/perl/pod/
H A Dperlref.pod72 $coderef = \&handler;
158 $coderef = sub { print "Boink!\n" };
164 C<eval("...")>), $coderef will still have a reference to the I<same>
258 $coderef = *handler{CODE};
330 &$coderef(1,2,3);
354 &{$coderef}(1,2,3);
387 $coderef->(1,2,3); # Subroutine call

12