ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf/pod.pm
(Generate patch)

Comparing deliantra/server/lib/cf/pod.pm (file contents):
Revision 1.2 by root, Wed Apr 18 12:43:54 2007 UTC vs.
Revision 1.3 by root, Wed Apr 18 14:24:10 2007 UTC

1package cf::pod; 1package cf::pod;
2
3use Pod::POM;
2 4
3our $indent; 5our $indent;
4our $level; 6our $level;
5our @result; 7our @result;
6 8
… …
146 148
147############################################################################# 149#############################################################################
148 150
149package cf::pod; 151package cf::pod;
150 152
151sub as_paragraphs($) { 153sub pom_as_paragraphs($) {
152 my ($pom) = @_; 154 my ($pom) = @_;
153 155
154 # we suckers use global variables, unfortunately. 156 # we suckers use global variables, unfortunately.
155 my $guard = cf::lock_acquire "cf::pod::as_paragraphs"; 157 my $guard = cf::lock_acquire "cf::pod::as_paragraphs";
156 158
… …
161 $pom->present ("cf::pod::AsParagraphs"); 163 $pom->present ("cf::pod::AsParagraphs");
162 164
163 [grep $_->{index} || exists $_->{markup}, @result] 165 [grep $_->{index} || exists $_->{markup}, @result]
164} 166}
165 167
168sub load_pod($) {
169 my ($path) = @_;
170
171 cf::cache "cf::pod::as_paragraphs/$path" => $path,
172 1 => sub {
173 };
174}
175
176
1661; 1771;
167 178

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines