/usr/share/perl5/Devel/REPL/Plugin/B/Concise.pm is in libdevel-repl-perl 1.003026-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | use strict;
use warnings;
package Devel::REPL::Plugin::B::Concise;
BEGIN {
$Devel::REPL::Plugin::B::Concise::AUTHORITY = 'cpan:PHAYLON';
}
$Devel::REPL::Plugin::B::Concise::VERSION = '1.003026';
use Devel::REPL::Plugin;
use B::Concise 0.62 ();
use namespace::autoclean;
B::Concise::compileOpts qw(-nobanner);
sub BEFORE_PLUGIN {
my $self = shift;
$self->load_plugin('Turtles');
}
sub AFTER_PLUGIN {
my $self = shift;
my $prefix = $self->default_command_prefix;
$self->add_turtles_matcher(qr/^
\#(concise) \s+
( (?:\-\w+\s+)* ) # options for concise
(.*) # the code
/x);
}
sub expr_command_concise {
my ( $self, $eval, $opts, $code ) = @_;
die unless $code;
my %opts = map { $_ => 1 } (split /\s+/, $opts);
my $sub = $self->compile($code, no_mangling => !delete($opts{"-mangle"}) );
if ( $self->is_error($sub) ) {
return $self->format($sub);
} else {
open my $fh, ">", \my $out;
{
local *STDOUT = $fh;
B::Concise::compile(keys %opts, $sub)->();
}
return $out;
}
}
__PACKAGE__
__END__
=pod
=head1 NAME
Devel::REPL::Plugin::B::Concise - B::Concise dumping of expression optrees
=head1 VERSION
version 1.003026
=head1 SYNOPSIS
repl> #concise -exec -terse {
> foo => foo(),
> }
COP (0x138b1e0) nextstate
OP (0x13bd280) pushmark
SVOP (0x138c6a0) const PV (0xbbab50) "foo"
OP (0x13bbae0) pushmark
SVOP (0x13bcee0) gv GV (0xbbb250) *Devel::REPL::Plugin::B::Concise::foo
UNOP (0x13890a0) entersub [1]
LISTOP (0x13ba020) anonhash
UNOP (0x5983d0) leavesub [1]
=head1 DESCRIPTION
This plugin provides a C<concise> command that uses L<B::Concise> to dump
optrees of expressions.
The code is not actually executed, which means that when used with
L<Deve::REPL::Plugin::OutputCache> there is no new value in C<_>.
The command takes the same options as L<B::Concise/compile>, e.g. C<-basic> or
C<-exec> to determine the dump order, C<-debug>, C<-concise> and C<-terse> to
determine the formatting, etc.
=head1 AUTHOR
Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
=cut
|