or download this
use Test::More tests => 6;
my $sc = SecretClass->new();
...
is ($sc->public_hello(),'hello', '... and should be able to call hello
+()' );
ok ($sc->can('goodbye'), 'goodbye() should be available');
is ($sc->goodbye(), 'goodbye', '... and should be callable');