File Coverage

blib/lib/OPM/Maker/Utils/OTRS3.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	2	4	50.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	2	2	100.0
total	23	26	88.4

package OPM::Maker::Utils::OTRS3;
$OPM::Maker::Utils::OTRS3::VERSION = '1.2.0';
# ABSTRACT: Provide helper functions for OTRS <= 3

use strict;
use warnings;

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>
        # define function name
        my \$FunctionName = '$function';

        # create the package name
        my \$CodeModule = 'var::packagesetup::' . $package;

        # load the module
        if ( \$Self->{MainObject}->Require(\$CodeModule) ) {

            # create new instance
            my \$CodeObject = \$CodeModule->new( %{\$Self} );

            if (\$CodeObject) {

                # start methode
                if ( !\$CodeObject->\$FunctionName(%{\$Self}) ) {
                    \$Self->{LogObject}->Log(
                        Priority => 'error',
                        Message  => "Could not call method \$FunctionName() on \$CodeModule.pm."
                    );
                }
            }

            # error handling
            else {
                \$Self->{LogObject}->Log(
                    Priority => 'error',
                    Message  => "Could not call method new() on \$CodeModule.pm."
                );
            }
        }

    ]]>~;
}

sub filecheck {
    return 1;
}

1;

__END__