#!/usr/bin/perl -w
###########################################
# coverme
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;

package Foo;

sub new {
    my($class) = @_;
    bless {}, $class;
}

sub foo {
    print "foo!\n";
}

package main;

use Test::More tests => 1;

my $t = Foo->new();
isa_ok($t, "Foo", "New Foo object");