PERL CGI Beginners - Namespace for my module

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

Namespace for my module

anio@webgroup-bg.com

2004-05-22, 11:32 am

Hi all.
Excuse me for my bad english.
I write module for easy make of talbe in CGI.That is my first module.He
work like that:

use Table;

my $table = Table->new(-cellpadding=>2,-border=>1,-style=>'cursor:help');
print $table->startTable();
print $table->tr({-rowspan_1=>3,-bgcolor_1=>'red',-bgcolor_2=>'black'},
'CELL1','CELL2','CELL3');
print $table->tr({-style_1=>'font-size:3em'},'aaa','bbb','ccc');
print $table->endTable();
The result is:

<table cellpadding="2" border="1" style="cursor:help">
<tr>
<td rowspan="3" bgcolor="red">CELL1</td>
<td bgcolor="black">CELL2</td>
<td>CELL3</td>
</tr>
<tr>
<td style="font-size:3em">aaa</td>
<td>bbb</td>
<td>ccc</td>
</tr>
</table>

Please tell me what you think about this style.
Best Regards

Sponsored Links