--- lib/PXElator/html.pm 2009/07/30 16:26:54 64
+++ lib/PXElator/html.pm 2009/08/09 22:05:09 188
@@ -1,18 +1,63 @@
package html;
+use Data::Dump qw/dump/;
+
sub table {
my $cols = shift;
+ my $th;
+
+ if ( $cols < 0 ) {
+ $cols = abs($cols);
+ $th .= qq|
| . shift(@_) . qq|| foreach ( 1 .. $cols );
+ $th .= qq|\n | |;
+ }
+
my @td = map { "$_ | " } @_;
- my $html = qq{\n};
+ my $html = qq{\n$th};
foreach ( 0 .. $#td ) {
$html .= $td[$_];
- $html .= qq{
\n} if $_ % $cols == 1;
+ $html .= qq{
\n} if ( $_ + 1 ) % $cols == 0;
}
$html .= qq{
\n
};
}
+sub tabs {
+ return unless @_;
+ my $html = qq{\n};
+ foreach my $row ( @_ ) {
+ $row =~ s{\t}{}g;
+ $html .= qq| |
$row |
\n|;
+ }
+ $html .= qq|
|;
+ return $html;
+}
+
+
sub tt {
- qq|| . join(' ', @_) . qq||;
+ qq|| . join(' ', @_) . qq|| if @_;
+}
+
+sub select {
+ my $name = shift;
+ my $selected_option = shift;
+ return join("\n"
+ , qq||
+ , qq||
+ );
+}
+
+sub pre {
+ qq|| . join(' ', @_) . qq|
| if @_;
+}
+
+sub pre_dump {
+ my $data = shift;
+ my $dump = dump( $data );
+ $dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs;
+ $dump =~ s{"([^"]*)"}{"$1"}gs;
+ qq|$dump
|;
}
warn "loaded";