7 |
use Carp qw/cluck confess/; |
use Carp qw/cluck confess/; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
|
|
10 |
our $VERSION = '0.00'; |
use base qw/Class::Accessor/; |
11 |
|
__PACKAGE__->mk_accessors( qw/ |
12 |
|
lines |
13 |
|
|
14 |
|
debug |
15 |
|
/ ); |
16 |
|
|
17 |
|
|
18 |
|
our $VERSION = '0.01'; |
19 |
|
|
20 |
=head1 NAME |
=head1 NAME |
21 |
|
|
23 |
|
|
24 |
=head1 METHODS |
=head1 METHODS |
25 |
|
|
26 |
|
=head2 new |
27 |
|
|
28 |
|
my $iselect = Term::ISelect->new({ |
29 |
|
lines => [ |
30 |
|
'first line', |
31 |
|
'{s}second selectable line', |
32 |
|
'', |
33 |
|
'last line', |
34 |
|
], |
35 |
|
debug => 1 |
36 |
|
}); |
37 |
|
|
38 |
=cut |
=cut |
39 |
|
|
40 |
my $scr; |
my $scr; |
232 |
$scr->clrscr(); |
$scr->clrscr(); |
233 |
} |
} |
234 |
|
|
235 |
|
=head1 SEE ALSO |
236 |
|
|
237 |
|
L<http://www.ossp.org/pkg/tool/iselect/> - Interactive Terminal Selection |
238 |
|
written by Ralf S. Engelschall which is original implementation in C |
239 |
|
|
240 |
|
=head1 AUTHOR |
241 |
|
|
242 |
|
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >> |
243 |
|
|
244 |
|
=head1 COPYRIGHT & LICENSE |
245 |
|
|
246 |
|
Copyright 2006-2007 Dobrica Pavlinusic, All Rights Reserved. |
247 |
|
|
248 |
|
This program is free software; you can redistribute it and/or modify it |
249 |
|
under the same terms as Perl itself. |
250 |
|
|
251 |
|
=cut |
252 |
|
|
253 |
1; |
1; |