—package
PDL::Perldl2::Plugin::NiceSlice;
use
strict;
use
warnings;
use
Devel::REPL::Plugin;
use
PDL::Lite;
use
PDL::NiceSlice;
my
$preproc
=
sub
{
my
(
$txt
) =
@_
;
my
$new
= PDL::NiceSlice::perldlpp(
'main'
,
$txt
);
return
$new
;
};
around
'compile'
=>
sub
{
my
(
$orig
,
$self
) = (
shift
,
shift
);
my
(
$lines
,
@args
) =
@_
;
no
PDL::NiceSlice;
$lines
=
$preproc
->(
$lines
);
$self
->
$orig
(
$lines
,
@args
);
};
1;
__END__
=head1 NAME
PDL::Perldl2::Plugin::NiceSlice - enable PDL NiceSlice syntax
=head1 DESCRIPTION
This plugin enables one to use the PDL::NiceSlice syntax in an
instance of C<Devel::REPL> such as the new Perldl2 shell, C<pdl2>.
Without the plugin, array slicing looks like this:
pdl> use PDL;
pdl> $x = sequence(10);
$PDL1 = [0 1 2 3 4 5 6 7 8 9];
pdl> $x->slice("2:9:2");
$PDL1 = [2 4 6 8];
After the NiceSlice plugin has been loaded, you can use this:
pdl> $x(2:9:2)
$PDL1 = [2 4 6 8];
=head1 CAVEATS
C<PDL::NiceSlice> uses Perl source preprocessing.
If you need 100% pure Perl compatibility, use the
slice method instead.
=head1 SEE ALSO
C<PDL::NiceSlice>, C<Devel::REPL>, C<PDL::Perldl>
=head1 AUTHOR
Chris Marshall, C<< <chm at cpan dot org> >>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2010 by Christopher Marshall
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut