From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RURBAN / B-Flags-0.17 / Flags.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
—
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

              
package B::Flags;
use B;
require 5.005_62;
use strict;
require DynaLoader;
our @ISA = qw(DynaLoader);
our $VERSION = '0.17';
bootstrap B::Flags $VERSION;
1;
__END__
=head1 NAME
B::Flags - Friendlier flags for B
=head1 SYNOPSIS
  use B::Flags;
  # some ops
  print B::main_root->flagspv;
  print B::main_root->privatepv;
  print $some_b_sv_object->flagspv;
=head1 DESCRIPTION
Stringification of flags.
By default, C<$foo-E<gt>flags> when passed an object in the C<B> class
will produce a relatively meaningless number, which one would need to
grovel through the Perl source code in order to do anything useful with.
This module adds C<flagspv> to the SV and op classes and C<privatepv> to
the op classes, which makes them easier to understand.
=head1 METHODS
=over
=item OP->flagspv
Returns stringification of the OP flags.
Adds now SIBLING to abstract the new LASTSIB/MORESIB flags since 5.21/5.22
and the old C<op_sibling> pointer. Since 5.22 missing the SIBLING flags indicates
a PARENT at the C<op_sibparent> pointer, with -DPERL_OP_PARENT.
=item OP->privatepv
Returns stringification of the OP private flags.
=item SV->flagspv [type]
Returns stringification of the SV flags.
With the optional type only the flags for the given SvTYPE are used.
type 0 is for the SvFLAGS only.
This way you can seperate between sv->FLAGS and specialized AvFLAGS,
GvFLAGS, CvFLAGS, ... in seperate struct fields.
Note that only the names of bitmasked SV and OP flags are returned,
not pseudo flags, like TAINTED, which is stored as magic.
PAD, PADNAME, PADLIST and PADNAMELIST flags are now also supported.
=back
=head1 AUTHOR
Simon Cozens, simon@cpan.org
=head1 MAINTAINER
Reini Urban, rurban@cpan.org
Abhijit Menon-Sen, ams@cpan.org
=head1 SEE ALSO
perl(1).
=head1 LICENSE
AL & GPL.
Copyright 2001 Simon Cozens
Copyright 2010,2013,2014,2015 Reini Urban
=cut