#!/usr/bin/perl

use strict;
use warnings;
use 5.024;
use utf8;

use HTML::Template::Compiled;

my $htc = HTML::Template::Compiled->new(
    filehandle => *DATA,
    tagstyle   => [ qw(+php), ],
);

my $data = {
    comdata => {
        test   => 11,
        status => '-',
    }
};

$htc->param($data);
print $htc->output;

__DATA__
COMDATA Status: <?= comdata.test ?>
comdata.status <?IF expr=" comdata.status eq '-'" ?>????
<?ELSE?>
OK
<?/IF?>