#!/usr/bin/perl

package Test::Private;

use Class::FlyweightWrapper "Test::Public";

sub new {
	return bless {}, ref($_[0]) || $_[0];
}

sub helloWorld {
	print "Hello World!\n";
}

package DerivedTest;

@DerivedTest::ISA = qw(Test::Public);

package main;

my $test = Test::Public->new();
$test->helloWorld();

print (($test->can("helloWorld")) ? "we can\n" : "we can't\n");

my $test2 = DerivedTest->new(); # <<< dies here
$test2->helloWorld();

print (($test2->can("helloWorld")) ? "we can\n" : "we can't\n");

1;