Home
last modified time | relevance | path

Searched refs:const_sv (Results 1 – 19 of 19) sorted by relevance

/dports/devel/p5-Module-Info/Module-Info-0.35/lib/B/Module/
H A DInfo.pm68 my $cv = const_sv($_[0]);
140 $module = const_sv($req_op->first)->PV;
186 sub const_sv { subroutine
299 return '' unless const_sv($constop)->PV eq $module;
301 $version = const_sv($constop);
319 return '' if const_sv($constop)->PV ne "VERSION";
338 $name = const_sv($op->first)->PV;
350 my $sv = const_sv($kid);
390 const_sv($kid)->PV,
436 $class = const_sv($classop)->PV;
/dports/lang/perl5.30/perl-5.30.3/
H A Dpad.c2118 SV* const_sv; in S_cv_clone_pad() local
2125 const_sv = PAD_BASE_SV(CvPADLIST(cv), o->op_targ); in S_cv_clone_pad()
2128 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad()
2172 const_sv = newSVsv(const_sv); in S_cv_clone_pad()
2180 SvREFCNT_inc_simple_void_NN(const_sv); in S_cv_clone_pad()
2184 SvREADONLY_on(const_sv); in S_cv_clone_pad()
2185 SvPADTMP_on(const_sv); in S_cv_clone_pad()
2187 cv = newCONSTSUB(CvSTASH(proto), NULL, const_sv); in S_cv_clone_pad()
H A Dop.c9509 SV *const_sv; in Perl_newMYSUB() local
9616 const_sv = NULL; in Perl_newMYSUB()
9647 if (const_sv) { in Perl_newMYSUB()
9749 if (const_sv) in Perl_newMYSUB()
9947 SV *const_sv; in Perl_newATTRSUB_x() local
10117 const_sv = in Perl_newATTRSUB_x()
10124 const_sv = NULL; in Perl_newATTRSUB_x()
10145 && ( !const_sv || SvRV(gv) == const_sv in Perl_newATTRSUB_x()
10183 if (const_sv) { in Perl_newATTRSUB_x()
10203 const_sv in Perl_newATTRSUB_x()
[all …]
/dports/lang/perl5.32/perl-5.32.1/lib/B/
H A DDeparse.pm563 $module = $self->const_sv($req_op->first)->PV;
580 $version = $self->const_sv($constop);
1391 my $sv = $cv->const_sv;
1426 push @text, "\f".$self->const_sv($kid)->PV;
2545 my $kid = $self->const_sv($op->first)->PV;
2675 my $sv = $self->const_sv($kid);
3473 $fh = $self->const_sv($kid)->PV;
3500 $indir = $self->const_sv($indir)->PV;
4333 my $av = $self->const_sv($kid);
5504 sub const_sv { subroutine
[all …]
/dports/lang/perl5.30/perl-5.30.3/lib/B/
H A DDeparse.pm561 $module = $self->const_sv($req_op->first)->PV;
578 $version = $self->const_sv($constop);
1361 my $sv = $cv->const_sv;
1396 push @text, "\f".$self->const_sv($kid)->PV;
2514 my $kid = $self->const_sv($op->first)->PV;
2644 my $sv = $self->const_sv($kid);
3382 $fh = $self->const_sv($kid)->PV;
3409 $indir = $self->const_sv($indir)->PV;
4242 my $av = $self->const_sv($kid);
5413 sub const_sv { subroutine
[all …]
/dports/lang/perl5.32/perl-5.32.1/
H A Dpad.c2120 SV* const_sv; in S_cv_clone_pad() local
2127 const_sv = PAD_BASE_SV(CvPADLIST(cv), o->op_targ); in S_cv_clone_pad()
2130 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad()
2168 SvREFCNT_inc_simple_void_NN(const_sv); in S_cv_clone_pad()
2172 SvREADONLY_on(const_sv); in S_cv_clone_pad()
2173 SvPADTMP_on(const_sv); in S_cv_clone_pad()
2175 cv = newCONSTSUB(CvSTASH(proto), NULL, const_sv); in S_cv_clone_pad()
H A Dop.c10787 SV *const_sv; in Perl_newMYSUB() local
10894 const_sv = NULL; in Perl_newMYSUB()
10925 if (const_sv) { in Perl_newMYSUB()
11027 if (const_sv) in Perl_newMYSUB()
11225 SV *const_sv; in Perl_newATTRSUB_x() local
11395 const_sv = in Perl_newATTRSUB_x()
11402 const_sv = NULL; in Perl_newATTRSUB_x()
11423 && ( !const_sv || SvRV(gv) == const_sv in Perl_newATTRSUB_x()
11461 if (const_sv) { in Perl_newATTRSUB_x()
11481 const_sv in Perl_newATTRSUB_x()
[all …]
/dports/lang/perl5.34/perl-5.34.0/
H A Dpad.c2118 SV* const_sv; in S_cv_clone_pad() local
2125 const_sv = PAD_BASE_SV(CvPADLIST(cv), o->op_targ); in S_cv_clone_pad()
2128 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad()
2166 SvREFCNT_inc_simple_void_NN(const_sv); in S_cv_clone_pad()
2170 SvREADONLY_on(const_sv); in S_cv_clone_pad()
2171 SvPADTMP_on(const_sv); in S_cv_clone_pad()
2173 cv = newCONSTSUB(CvSTASH(proto), NULL, const_sv); in S_cv_clone_pad()
H A Dop.c10842 SV *const_sv; in Perl_newMYSUB() local
10948 const_sv = NULL; in Perl_newMYSUB()
10979 if (const_sv) { in Perl_newMYSUB()
11080 if (const_sv) in Perl_newMYSUB()
11289 SV *const_sv; in Perl_newATTRSUB_x() local
11459 const_sv = in Perl_newATTRSUB_x()
11466 const_sv = NULL; in Perl_newATTRSUB_x()
11487 && ( !const_sv || SvRV(gv) == const_sv in Perl_newATTRSUB_x()
11525 if (const_sv) { in Perl_newATTRSUB_x()
11545 const_sv in Perl_newATTRSUB_x()
[all …]
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/
H A Dpad.c2125 SV* const_sv; in S_cv_clone_pad() local
2132 const_sv = PAD_BASE_SV(CvPADLIST(cv), o->op_targ); in S_cv_clone_pad()
2135 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad()
2173 SvREFCNT_inc_simple_void_NN(const_sv); in S_cv_clone_pad()
2177 SvREADONLY_on(const_sv); in S_cv_clone_pad()
2178 SvPADTMP_on(const_sv); in S_cv_clone_pad()
2180 cv = newCONSTSUB(CvSTASH(proto), NULL, const_sv); in S_cv_clone_pad()
H A Dop.c10887 SV *const_sv; in Perl_newMYSUB() local
10990 const_sv = NULL; in Perl_newMYSUB()
10993 const_sv = NULL; in Perl_newMYSUB()
11024 if (const_sv) { in Perl_newMYSUB()
11125 if (const_sv) in Perl_newMYSUB()
11333 SV *const_sv; in Perl_newATTRSUB_x() local
11503 const_sv = in Perl_newATTRSUB_x()
11507 const_sv = NULL; in Perl_newATTRSUB_x()
11510 const_sv = NULL; in Perl_newATTRSUB_x()
11531 && ( !const_sv || SvRV(gv) == const_sv in Perl_newATTRSUB_x()
[all …]
/dports/lang/perl5.34/perl-5.34.0/lib/B/
H A DDeparse.pm564 $module = $self->const_sv($req_op->first)->PV;
581 $version = $self->const_sv($constop);
1392 my $sv = $cv->const_sv;
1427 push @text, "\f".$self->const_sv($kid)->PV;
2548 my $kid = $self->const_sv($op->first)->PV;
2678 my $sv = $self->const_sv($kid);
3476 $fh = $self->const_sv($kid)->PV;
3503 $indir = $self->const_sv($indir)->PV;
4361 my $av = $self->const_sv($kid);
5532 sub const_sv { subroutine
[all …]
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/lib/B/
H A DDeparse.pm564 $module = $self->const_sv($req_op->first)->PV;
581 $version = $self->const_sv($constop);
1392 my $sv = $cv->const_sv;
1427 push @text, "\f".$self->const_sv($kid)->PV;
2549 my $kid = $self->const_sv($op->first)->PV;
2679 my $sv = $self->const_sv($kid);
3477 $fh = $self->const_sv($kid)->PV;
3504 $indir = $self->const_sv($indir)->PV;
4366 my $av = $self->const_sv($kid);
5537 sub const_sv { subroutine
[all …]
/dports/math/polymake/polymake-4.5/lib/core/src/perl/
H A DPoly.xxs63 GV* retrieve_gv(pTHX_ OP* o, OP* const_op, SV** const_sv, PERL_CONTEXT* cx, PERL_CONTEXT* cx_bottom)
74 if (const_sv) *const_sv = UNOP_AUX_item_sv(++items);
79 if (const_sv) *const_sv = cSVOPx_sv(const_op);
/dports/lang/perl5.34/perl-5.34.0/ext/B/
H A DB.xs2074 const_sv(cv)
/dports/lang/perl5.32/perl-5.32.1/ext/B/
H A DB.xs2006 const_sv(cv)
/dports/lang/perl5.30/perl-5.30.3/ext/B/
H A DB.xs1998 const_sv(cv)
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ext/B/
H A DB.xs2074 const_sv(cv)
/dports/devel/p5-Test-DBIx-Class/Test-DBIx-Class-0.52/
H A Dtags4032 av ../perl/lib/B/Deparse.pm /^ my $av = $self->const_sv($kid);$/;" v file: class:Deparse
6270 const_sv ../perl/lib/B/Deparse.pm /^sub const_sv {$/;" s class:Deparse
10324 kid ../perl/lib/B/Deparse.pm /^ my $kid = $self->const_sv($op->first)->PV;$/;" v file: class:Deparse
20388 sv ../perl/lib/B/Deparse.pm /^ my $sv = $cv->const_sv;$/;" v file: class:Deparse
20389 sv ../perl/lib/B/Deparse.pm /^ my $sv = $self->const_sv($kid);$/;" v file: class:Deparse
20393 sv ../perl/lib/B/Deparse.pm /^ my $sv = $self->const_sv($op);$/;" v file: class:Deparse
21121 unbacked ../perl/lib/B/Deparse.pm /^ my $unbacked = re_unback($self->const_sv($op)->as_string);$/;"…