The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
# -*- perl -*-
# By Slavan Rezic <slaven@rezic.de>   2003-07-29

use strict;
use Test;

use lib "t/testmods";
use I;

BEGIN { plan tests => 3 }

my $i_obj = I->new;
ok(ref $i_obj, "I");
ok($i_obj->a_method, 42);
ok(ref $i_obj, "Another::Class");