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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
# You may distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
# (C) Paul Evans, 2020 -- leonerd@leonerd.org.uk
package Devel::MAT::Tool::Outrefs 0.53;
use v5.14;
use warnings;
use base qw( Devel::MAT::Tool );
use List::UtilsBy qw( sort_by );
=head1 NAME
C<Devel::MAT::Tool::Outrefs> - show SVs referred to by a given SV
=head1 DESCRIPTION
This C<Devel::MAT> tool provides a command to list the other SVs that a given
SV retains a reference to.
=head1 COMANDS
=cut
=head2 outrefs
pmat> outrefs defstash
...
Shows the outgoing references that refer to other SVs.
Takes the following named options:
=over 4
=item --weak
Include weak direct references in the output (by default only strong direct
ones will be included).
=item --all
Include both weak and indirect references in the output.
=back
=cut
use constant CMD => "outrefs";
use constant CMD_DESC => "Show outgoing references from a given SV";
use constant CMD_OPTS => (
weak => { help => "include weak references" },
all => { help => "include weak and indirect references",
alias => "a" },
);
use constant CMD_ARGS_SV => 1;
my %NOTES_BY_STRENGTH = (
strong => Devel::MAT::Cmd->format_note( "s" ),
weak => Devel::MAT::Cmd->format_note( "w", 1 ),
indirect => Devel::MAT::Cmd->format_note( "i", 2 ),
inferred => Devel::MAT::Cmd->format_note( "~", 2 ),
);
sub run
{
my $self = shift;
my %opts = %{ +shift };
my ( $sv ) = @_;
my $method = $opts{all} ? "outrefs" :
$opts{weak} ? "outrefs_direct" :
"outrefs_strong";
$self->show_refs_by_method( $method, $sv );
}
sub show_refs_by_method
{
my $self = shift;
my ( $method, $sv ) = @_;
my @refs = grep { $_->sv } sort_by { $_->name } $sv->$method;
Devel::MAT::Tool::more->paginate( sub {
my ( $count ) = @_;
my @table;
my $ref;
$ref = shift @refs and
push @table, [
$NOTES_BY_STRENGTH{ $ref->strength },
$ref->name,
Devel::MAT::Cmd->format_sv( $ref->sv ),
] while $count--;
Devel::MAT::Cmd->print_table( \@table, sep => " " );
return scalar @refs;
} );
}
=head1 AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
=cut
0x55AA;
|
