#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;

# Bind only to functions
use Inline RUBY => 'DATA', BIND_TYPE => [undef, 'functions'];

eval { my $obj = Smell->new };
# TEST
ok ($@, 'Unknown object Smell');

# TEST
is (some_func(), "bound", "some_func() exists and returns.");

__END__
__RUBY__

def some_func
  return "bound"
end

class Smell
  def how_bad
    return "very"
  end
end