note that OpenID::Provider has not been implemented

eg/OpenID/Provider.pm

@@ -13,6 +13,7 @@ our @C = (
     Home => ['/'],
     get => sub {
       my ($self) = @_;
+      $self->render('home');
     },
   )
 );
@@ -24,14 +25,29 @@ use warnings;
 use Squatting ':views';
 use HTML::AsSubs;
 
+# the ~literal pseudo-element -- don't entity escape this content
+sub x {
+  HTML::Element->new('~literal', text => $_[0])
+}
+
 our @V = (
   V(
     'html',
     layout => sub {
       my ($self, $v, $content) = @_;
+      html(
+        head(
+          title('OpenID Provider')
+        ),
+        body(
+          h1('OpenID Provider'),
+          x($content)
+        ),
+      )->as_HTML;
     },
     home => sub {
       my ($self, $v) = @_;
+      h2("TODO - Implement OpenID::Provider")->as_HTML;
     },
   )
 );