---
name: "HTML::Auto"
section: "3pm"
platform: "linux"
package: "libhtml-auto-perl"
version: "0.09-2"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/HTML::Auto"
---

# HTML::Auto(3pm)

write HTML for common elements

## NAME

HTML::Auto - write HTML for common elements

## VERSION

version 0.09

## SYNOPSIS

Simple example:

```
  use HTML::Auto qw/matrix h v/;
  my @cols = qw/c1 c2 c3 c4 c5/;
  my @lines = qw/l1 l2 l3 l4 l5/;
  my $data =
     [ [1,2,3,4,5],
       [6,7,8,9,0],
       [1,1,1,1,1],
       [2,2,2,2,2],
       [3,3,3,3,3] ];
  my $m = matrix(\@cols,\@lines,$data);
  print v(
          h($m,$m,$m),
          h($m,$m),
        );
```

Using attributes:

```
  use HTML::Auto qw/matrix h v/;
  my @cols = qw/c1 c2/;
  my @lines = qw/l1 l2/;
  my $data =
     [
       [
         {v => 1, a => { style => 'background: green'}},
         2
       ],
       [
         {v => 3, a => {class => 'foo'}},
         {v => 4, a => {style => 'color: red'}}
       ]
     ];
  my $m = matrix(\@cols,\@lines,$data);
  print v(
          h($m)
        );
```

With mouse-over span:

```
  use HTML::Auto qw/matrix h v/;
  my @cols = qw/c1 c2/;
  my @lines = qw/l1 l2/;
  my $data =
     [[1,2],
    [3,
    { v=> 4,
      more_info => "This is a pop-up!"
    }]
   ];
  my $m = matrix(\@cols,\@lines,$data);
  print v(
          h($m)
        );
```

Passing additional CSS:

```
  use HTML::Auto qw/matrix h v/;
  my @cols = qw/c1 c2/;
  my @lines = qw/l1 l2/;
  my $data =
     [
       [
         {v => 1, a => { class => 'warn'}},
         2
       ],
       [3,4]
     ];
  my $options = { css => '.warn { background-color: yellow !important; }' };
  my $m = matrix(\@cols,\@lines,$data,$options);
  print v(
          h($m)
        );
```

## FUNCTIONS

### matrix

Build a matrix. Some options are available to pass to the matrix function:

- "diagonal"

  Highlight the diagonal of the matrix.

  ```
    my $m = matrix(\@cols,\@lines,$data, {diagonal => 1});
  ```

- "format"

  Pass a string to be used by the `"format"` filter in the TT2 template.

  ```
    my $m = matrix(\@cols,\@lines,$data, {format => '%.6f'});
  ```

- "ucfirst"

  Option to uppercase first letter in columns and lines labels.

  ```
    my $m = matrix(\@cols,\@lines,$data, {ucfirst => 1});
  ```

### h

A function to allow horizontal composition.

### v

A function to allow vertical composition.

## AUTHORS

- •

  Nuno Carvalho \<smash@cpan.org\>

- •

  André Santos \<andrefs@cpan.org\>

## COPYRIGHT AND LICENSE

This software is copyright (c) 2012-2016 by Project Natura \<natura@natura.di.uminho.pt\>.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.