1#!/usr/bin/perl 2use strict; 3use warnings; 4use Test::More tests => 3; 5BEGIN { use_ok('inctest') } 6require_ok('inctest'); 7 8my $things = inctest::MY_THINGS->new(); 9my $i = 0; 10$things->{IntegerMember} = $i; 11my $d = $things->{DoubleMember}; 12ok(1); 13