-#!/usr/bin/perl
-
+use strict;
+use warnings;
package Devel::REPL::Plugin::PPI;
-use Devel::REPL::Plugin;
+use Devel::REPL::Plugin;
use PPI;
use PPI::Dumper;
+use namespace::autoclean;
-use namespace::clean -except => [ 'meta' ];
-
-with qw(Devel::REPL::Plugin::Turtles);
+sub BEFORE_PLUGIN {
+ my $self = shift;
+ $self->load_plugin('Turtles');
+}
sub expr_command_ppi {
my ( $self, $eval, $code ) = @_;
PPI::Document
PPI::Statement
PPI::Token::Word 'Devel::REPL'
-
+
repl> #ppi {
> warn $];
> }