File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	30	32	93.7

package OTRS::OPM::Installer::Utils::OTRS::OTRS4;
$OTRS::OPM::Installer::Utils::OTRS::OTRS4::VERSION = '0.05';
# ABSTRACT: helper functions for OTRS4 (and higher)

use strict;
use warnings;

sub _get_db {
    my ($self) = @_;

    push @INC, @{ $self->inc };

    my $object;
    eval {
        require Kernel::System::ObjectManager;
        $Kernel::OM = Kernel::System::ObjectManager->new;

        $object = $Kernel::OM->Get('Kernel::System::DB');
    } or die $@;

    $object;
}

sub _build_manager {
    my ($self) = @_;

    push @INC, @{ $self->inc };

    my $manager;
    eval {
        require Kernel::System::ObjectManager;
        $Kernel::OM = Kernel::System::ObjectManager->new;

        $manager = $Kernel::OM->Get('Kernel::System::Package');
    } or die $@;

    $manager;
}

1;

__END__