Home
last modified time | relevance | path

Searched refs:sub (Results 1 – 25 of 571) sorted by relevance

12345678910>>...23

/mirbsd/src/gnu/usr.bin/perl/t/lib/
Dh2ph.pht6 sub SQUARE {
12 eval 'sub ERROR {
18 eval 'sub _H2PH_H_ () {1;}' unless defined(&_H2PH_H_);
21 eval 'sub MAX {
26 eval 'sub MIN {
36 eval 'sub EVERYTHING_IS_OK () {1;}' unless defined(&EVERYTHING_IS_OK);
40 eval 'sub WHATEVER () {6;}' unless defined(&WHATEVER);
43 eval 'sub WHATEVER () {7;}' unless defined(&WHATEVER);
46 eval 'sub WHATEVER () {8;}' unless defined(&WHATEVER);
48 eval 'sub WHATEVER () {1000;}' unless defined(&WHATEVER);
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Attribute/Handlers/t/
Dmulti.t14 sub ok { $::count++; push @::results, [$_[1], $_[0]?"":"not ", defined($_[2])?$_[2]:""]; }
25 sub UNIVERSAL::Lastly :ATTR(INIT) { ::ok $_[4][0] && $main::phase, $_[4][1] }
27 sub UNIVERSAL::Okay :ATTR(BEGIN) {
31 sub Dokay :ATTR(SCALAR) { ::ok @{$_[4]} }
32 sub Dokay :ATTR(HASH) { ::ok @{$_[4]} }
33 sub Dokay :ATTR(ARRAY) { ::ok @{$_[4]} }
34 sub Dokay :ATTR(CODE) { ::ok @{$_[4]} }
36 sub Vokay :ATTR(VAR) { ::ok @{$_[4]} }
38 sub Aokay :ATTR(ANY) { ::ok @{$_[4]} }
46 sub x1 :Lastly(1,44) {}
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/lib/warnings/
Dpad8 sub x {
10 sub y {
16 sub x {
18 sub y {
19 sub { $x }
45 sub x {
47 sub y {
56 sub x {
58 sub y {
67 sub x {
[all …]
D9enabled78 sub check {
95 sub check {
114 sub check {
131 sub check {
193 sub check {
213 sub check {
235 sub check {
255 sub check {
281 sub check {
290 sub fred { abc::check() }
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/NEXT/t/
Dnext.t15 sub A::method { return ( 3, $_[0]->NEXT::method() ) }
16 sub A::DESTROY { $_[0]->NEXT::DESTROY() }
20 sub B::AUTOLOAD { return ( 9, $_[0]->NEXT::AUTOLOAD() )
22 sub B::DESTROY { $_[0]->NEXT::DESTROY() }
25 sub C::DESTROY { print "ok 23\n"; $_[0]->NEXT::DESTROY() }
29 sub D::method { return ( 2, $_[0]->NEXT::method() ) }
30 sub D::AUTOLOAD { return ( 8, $_[0]->NEXT::AUTOLOAD() ) }
31 sub D::DESTROY { print "ok 22\n"; $_[0]->NEXT::DESTROY() }
32 sub D::oops { $_[0]->NEXT::method() }
33 sub D::secondary { return ( 17, 18, map { $_+10 } $_[0]->NEXT::secondary() ) }
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dsub_lval.t8 sub a : lvalue { my $a = 34; ${\(bless \$a)} } # Return a temporary
9 sub b : lvalue { ${\shift} }
23 sub in : lvalue { $in = shift; }
24 sub neg : lvalue { #(num_str) return num_str
35 sub get_lex : lvalue { $in }
36 sub get_st : lvalue { $blah }
37 sub id : lvalue { ${\shift} }
38 sub id1 : lvalue { $_[0] }
39 sub inc : lvalue { ${\++$_[0]} }
142 sub a3 :lvalue {@a}
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/attrs/
Dattrs.xs46 get(sub)
47 SV * sub
49 if (SvROK(sub)) {
50 sub = SvRV(sub);
51 if (SvTYPE(sub) != SVt_PVCV)
52 sub = Nullsv;
55 const char * const name = SvPV_nolen(sub);
56 sub = (SV*)perl_get_cv(name, FALSE);
58 if (!sub)
60 if (CvFLAGS(sub) & CVf_METHOD)
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Unicode/Collate/t/
Dindex.t39 my $sub = "PERL";
44 if (my($pos,$len) = $Collator->index($str, $sub)) {
53 if (my($pos,$len) = $Collator->index($str, $sub)) {
66 $sub = "pe";
69 if (my($pos, $len) = $Collator->index($str, $sub)) {
75 $sub = "pE";
78 if (my($pos, $len) = $Collator->index($str, $sub)) {
86 $sub = "pe";
89 if (my($pos, $len) = $Collator->index($str, $sub)) {
95 $sub = "pE";
[all …]
Dillegal.t96 my($match, $str, $sub, $ret);
104 $sub = "pe";
109 ($match) = $Collator->match($str, $sub);
114 ($match) = $Collator->match($str, $sub);
119 ($match) = $Collator->match($str, $sub);
124 ($match) = $Collator->match($str, $sub);
129 ($match) = $Collator->match($str, $sub);
134 ($match) = $Collator->match($str, $sub);
139 ($match) = $Collator->match($str, $sub);
144 ($match) = $Collator->match($str, $sub);
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/
DFatal.pm89 my($sub, $pkg, $void) = @_;
91 my $ini = $sub;
93 $sub = "${pkg}::$sub" unless $sub =~ /::/;
94 $name = $sub;
96 print "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug;
98 if (defined(&$sub)) { # user subroutine
99 $sref = \&$sub;
102 } elsif ($sub eq $ini) { # Stray user subroutine
103 die "$sub is not a Perl subroutine"
132 *{$sub} = $code;
Doverload.pm12 my ($sub, $fb);
19 $sub = $arg{$_};
20 if (not ref $sub and $sub !~ /::/) {
21 $ {$package . "::(" . $_} = $sub;
22 $sub = \&nil;
25 *{$package . "::(" . $_} = \&{ $sub };
60 my $sub = \&{*$globref};
61 return $sub if $sub ne \&nil;
/mirbsd/src/gnu/usr.bin/perl/lib/DBM_Filter/t/
D01error.t20 sub writeFile
29 sub runFilter
91 sub Filter
105 sub Filter
107 return { BadKey => sub { } } ;
120 sub Filter
134 sub Filter
148 sub Filter
150 return { Store => sub {} } ;
162 sub Filter
[all …]
D02core.t21 sub writeFile
44 sub Store { $_ *= 10 }
45 sub Fetch { $_ /= 10 }
51 sub Store { $_ .= 'A' }
52 sub Fetch { s/A$// }
58 sub Store { $_ .= 'B' }
59 sub Fetch { s/B$// }
65 sub Store { $_ .= 'C' }
66 sub Fetch { s/C$// }
72 sub Store { $_ .= 'D' }
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/threads/t/
Dthread.t21 sub content {
34 $t = threads->new(sub { lock($lock); print "ok 5\n"});
40 sub dorecurse {
64 sub islocked {
80 sub testsprintf {
86 sub threaded {
148 threads->new( sub { $rand{int(rand(10000000000))}++ } ) foreach 1..25;
159 'use threads; sub a{threads->new(shift)} $t = a sub{}; $t->tid; $t->join; $t->tid');
171 sub CLONE_SKIP { $c{"A-$_[0]"}++; 1; }
172 sub DESTROY { $d{"A-". ref $_[0]}++ }
[all …]
Dbasic.t41 sub ok {
54 sub test1 {
59 sub test2 {
66 #test execuion of normal sub
67 sub test3 { ok(4,shift() == 1,"Test a normal sub") }
76 sub test4 { ok(6,1,"Detach test") }
87 sub test5 {
92 sub test6 {
98 sub test7 {
106 sub test8 {
[all …]
Djoin.t25 sub ok {
38 sub skip {
46 my $retval = threads->create(sub { return ("hi") })->join();
50 my ($thread) = threads->create(sub { return (1,2,3) });
55 my $retval = threads->create(sub { return [1] })->join();
59 my $retval = threads->create(sub { return { foo => "bar" }})->join();
63 my $retval = threads->create( sub {
77 my $retval = threads->create(sub { return $_[0]}, \$test)->join();
83 my $retval = threads->create(sub { return $_[0]}, \$test)->join();
91 threads->create(sub {
[all …]
/mirbsd/src/lib/libssl/src/crypto/bn/asm/
Dco-alpha.pl34 &sub($count,4,$count);
47 &sub($a0,$b0,$a0); # do the subtract
51 &sub($a0,$cc,$a0); # will we borrow?
56 &sub($a1,$b1,$a1); # do the subtract
59 &sub($a1,$cc,$a1); # will we borrow?
63 &sub($a2,$b2,$a2); # do the subtract
66 &sub($a2,$cc,$a2); # will we borrow?
70 &sub($a3,$b3,$a3); # do the subtract
73 &sub($a3,$cc,$a3); # will we borrow?
77 &sub($count,4,$count); # count-=4
[all …]
Dbn-586.pl68 &sub("ecx",8);
144 &sub($num,8);
206 &sub($num,8);
285 &sub($num,8);
345 &sub($tmp1,$c);
348 &sub($tmp1,$tmp2);
357 &sub($num,8);
370 &sub($tmp1,$c);
373 &sub($tmp1,$tmp2);
417 &sub($tmp1,$c);
[all …]
/mirbsd/src/lib/libssl/src/crypto/bn/asm/alpha.works/
Dsub.pl20 &sub($count,4,$count);
35 &sub($a0,$b0,$a0); # do the subtract
39 &sub($a0,$cc,$o0); # will we borrow?
44 &sub($a1,$b1,$a1); # do the subtract
47 &sub($a1,$cc,$o1); # will we borrow?
51 &sub($a2,$b2,$a2); # do the subtract
54 &sub($a2,$cc,$o2); # will we borrow?
58 &sub($a3,$b3,$a3); # do the subtract
61 &sub($a3,$cc,$o3); # will we borrow?
65 &sub($count,4,$count); # count-=4
[all …]
/mirbsd/src/lib/libssl/src/crypto/bn/asm/alpha/
Dsub.pl20 &sub($count,4,$count);
35 &sub($a0,$b0,$a0); # do the subtract
39 &sub($a0,$cc,$o0); # will we borrow?
44 &sub($a1,$b1,$a1); # do the subtract
47 &sub($a1,$cc,$o1); # will we borrow?
51 &sub($a2,$b2,$a2); # do the subtract
54 &sub($a2,$cc,$o2); # will we borrow?
58 &sub($a3,$b3,$a3); # do the subtract
61 &sub($a3,$cc,$o3); # will we borrow?
65 &sub($count,4,$count); # count-=4
[all …]
/mirbsd/src/lib/libncurses/src/menu/
Dm_cursor.c85 WINDOW *win, *sub; in pos_menu_cursor() local
94 sub = menu->usersub ? menu->usersub : win; in pos_menu_cursor()
95 assert(win && sub); in pos_menu_cursor()
100 wmove(sub, y, x); in pos_menu_cursor()
102 if (win != sub) in pos_menu_cursor()
104 wcursyncup(sub); in pos_menu_cursor()
105 wsyncup(sub); in pos_menu_cursor()
106 untouchwin(sub); in pos_menu_cursor()
/mirbsd/src/gnu/usr.bin/perl/ext/threads/shared/t/
Dav_refs.t14 sub ok {
42 my $av = threads->create(sub {
53 threads->create(sub { $av[0] = "hihi" })->join();
57 threads->create(sub { @$av = () })->join();
58 threads->create(sub { ok(9, scalar @$av == 0)})->join();
59 threads->create(sub { unshift(@$av, threads->create(sub { my @array; share(@array); return \@array}…
61 threads->create(sub { push @{$av->[0]}, \@av })->join();
62 threads->create(sub { $av[0] = 'testtest'})->join();
63 threads->create(sub { ok(11, $av->[0]->[0]->[0] eq 'testtest')})->join();
/mirbsd/src/lib/libc/regex/test/
Dmain.c27 const char *check(const char *str, regmatch_t sub, const char *should);
420 check(const char *str, regmatch_t sub, const char *should) in check() argument
436 if (sub.rm_so > sub.rm_eo || (sub.rm_so == -1 && sub.rm_eo != -1) || in check()
437 (sub.rm_so != -1 && sub.rm_eo == -1) || in check()
438 (sub.rm_so != -1 && sub.rm_so < 0) || in check()
439 (sub.rm_eo != -1 && sub.rm_eo < 0) ) { in check()
441 (long)sub.rm_so, (long)sub.rm_eo); in check()
446 if (sub.rm_so == -1 && should == NULL) in check()
448 if (sub.rm_so == -1) in check()
452 if (sub.rm_eo > strlen(str)) { in check()
[all …]
/mirbsd/src/gnu/usr.bin/perl/pod/
Dperlbot.pod85 sub new {
97 sub new {
122 sub new {
144 sub new {
154 sub new {
176 sub new {
185 sub new {
209 sub goo { print "here's the goo\n" }
212 sub google { print "google here\n" }
215 sub mumble { print "mumbling\n" }
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/lib/dprof/
Dtest1_t1 sub foo {
2 print "in sub foo\n";
6 sub bar {
7 print "in sub bar\n";
10 sub baz {
11 print "in sub baz\n";

12345678910>>...23