| 1 | package CFPlus::Pod; |
1 | package CFPlus::Pod; |
| 2 | |
2 | |
| 3 | use strict; |
3 | use strict; |
| 4 | |
4 | |
| 5 | use Storable; |
5 | use Storable; |
| 6 | |
|
|
| 7 | use CFPlus::UI; |
|
|
| 8 | |
6 | |
| 9 | our $VERSION = 1; |
7 | our $VERSION = 1; |
| 10 | |
8 | |
| 11 | our %wiki; |
9 | our %wiki; |
| 12 | |
10 | |
| … | |
… | |
| 58 | my @res; |
56 | my @res; |
| 59 | |
57 | |
| 60 | do { |
58 | do { |
| 61 | my $p = $doc->[$par]; |
59 | my $p = $doc->[$par]; |
| 62 | |
60 | |
|
|
61 | if (exists $p->{markup}) { |
| 63 | my %para = ( |
62 | my %para = ( |
| 64 | markup => $p->{markup}, |
63 | markup => $p->{markup}, |
| 65 | indent => $p->{indent}, |
64 | indent => $p->{indent}, |
| 66 | ); |
65 | ); |
| 67 | |
66 | |
| 68 | for (@{ $p->{widget} || [] }) { |
67 | for (@{ $p->{widget} || [] }) { |
| 69 | my ($class, @args) = @$_; |
68 | my ($class, @args) = @$_; |
| 70 | push @{ $para{widget} }, $class->new (@args); |
69 | push @{ $para{widget} }, $class->new (@args); |
|
|
70 | } |
|
|
71 | |
|
|
72 | push @res, \%para; |
| 71 | } |
73 | } |
| 72 | |
|
|
| 73 | push @res, \%para; |
|
|
| 74 | } while $doc->[++$par]{level} > $lvl; |
74 | } while $doc->[++$par]{level} > $lvl; |
| 75 | |
75 | |
| 76 | @res |
76 | @res |
| 77 | } |
77 | } |
| 78 | |
78 | |
