#!/usr/bin/perl -w

use strict;

use Test::More tests => 2;

package Foo;

sub new
{
    my $class = shift;
    bless {}, $class;
}

sub test
{
    1;
}

package Bar;

sub new
{
    my $class = shift;
    $class    = ref( $class ) || $class;
    bless {}, $class;
}

sub test
{
    1;
}

package main;

sub test
{
    0;
}

my $foo = Foo::new();
ok( $foo->test() );

my $bar = Bar::new();
ok( $bar->test() );