https://github.com/nunorc/html-auto
write HTML for common elements
https://github.com/nunorc/html-auto
Last synced: about 1 month ago
JSON representation
write HTML for common elements
- Host: GitHub
- URL: https://github.com/nunorc/html-auto
- Owner: nunorc
- Created: 2010-11-27T12:55:04.000Z (over 14 years ago)
- Default Branch: master
- Last Pushed: 2016-07-18T19:56:22.000Z (almost 9 years ago)
- Last Synced: 2025-04-09T21:54:41.775Z (about 1 month ago)
- Language: Perl
- Homepage:
- Size: 39.1 KB
- Stars: 3
- Watchers: 3
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- Changelog: Changes
Awesome Lists containing this project
README
# 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
- André Santos
# COPYRIGHT AND LICENSE
This software is copyright (c) 2012-2016 by Project Natura .
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.