my $mock_array  = Test::MockObject->new( [] );
my $mock_scalar = Test::MockObject->new( \( my $scalar ) );
my $mock_code   = Test::MockObject->new( sub {} );
my $mock_glob   = Test::MockObject->new( \*GLOB );