sub new {
    my ( $class ) = @_;
    my $c_ptr = Foo::Bar::_new_or_whatever();
    return bless \ $c_ptr, $class;
}