To get this little wonder, I had to change the `_find_semantic_info()` as followed:
-~~~~
+[[!format perl """
sub _find_semantic_info {
my Net::OpenID::Consumer $self = shift;
my $url = shift;
return $info;
}
-~~~~
+"""]]
A minimal test case would be: