#!/usr/bin/perl -w
use warnings;
use strict;
use feature qw(switch say);

use Test::More 'no_plan';
use Test::Trap;
use Test::MockObject;

my @r = trap { some_code() };

my $mock = Test::MockObject->new();
$mock->fake_module ('NaServer', 
                new    => sub { return 'NaServer' },
                set_style => sub ($) {return 'ok'},
                set_admin_user  => sub ($$) {return 'ok'},
                set_timeout  => sub ($$) {return 'ok'},
                );

use_ok( 'NaServer' )  or exit;
my $ob = NaServer->new();
isa_ok ($ob, 'NaServer');

sub some_code {
    say 'hello world';
    #use_ok( 'NaServer' )  or exit; ## commented out by intend!!
    my $o = NaServer->new();
    exit 111;
}

is ( $trap->exit, 111, 'Exit ist 111');