#!/usr/bin/perl -w

use strict;
use Test;
BEGIN { plan tests => 3 }

# Bind only to classes
use Inline RUBY => 'DATA', BIND_TYPE => [undef, 'classes'];
ok(1);

my $obj = Smell->new;
ok($obj->how_bad, "very");

eval { some_func() };
ok($@);

__END__
__RUBY__

def some_func
  return "Not allowed to bind to me!"
end

class Smell
  def how_bad
    return "very"
  end
end