--- 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;