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
|
package PDL::Perldl2::Plugin::NiceSlice;
use strict;
use warnings;
use Devel::REPL::Plugin;
use namespace::clean -except => [ 'meta' ];
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
|
