$form->select( DATA => $data );
$data = [ { KEY => string VALUE => string ORDER => \d+ }, ];
$data = { KEY => { KEY => string VALUE => string ORDER => \d+ }, KEY => value..., };
my $form = new Review::HTML::Form; $text .= $form->image_submit_default( NAME => 'def_but', SRC => 'img/empty.png' ); $text .= $form->line( NAME => 'line_one', DATA => ( $I{ 'LINE_ONE' } || 'ne se chete' ) ); $text .= $form->begin( NAME => 'try1' ); $text .= 'cb1' . $form->cb( NAME => 'cb1', VAL => 1 ); $text .= 'cb2' . $form->cb( NAME => 'cb2', VAL => 0 ); $text .= 'cb3' . $form->cb( NAME => 'cb3', VAL => 0, MAX => 3, RET => [ 'qwe', 'asd', '[-]' ] ); $text .= "<p>"; $text .= "<hr noshade>"; $text .= 'r1' . $form->radio( NAME => 'r1' ); $text .= 'r2' . $form->radio( NAME => 'r1' ); $text .= 'r3' . $form->radio( NAME => 'r1', ON => 1 ); $text .= 'r4' . $form->radio( NAME => 'r1' ); $text .= 'r5' . $form->radio( NAME => 'r1' ); $text .= "<hr noshade>"; $text .= 'r1' . $form->radio( NAME => 'r2', ON => 1 ); $text .= 'r2' . $form->radio( NAME => 'r2', RET => 'asd' ); $text .= 'r3' . $form->radio( NAME => 'r2', RET => 'qwe' ); $text .= 'r4' . $form->radio( NAME => 'r2', RET => 'zxc' ); $text .= 'r5' . $form->radio( NAME => 'r2', RET => '[-]' ); $text .= "<hr noshade>"; my $data = { 'one' => 'This is test one', 'opa' => 'Opa test ooooooe', 'two' => 'Test two tralala', 'tra' => 'Tralala again+++', }; $text .= $form->select( NAME => 'sel2', DATA => $data, SELECTED => [ 'opa' ], ROWS => 4 ); $text .= "<p>"; $text .= $form->button( NAME => 'bbb', VALUE => '"%!@#$&^' ); $text .= $form->end();
To install Web::Reactor, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Web::Reactor
CPAN shell
perl -MCPAN -e shell install Web::Reactor
For more information on module installation, please visit the detailed CPAN module installation guide.