Changeset 62

Timestamp:

12/03/10 01:25:01 (14 years ago)

Author:

nanardon

Message:

• make POD model re-usable

Location:

server/trunk/web

Files:

• lib/Sophie/Model/Help/POD.pm (moved) (moved from server/trunk/web/lib/Sophie/Model/Help/XMLRPC.pm) (4 diffs)
• root/templates/html/help/xmlrpc/index.html (modified) (1 diff)

server/trunk/web/lib/Sophie/Model/Help/POD.pm

@@ -1 @@
-package Sophie::Model::Help::XMLRPC;
+package Sophie::Model::Help::POD;
 use Moose;
 use namespace::autoclean;
@@ -27 +27 @@
 =cut
 
-sub list {
+sub pom {
     my ($self) = @_;
-    return sort keys %{$self->{method}};
+    return values %{ $self->{pom} }
 }
 
-sub present {
-    my ($self, $section) = @_;
-    $self->{method}{$section}->present(Pod::POM::View::HTML->new);
+sub xmlrpc_functions {
+    my ($self) = @_;
+    my @pod;
+    foreach my $pom ($self->pom) {
+        foreach my $head1 ($pom->content) {
+            foreach my $item ($head1->content) {
+                my $title = $item->title or next;
+                $title =~ s/[^\w\._].*$//;
+                if ($self->{xmlrpc_methods}->{$title}) {
+                     push(@pod, $item);
+                }
+            }
+        }
+    }
+    my $ppvh = Pod::POM::View::HTML->new;
+    return join("\n\n", map { $_->present($ppvh) } @pod);
 }
 
@@ -40 +53 @@
     my ($self, $c, @args) = @_;
 
-    my %method = %{ $c->server->xmlrpc->list_methods };
+    $self->{xmlrpc_methods} = $c->server->xmlrpc->list_methods;
+
     foreach my $controller ($c->controllers) {
         my $pod = Pod::Find::pod_where({ -verbose => 0, -inc => 1 },
@@ -47 +61 @@
         my $parser = Pod::POM->new();
         my $pom = $parser->parse($pod);
-        foreach my $head1 ($pom->content) {
-            foreach my $item ($head1->content) {
-                my $title = $item->title or next;
-                $title =~ s/[^\w\._].*$//;
-                if ($method{$title}) {
-                    $self->{method}{$title} = $item;
-                }
-            }
-        }
+        $self->{pom}{$controller} = $pom;
+
     }
 

server/trunk/web/root/templates/html/help/xmlrpc/index.html

@@ -1 @@
-[% pom = c.model('Help::XMLRPC') %]
-[% FOREACH sec = pom.list %]
-[% pom.present(sec) %]
-[% END %]
+[% c.model('Help::POD').xmlrpc_functions %]