--- ISelect.pm 2007/10/25 15:50:56 12
+++ ISelect.pm 2007/10/25 16:08:43 13
@@ -7,7 +7,15 @@
use Carp qw/cluck confess/;
use Data::Dump qw/dump/;
-our $VERSION = '0.00';
+use base qw/Class::Accessor/;
+__PACKAGE__->mk_accessors( qw/
+lines
+
+debug
+/ );
+
+
+our $VERSION = '0.01';
=head1 NAME
@@ -15,6 +23,18 @@
=head1 METHODS
+=head2 new
+
+ my $iselect = Term::ISelect->new({
+ lines => [
+ 'first line',
+ '{s}second selectable line',
+ '',
+ 'last line',
+ ],
+ debug => 1
+ });
+
=cut
my $scr;
@@ -212,4 +232,22 @@
$scr->clrscr();
}
+=head1 SEE ALSO
+
+L - Interactive Terminal Selection
+written by Ralf S. Engelschall which is original implementation in C
+
+=head1 AUTHOR
+
+Dobrica Pavlinusic, C<< >>
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2006-2007 Dobrica Pavlinusic, All Rights Reserved.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
1;