view release on metacpan or  search on metacpan

t/servicelock.pl  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Test::More;
use Test::Exception;

binmode Test::More->builder->output, ":encoding(UTF-8)";
binmode Test::More->builder->failure_output, ":encoding(UTF-8)"; 
binmode Test::More->builder->todo_output, ":encoding(UTF-8)";

sub get_servicelock {
    my $config = shift;

    my $OverWatch = App::OverWatch->new();
    lives_ok {
        $OverWatch->load_config($config);
    } 'load_config lives';

    my $ServiceLock = $OverWatch->servicelock();