use strict;
use warnings;

use Test::More tests => 2;

use Scalar::Util qw(refaddr);
use OO::InsideOut qw(id register);

use t::Class::Simple;

# 1
is( 
    refaddr( \&main::register ), 
    refaddr( \&OO::InsideOut::register ), 
    'exported' 
);

# 2
is_deeply( $t::Class::Simple::Register, {}, 'registered' );