sub find {
        my $object = __PACKAGE__->retrieve_object($id);
        bless $object,$object->type->class