File Coverage

blib/lib/OTRS/OPM/Maker/Utils/OTRS4.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	6	6	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	42	42	100.0

package OTRS::OPM::Maker::Utils::OTRS4;

# ABSTRACT: helper functions for OTRS >= 4

use strict;
use warnings;

use List::Util qw(first);
use Carp;

our $VERSION = 1.44;

sub packagesetup {
    my ($class, $type, $version, $function, $runtype, $package) = @_;

    $version = $version ? ' Version="' . $version . '"' : '';

    $runtype //= 'post';

    if ( $package ) {
        $package = sprintf "'%s'", $package;
    }
    else {
        $package = '$Param{Structure}->{Name}->{Content}';
    }

    return qq~    <$type Type="$runtype"$version>
        \$Kernel::OM->Get('var::packagesetup::' . $package )->$function();
    ]]>~;
}

sub filecheck {
    my ($class, $files) = @_;

    if ( first{ $_ =~ m{Kernel/Output/HTML/[^/]+/.*?\.dtl\z} }@{$files} ) {
        carp "The old template engine was replaced with Template::Toolkit. Please use bin/otrs.MigrateDTLToTT.pl.\n";
    }

    return 1;
}

1;

__END__