Select Code to Download

sub cell {
  # $tab is a number.
...
  }
  line($tab,qq(</t$type>));
}

sub row {
  # $tab is a number.
...

  line($tab,q(</tr>));
}

sub table {
  # $tab is again a number.
...

  line($tab,q(</table>));
}

sub list {
  # And again, $tab is a number.
...
  line($tab + 1,qq(<li>$_</li>)) for @{$list};
  line($tab,q(</ul>));
}

sub col {
  my ($tab,$opt) = @_;
...
  my ($tab,$cols) = @_;
  col($tab,$_) for @{$cols};
}

sub sline {
  my ($tab,$line) = @_;
...
sub line {
  print sline(@_);
}

package Base::HTML::Elements;
use strict;
...
}

1;