--- deliantra/server/lib/cf/pod.pm	2007/04/18 12:43:54	1.2
+++ deliantra/server/lib/cf/pod.pm	2007/04/18 14:24:10	1.3
@@ -1,5 +1,7 @@
 package cf::pod;
 
+use Pod::POM;
+
 our $indent;
 our $level;
 our @result;
@@ -148,7 +150,7 @@
 
 package cf::pod;
 
-sub as_paragraphs($) {
+sub pom_as_paragraphs($) {
    my ($pom) = @_;
 
    # we suckers use global variables, unfortunately.
@@ -163,5 +165,14 @@
    [grep $_->{index} || exists $_->{markup}, @result]
 }
 
+sub load_pod($) {
+   my ($path) = @_;
+
+   cf::cache "cf::pod::as_paragraphs/$path" => $path,
+       1 => sub {
+       };
+}
+
+
 1;