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.