my $foo = Foo::Bar->new();
isa_ok( $foo, 'Foo::Bar' );

##</code><code>##

while ( my $line = <> ) {
    my $foo = Foo::Bar->parse( $line );
    isa_ok( $foo, 'Foo::Bar' );
    ...
}