Imported Upstream version 0.06
gregor herrmann
8 years ago
0 | 0 |
Revision history for HTML-Auto
|
|
1 |
|
|
2 |
0.06 Thu Nov 12 20:55:02 WET 2015
|
|
3 |
Handle paths correctly in Windows too (reported by CHORNY).
|
|
4 |
|
|
5 |
0.05 Sun Nov 8 17:27:23 WET 2015
|
|
6 |
Fix tests to run in recent perl releases (reported by SREZIC).
|
1 | 7 |
|
2 | 8 |
0.04 Tue Jun 5 16:02:52 WEST 2012
|
3 | 9 |
Fixed UTF-8 in POD
|
3 | 3 |
"Nuno Carvalho <smash@cpan.org>"
|
4 | 4 |
],
|
5 | 5 |
"dynamic_config" : 1,
|
6 | |
"generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921",
|
|
6 |
"generated_by" : "ExtUtils::MakeMaker version 7.1, CPAN::Meta::Converter version 2.143240",
|
7 | 7 |
"license" : [
|
8 | 8 |
"perl_5"
|
9 | 9 |
],
|
|
31 | 31 |
},
|
32 | 32 |
"runtime" : {
|
33 | 33 |
"requires" : {
|
|
34 |
"File::Basename" : "0",
|
34 | 35 |
"Template" : "0",
|
35 | 36 |
"Test::More" : "0"
|
36 | 37 |
}
|
37 | 38 |
}
|
38 | 39 |
},
|
39 | 40 |
"release_status" : "stable",
|
40 | |
"version" : "0.04"
|
|
41 |
"version" : "0.06"
|
41 | 42 |
}
|
2 | 2 |
author:
|
3 | 3 |
- 'Nuno Carvalho <smash@cpan.org>'
|
4 | 4 |
build_requires:
|
5 | |
ExtUtils::MakeMaker: 0
|
|
5 |
ExtUtils::MakeMaker: '0'
|
6 | 6 |
configure_requires:
|
7 | |
ExtUtils::MakeMaker: 0
|
|
7 |
ExtUtils::MakeMaker: '0'
|
8 | 8 |
dynamic_config: 1
|
9 | |
generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921'
|
|
9 |
generated_by: 'ExtUtils::MakeMaker version 7.1, CPAN::Meta::Converter version 2.143240'
|
10 | 10 |
license: perl
|
11 | 11 |
meta-spec:
|
12 | 12 |
url: http://module-build.sourceforge.net/META-spec-v1.4.html
|
13 | |
version: 1.4
|
|
13 |
version: '1.4'
|
14 | 14 |
name: HTML-Auto
|
15 | 15 |
no_index:
|
16 | 16 |
directory:
|
17 | 17 |
- t
|
18 | 18 |
- inc
|
19 | 19 |
requires:
|
20 | |
Template: 0
|
21 | |
Test::More: 0
|
22 | |
version: 0.04
|
|
20 |
File::Basename: '0'
|
|
21 |
Template: '0'
|
|
22 |
Test::More: '0'
|
|
23 |
version: '0.06'
|
11 | 11 |
: ()),
|
12 | 12 |
PL_FILES => {},
|
13 | 13 |
PREREQ_PM => {
|
14 | |
'Test::More' => 0,
|
15 | |
'Template' => 0,
|
|
14 |
'File::Basename' => 0,
|
|
15 |
'Test::More' => 0,
|
|
16 |
'Template' => 0
|
16 | 17 |
},
|
17 | 18 |
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
|
18 | 19 |
clean => { FILES => 'HTML-Auto-*' },
|
0 | 0 |
HTML-Auto
|
1 | 1 |
|
2 | 2 |
This module attempts to provide easy access to some typical structures
|
3 | |
used in HTML, for example matrixes. The module is still in heavy
|
|
3 |
used in HTML, for example matrices. The module is still in heavy
|
4 | 4 |
development.
|
5 | 5 |
|
6 | 6 |
INSTALLATION
|
|
33 | 33 |
Search CPAN
|
34 | 34 |
http://search.cpan.org/dist/HTML-Auto/
|
35 | 35 |
|
36 | |
|
37 | |
LICENSE AND COPYRIGHT
|
38 | |
|
39 | |
Copyright (C) 2010 Nuno Carvalho
|
40 | |
|
41 | |
This program is free software; you can redistribute it and/or modify it
|
42 | |
under the terms of either: the GNU General Public License as published
|
43 | |
by the Free Software Foundation; or the Artistic License.
|
44 | |
|
45 | |
See http://dev.perl.org/licenses/ for more information.
|
46 | |
|
3 | 3 |
use warnings;
|
4 | 4 |
use strict;
|
5 | 5 |
|
|
6 |
use File::Basename;
|
|
7 |
|
6 | 8 |
=head1 NAME
|
7 | 9 |
|
8 | 10 |
HTML::Auto::Templates - this module stores HTML::Auto templates
|
|
13 | 15 |
|
14 | 16 |
=cut
|
15 | 17 |
|
16 | |
our $VERSION = '0.02';
|
|
18 |
our $VERSION = '0.06';
|
17 | 19 |
|
18 | 20 |
my $templates = {
|
19 | 21 |
|
|
181 | 183 |
=cut
|
182 | 184 |
|
183 | 185 |
sub _template_content {
|
184 | |
my($self,$path) = @_;
|
185 | |
|
186 | |
$path =~ s#^templates/##;
|
187 | |
$self->debug("get $path") if $self->{DEBUG};
|
|
186 |
my ($self, $path) = @_;
|
|
187 |
|
|
188 |
$path = basename($path);;
|
|
189 |
$self->debug("get $path") if $self->{DEBUG};
|
188 | 190 |
|
189 | 191 |
my $data = $templates->{$path};
|
190 | 192 |
my $error = "error: $path not found";
|
31 | 31 |
}
|
32 | 32 |
|
33 | 33 |
sub clean {
|
34 | |
my $_ = shift;
|
35 | |
$_ =~ s/^\s+|\s+$//sg;
|
36 | |
$_ =~ s/\s+/ /sg;
|
37 | |
return $_;
|
|
34 |
my ($str) = @_;
|
|
35 |
$str =~ s/^\s+|\s+$//sg;
|
|
36 |
$str =~ s/\s+/ /sg;
|
|
37 |
return $str;
|
38 | 38 |
}
|