use
Carp;
sub
run {
my
$Token
=
$_
[0]->{Token};
my
$App
=
$_
[0]->{App};
my
$Data
=
$_
[0]->{data};
carp(
"bad template tag: $$Token{tagname}}"
,
"log"
);
return
"bad template tag: $$Token{tagname}}"
;
}
return
1;
use
Carp;
sub
run {
my
$Token
=
$_
[0]->{Token};
my
$App
=
$_
[0]->{App};
my
$Data
=
$_
[0]->{data};
carp(
"bad template tag: $$Token{tagname}}"
,
"log"
);
return
"bad template tag: $$Token{tagname}}"
;
}
return
1;