package Bur; ## no critic (package)

use strict;
use warnings;

use Inline CPP => config => namespace => '' => classes => { 'Fuu' => 'MyFuu'};

use Inline CPP => <<'EOCPP';

class Fuu {
  private:
    int a;
  public:
    Fuu() :a(10) {}
    int fetch () { return a; }
};
EOCPP

package Buz;

use Test::More;

is __PACKAGE__, 'Buz', "Instantiating from package Buz.";

can_ok 'MyFuu', 'new';
can_ok 'main::MyFuu', 'new';
can_ok 'MyFuu', 'fetch';
can_ok 'main::MyFuu', 'fetch';
my $f = new_ok 'MyFuu';
is ref($f), 'MyFuu', 'Our "Fuu" is a "MyFuu"';
is $f->fetch, 10, 'Proper object method association from MyFuu.';

done_testing();

package main;