-#!/usr/bin/perl
-
+use strict;
+use warnings;
package Devel::REPL::Plugin::B::Concise;
-use Devel::REPL::Plugin;
-
-use B::Concise ();
-
-B::Concise::compileOpts(qw(-nobanner));
+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;
+ my $prefix = $self->default_command_prefix;
$self->add_turtles_matcher(qr/^
\#(concise) \s+
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]
+ 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