| Subject: | コメントのsyntax |
こんにちは！
PODのTEMPLATE SYNTAXを試しているのですが・・・
http://search.cpan.org/~kazuho/Text-MicroTemplate-0.19/lib/Text/MicroTemplate.pm#TEMPLATE_SYNTAX
?# comment
の例が上手く動かない気がしています。。。
http://search.cpan.org/CPAN/authors/id/K/KA/KAZUHO/Text-MicroTemplate-0.19.tar.gz
からのdiffを添付いたしますので、検討していただければ幸いです。
宜しくお願いいたします。
| Subject: | comment.patch |
diff --git lib/Text/MicroTemplate.pm lib/Text/MicroTemplate.pm
index 7f1ab05..61bfafe 100644
--- lib/Text/MicroTemplate.pm
+++ lib/Text/MicroTemplate.pm
@@ -204,7 +204,7 @@ sub parse {
}
# Comment line, dummy token needed for line count
- if ($line =~ /^$line_start$cmnt_mark\s+$/) {
+ if ($line =~ /^$line_start$cmnt_mark\s+(.*)$/) {
push @{$self->{tree}}, [];
$multiline_expression = 0;
next;
diff --git t/03-modes.t t/03-modes.t
index ea71038..a8b72b1 100644
--- t/03-modes.t
+++ t/03-modes.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 9;
use Text::MicroTemplate qw(:all);
# comment
@@ -10,6 +10,12 @@ aaa
bbb
?#
...
+is render_mt(<<'...')->as_string, "aaa\nbbb\n";
+aaa
+?# comment
+bbb
+?#
+...
is render_mt('aaa<?# a ?>bbb')->as_string, "aaabbb";
# expression and raw expression