PDLA-Core

 view release on metacpan or  search on metacpan

Perldl2/Plugin/CleanErrors.pm  view on Meta::CPAN

package PDLA::Perldl2::Plugin::CleanErrors;

use Devel::REPL::Plugin;

use namespace::clean -except => [ 'meta' ];

around 'error_return' => sub {
   my ($orig, $self) = (shift, shift);
   my ($type, $error) = @_;

   return $orig->($self, $type, clean_error_string($error));
};

Perldl2/Plugin/NiceSlice.pm  view on Meta::CPAN

package PDLA::Perldl2::Plugin::NiceSlice;

use Devel::REPL::Plugin;

use namespace::clean -except => [ 'meta' ];

use PDLA::Lite;
use PDLA::NiceSlice;

my $preproc = sub {
   my ($txt) = @_;
   my $new = PDLA::NiceSlice::perldlpp('main',$txt);
   return $new;

Perldl2/Plugin/PDLACommands.pm  view on Meta::CPAN

package PDLA::Perldl2::Plugin::PDLACommands;

use Devel::REPL::Plugin;

use namespace::clean -except => [ 'meta' ];

# The atomic option---need to deconflict Turtle command injection
# using qr{\#} and perldla's usage for command escapes.  Just
# exclude for now to get things working
excludes 'Turtles';

around 'read' => sub {

Perldl2/Plugin/PrintControl.pm  view on Meta::CPAN

package PDLA::Perldl2::Plugin::PrintControl;

use Devel::REPL::Plugin;

use namespace::clean -except => [ 'meta' ];

has 'print_by_default' => (
             is  => 'rw',
             default => 0,
         );

around 'format_result' => sub {