| /dports/devel/p5-List-Pairwise/List-Pairwise-1.03/t/ |
| H A D | context.t | 11 map { sub { $facit = wantarray }->() } 1;
12 mapp { sub { $c = wantarray }->() } 1, 1;
18 scalar map { sub { $facit = wantarray }->() } 1;
25 () = map { sub { $facit = wantarray }->() } 1;
26 () = mapp { sub { $c = wantarray }->() } 1, 1;
34 grep { sub { $facit = wantarray }->() } 1;
35 grepp { sub { $c = wantarray }->() } 1, 1;
57 grep { sub { $facit = wantarray }->() } 1;
58 lastp { sub { $c = wantarray }->() } 1, 1;
80 grep { sub { $facit = wantarray }->() } 1;
[all …]
|
| /dports/databases/p5-DBIx-Connector/DBIx-Connector-0.57/lib/DBIx/ |
| H A D | Connector.pm | 165 my $wantarray = wantarray;
166 return _exec( $dbh, $code, $wantarray )
183 return $wantarray ? @ret : $ret[0];
197 my $wantarray = wantarray;
222 return $wantarray ? @ret : $ret[0];
230 my $wantarray = wantarray;
269 return $wantarray ? @ret : $ret[0];
284 my $wantarray = wantarray;
308 return $wantarray ? @ret : $ret[0];
312 my ($dbh, $code, $wantarray) = @_;
[all …]
|
| /dports/biology/py-python-libsbml/python-libsbml-5.19.0/libsbml_source/src/bindings/perl/ |
| H A D | list_of_fix.i | 57 return wantarray ? @lox : $lox;
70 return wantarray ? @lox : $lox;
83 return wantarray ? @lox : $lox;
96 return wantarray ? @lox : $lox;
109 return wantarray ? @lox : $lox;
122 return wantarray ? @lox : $lox;
135 return wantarray ? @lox : $lox;
148 return wantarray ? @lox : $lox;
161 return wantarray ? @lox : $lox;
174 return wantarray ? @lox : $lox;
[all …]
|
| /dports/biology/libsbml/libsbml-5.19.0/src/bindings/perl/ |
| H A D | list_of_fix.i | 57 return wantarray ? @lox : $lox;
70 return wantarray ? @lox : $lox;
83 return wantarray ? @lox : $lox;
96 return wantarray ? @lox : $lox;
109 return wantarray ? @lox : $lox;
122 return wantarray ? @lox : $lox;
135 return wantarray ? @lox : $lox;
148 return wantarray ? @lox : $lox;
161 return wantarray ? @lox : $lox;
174 return wantarray ? @lox : $lox;
[all …]
|
| /dports/mail/mimedefang/mimedefang-2.84/ |
| H A D | mimedefang.pl.in | 2646 return (wantarray ? (0, 'ok', 'ok') : 0);
2726 return (wantarray ? (0, 'ok', 'ok') : 0);
2826 return (wantarray ? (0, 'ok', 'ok') : 0);
3182 return (wantarray ? (0, 'ok', 'ok') : 0);
3196 return (wantarray ? (0, 'ok', 'ok') : 0);
3446 return (wantarray ? (0, 'ok', 'ok') : 0);
3472 return (wantarray ? (0, 'ok', 'ok') : 0);
3519 return (wantarray ? (0, 'ok', 'ok') : 0);
3600 return (wantarray ? (0, 'ok', 'ok') : 0);
3683 return (wantarray ? (0, 'ok', 'ok') : 0);
[all …]
|
| /dports/lang/perl5.34/perl-5.34.0/dist/threads/t/ |
| H A D | context.t | 57 my $wantarray = wantarray();
59 if ($wantarray) {
62 } elsif (defined($wantarray)) {
100 my $wantarray = threads->wantarray();
102 if ($wantarray) {
115 my $ctx = $thr->wantarray();
121 $ctx = $thr->wantarray();
128 $ctx = $thr->wantarray();
134 $ctx = $thr->wantarray();
140 $ctx = $thr->wantarray();
[all …]
|
| /dports/lang/perl5.30/perl-5.30.3/dist/threads/t/ |
| H A D | context.t | 57 my $wantarray = wantarray();
59 if ($wantarray) {
62 } elsif (defined($wantarray)) {
100 my $wantarray = threads->wantarray();
102 if ($wantarray) {
115 my $ctx = $thr->wantarray();
121 $ctx = $thr->wantarray();
128 $ctx = $thr->wantarray();
134 $ctx = $thr->wantarray();
140 $ctx = $thr->wantarray();
[all …]
|
| /dports/lang/perl5.32/perl-5.32.1/dist/threads/t/ |
| H A D | context.t | 57 my $wantarray = wantarray();
59 if ($wantarray) {
62 } elsif (defined($wantarray)) {
100 my $wantarray = threads->wantarray();
102 if ($wantarray) {
115 my $ctx = $thr->wantarray();
121 $ctx = $thr->wantarray();
128 $ctx = $thr->wantarray();
134 $ctx = $thr->wantarray();
140 $ctx = $thr->wantarray();
[all …]
|
| /dports/devel/p5-threads/threads-2.21/t/ |
| H A D | context.t | 57 my $wantarray = wantarray();
59 if ($wantarray) {
62 } elsif (defined($wantarray)) {
100 my $wantarray = threads->wantarray();
102 if ($wantarray) {
115 my $ctx = $thr->wantarray();
121 $ctx = $thr->wantarray();
128 $ctx = $thr->wantarray();
134 $ctx = $thr->wantarray();
140 $ctx = $thr->wantarray();
[all …]
|
| /dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/threads/t/ |
| H A D | context.t | 57 my $wantarray = wantarray();
59 if ($wantarray) {
62 } elsif (defined($wantarray)) {
100 my $wantarray = threads->wantarray();
102 if ($wantarray) {
115 my $ctx = $thr->wantarray();
121 $ctx = $thr->wantarray();
128 $ctx = $thr->wantarray();
134 $ctx = $thr->wantarray();
140 $ctx = $thr->wantarray();
[all …]
|
| /dports/lang/p5-Try-Catch/Try-Catch-1.1.0/lib/Try/ |
| H A D | Catch.pm | 15 my $wantarray = wantarray;
39 if (!defined $wantarray) {
41 } elsif (!$wantarray) {
55 if (!defined $wantarray) {
57 } elsif (!$wantarray) {
83 return $wantarray ? @ret : $ret[0];
|
| /dports/lang/perl5.34/perl-5.34.0/t/op/ |
| H A D | wantarray.t | 16 my $conb = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
30 sub simple { wantarray ? 1 : 2 }
32 my $a = wantarray ? simple() : simple();
45 $q = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
|
| /dports/lang/perl5.30/perl-5.30.3/t/op/ |
| H A D | wantarray.t | 16 my $conb = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
30 sub simple { wantarray ? 1 : 2 }
32 my $a = wantarray ? simple() : simple();
45 $q = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
|
| /dports/lang/perl5.32/perl-5.32.1/t/op/ |
| H A D | wantarray.t | 16 my $conb = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
30 sub simple { wantarray ? 1 : 2 }
32 my $a = wantarray ? simple() : simple();
45 $q = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
|
| /dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/t/op/ |
| H A D | wantarray.t | 16 my $conb = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
30 sub simple { wantarray ? 1 : 2 }
32 my $a = wantarray ? simple() : simple();
45 $q = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
|
| /dports/www/p5-HTTP-Engine/HTTP-Engine-0.03005/inc/Test/ |
| H A D | SharedFork.pm | 20 my $wantarray = [caller(1)]->[5];
21 if ($wantarray) {
23 bless {result => \@result, wantarray => $wantarray}, __PACKAGE__;
24 } elsif (defined $wantarray) {
26 bless {result => $result, wantarray => $wantarray}, __PACKAGE__;
29 bless {wantarray => $wantarray}, __PACKAGE__;
|
| /dports/devel/p5-Test-SharedFork/Test-SharedFork-0.35/lib/Test/ |
| H A D | SharedFork.pm | 19 my $wantarray = [caller(1)]->[5];
20 if ($wantarray) {
22 bless {result => \@result, wantarray => $wantarray}, __PACKAGE__;
23 } elsif (defined $wantarray) {
25 bless {result => $result, wantarray => $wantarray}, __PACKAGE__;
28 bless {wantarray => $wantarray}, __PACKAGE__;
|
| /dports/devel/p5-App-Trace/App-Trace-0.50/lib/App/ |
| H A D | Trace.pm | 276 my ($stacklevel, $calling_package, $file, $line, $subroutine, $hasargs, $wantarray, $text);
278 ($calling_package, $file, $line, $subroutine, $hasargs, $wantarray) = caller($stacklevel);
281 … ($calling_package, $file, $line, $subroutine, $hasargs, $wantarray) = caller($stacklevel);
402 my ($stacklevel, $calling_package, $file, $line, $subroutine, $hasargs, $wantarray, $text);
404 ($calling_package, $file, $line, $subroutine, $hasargs, $wantarray) = caller($stacklevel);
407 … ($calling_package, $file, $line, $subroutine, $hasargs, $wantarray) = caller($stacklevel);
483 my ($stacklevel, $calling_package, $file, $line, $subroutine, $hasargs, $wantarray, $text);
485 ($calling_package, $file, $line, $subroutine, $hasargs, $wantarray) = caller($stacklevel);
488 … ($calling_package, $file, $line, $subroutine, $hasargs, $wantarray) = caller($stacklevel);
|
| /dports/deskutils/plans/plans_8.2.1/ |
| H A D | Error.pm | 270 my($clauses,$err,$wantarray,$result) = @_;
297 if($wantarray) {
300 elsif(defined($wantarray)) {
331 if($wantarray) {
334 elsif(defined($wantarray)) {
366 my $wantarray = wantarray();
372 if($wantarray) {
375 elsif(defined $wantarray) {
|
| /dports/devel/p5-MooseX-CoverableModifiers/MooseX-CoverableModifiers-0.30/inc/Try/ |
| H A D | Tiny.pm | 31 my $wantarray = wantarray;
72 if ( $wantarray ) {
74 } elsif ( defined $wantarray ) {
111 return $wantarray ? @ret : $ret[0];
|
| /dports/devel/p5-Role-Basic/Role-Basic-0.13/t/lib/Try/ |
| H A D | Tiny.pm | 32 my $wantarray = wantarray;
73 if ( $wantarray ) {
75 } elsif ( defined $wantarray ) {
112 return $wantarray ? @ret : $ret[0];
|
| /dports/lang/perl5.34/perl-5.34.0/cpan/Text-Balanced/lib/Text/ |
| H A D | Balanced.pm | 68 my ($wantarray,$textref) = splice @_, 0, 2;
74 if ( $wantarray ) {
135 my $wantarray = wantarray;
146 return _succeed $wantarray, $textref,
157 my $wantarray = wantarray;
168 return _fail $wantarray, $textref,
182 return _succeed ( $wantarray, $textref,
504 my $wantarray = wantarray;
525 return _succeed($wantarray, $textref,
657 my $wantarray = wantarray;
[all …]
|
| /dports/lang/perl5.30/perl-5.30.3/cpan/Text-Balanced/lib/Text/ |
| H A D | Balanced.pm | 59 my ($wantarray,$textref) = splice @_, 0, 2;
65 if ( $wantarray ) {
126 my $wantarray = wantarray;
137 return _succeed $wantarray, $textref,
148 my $wantarray = wantarray;
159 return _fail $wantarray, $textref,
173 return _succeed ( $wantarray, $textref,
494 my $wantarray = wantarray;
515 return _succeed($wantarray, $textref,
647 my $wantarray = wantarray;
[all …]
|
| /dports/print/easylatex/easylatex-0.08/Text/ |
| H A D | Balanced.pm | 51 return ("",$$textref,"") if $wantarray;
62 if ($wantarray)
129 my $wantarray = wantarray;
140 return _succeed $wantarray, $textref,
151 my $wantarray = wantarray;
162 return _fail $wantarray, $textref,
176 return _succeed ( $wantarray, $textref,
479 my $wantarray = wantarray;
500 return _succeed($wantarray, $textref,
630 my $wantarray = wantarray;
[all …]
|
| /dports/lang/perl5.32/perl-5.32.1/cpan/Text-Balanced/lib/Text/ |
| H A D | Balanced.pm | 59 my ($wantarray,$textref) = splice @_, 0, 2;
65 if ( $wantarray ) {
126 my $wantarray = wantarray;
137 return _succeed $wantarray, $textref,
148 my $wantarray = wantarray;
159 return _fail $wantarray, $textref,
173 return _succeed ( $wantarray, $textref,
494 my $wantarray = wantarray;
515 return _succeed($wantarray, $textref,
647 my $wantarray = wantarray;
[all …]
|