Examples/test-suite/perl5/inctest_runme.pl

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