#!/usr/bin/perl -w

use strict;

package Foo;

use strict;
use vars '$VERSION';
$VERSION = 1;

package main;

use Test::More tests => 4;

my $foo = bless {}, 'Foo';
isa_ok( $foo, 'UNIVERSAL' );
ok( UNIVERSAL::isa( 'Foo', 'UNIVERSAL' ) );

@Foo::ISA = ();

isa_ok( $foo, 'UNIVERSAL' );
ok( UNIVERSAL::isa( 'Foo', 'UNIVERSAL' ) );