#!/usr/bin/perl

use strict;
use warnings;
use lib qw(.);
use Test;

my $test = Test->new();
$test->test();

no warnings 'redefine';
*Test::test = sub{print "Welt\n"};
$test->test();