converted to Any::Moose and added test for David Delikat