| /openbsd-src/gnu/usr.bin/perl/cpan/autodie/lib/ |
| H A D | Fatal.pm | 787 my ($class, $core, $call, $name, $void, $lexical, $sub, $sref, @argvs) = @_;
794 return $class->_one_invocation($core,$call,$name,$void,$sub,! $lexical, $sref, @argv);
816 push @out, $class->_one_invocation($core,$call,$name,$void,$sub,! $lexical, $sref, @argv);
852 my ($class, $core, $call, $name, $void, $sub, $back_compat, $sref, @argv) = @_;
928 $hints = autodie::hints->get_hints_for( $sref );
934 $human_sub_name = autodie::hints->sub_fullname( $sref );
1227 my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type);
1267 $sref = \&$sub;
1279 # We return our $sref from this subroutine later
1291 if (exists($Is_fatalised_sub{$sref})) {
[all...] |
| /openbsd-src/gnu/usr.bin/perl/t/op/ |
| H A D | aassign.t | 568 my $sref = do { my $tmp = 2; \$tmp };
569 ($sref, $fill) = (1, $$sref);
570 is ($sref, 1, "RT #130132 scalar 1");
574 $sref = \$x;
575 ($sref, $$sref) = (2, 3);
576 is ($sref, 2, "RT #130132 scalar derefffed 1");
580 $sref = \$x;
581 ($sref, $$sref) = (2);
582 is ($sref, 2, "RT #130132 scalar undef 1");
586 $sref = do { my $tmp = 2; \$tmp };
[all …]
|
| H A D | inccode.t | 149 my $sref = bless( \(my $x = 1), 'FooLoader' );
150 push @INC, $sref;
158 is( $INC{'Quux2.pm'}, $sref, ' val Quux2.pm is correct in %INC' );
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test/Builder/IO/ |
| H A D | Scalar.pm | 90 my ($self, $sref) = @_;
93 defined($sref) or do {my $s = ''; $sref = \$s};
94 (ref($sref) eq "SCALAR") or croak "open() needs a ref to a scalar";
98 *$self->{SR} = $sref; ### scalar reference
542 sub sref { *{shift()}->{SR} } subroutine
|
| /openbsd-src/gnu/llvm/lldb/source/API/ |
| H A D | SBInstructionList.cpp | 141 bool SBInstructionList::GetDescription(Stream &sref) { in GetDescription() argument
168 inst->Dump(&sref, max_opcode_byte_size, true, false, in GetDescription()
171 sref.EOL(); in GetDescription()
|
| /openbsd-src/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | st-dump.pl | 86 my ($sref) = @_;
87 my $scalar = $$sref;
|
| /openbsd-src/gnu/usr.bin/perl/dist/threads-shared/t/ |
| H A D | blessed.t | 43 my $sref = \do{ my $x };
44 share($sref);
45 $sobj = $sref;
|
| /openbsd-src/gnu/llvm/lldb/source/Interpreter/ |
| H A D | OptionArgParser.cpp | 155 llvm::StringRef sref = s; in ToAddress() local
223 if (g_symbol_plus_offset_regex.Execute(sref, &matches)) { in ToAddress()
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Pod-Usage/lib/Pod/ |
| H A D | Usage.pm | 268 my $sref = $self->{USAGE_SELECT};
274 push(@$sref, $cs);
|
| /openbsd-src/gnu/usr.bin/perl/ |
| H A D | sv.c | 3889 SV * const sref = (SV *)GvAV((const GV *)dsv); in Perl_gv_setref()
3890 if (SvSMAGICAL(sref) && (mg = mg_find(sref, PERL_MAGIC_isa))) { in Perl_gv_setref()
3900 else sv_magic(sref, dsv, PERL_MAGIC_isa, NULL, 0); in Perl_gv_setref()
3928 SV * const sref = SvRV(ssv); in Perl_gv_setref()
3933 const U32 stype = SvTYPE(sref); in Perl_gv_setref()
3968 /*if (GvCVGEN(dsv) && (GvCV(dsv) != (const CV *)sref || GvCVGEN(dsv))) {*/ in Perl_gv_setref()
3995 if (stype == SVt_PVCV && (*location != sref || GvCVGEN(dsv))) { in Perl_gv_setref()
4005 CvCONST((const CV *)sref) in Perl_gv_setref()
4006 ? cv_const_sv_or_av((const CV *)sref) in Perl_gv_setref()
3827 SV * const sref = (SV *)GvAV((const GV *)dsv); S_glob_assign_glob() local
3866 SV * const sref = SvRV(ssv); Perl_gv_setref() local
[all...] |
| /openbsd-src/gnu/usr.bin/perl/t/comp/ |
| H A D | proto.t | 619 sreftest my $sref, $i++;
|
| /openbsd-src/gnu/llvm/lldb/source/Commands/ |
| H A D | CommandObjectType.cpp | 74 SynthAddOptions(bool sptr, bool sref, bool casc, in SynthAddOptions() argument
76 : m_skip_pointers(sptr), m_skip_references(sref), m_cascade(casc), in SynthAddOptions()
|
| /openbsd-src/gnu/usr.bin/perl/pod/ |
| H A D | perlref.pod | 744 $sref->$*; # same as ${ $sref }
|
| H A D | perl5200delta.pod | 75 $sref->$*; # same as ${ $sref } # interpolates
|