typo
[ikiwiki.git] / IkiWiki / Setup / Yaml.pm
1 #!/usr/bin/perl
2
3 package IkiWiki::Setup::Yaml;
4
5 use warnings;
6 use strict;
7 use IkiWiki;
8
9 sub loaddump ($$) {
10         my $class=shift;
11         my $content=shift;
12
13         eval q{use YAML::Any};
14         eval q{use YAML} if $@;
15         die $@ if $@;
16         $YAML::Syck::ImplicitUnicode=1;
17         IkiWiki::Setup::merge(Load($content));
18 }
19
20 sub gendump ($@) {
21         my $class=shift;
22         
23         "# IkiWiki::Setup::Yaml - YAML formatted setup file",
24         "#",
25         (map { "# $_" } @_),
26         "#",
27         IkiWiki::Setup::commented_dump(\&dumpline, "")
28 }
29
30
31 sub dumpline ($$$$) {
32         my $key=shift;
33         my $value=shift;
34         my $type=shift;
35         my $prefix=shift;
36         
37         eval q{use YAML::Old};
38         eval q{use YAML} if $@;
39         die $@ if $@;
40         $YAML::UseHeader=0;
41
42         my $dump=Dump({$key => $value});
43         chomp $dump;
44         if (length $prefix) {
45                 $dump=join("\n", map { $prefix.$_ } split(/\n/, $dump));
46         }
47         return $dump;
48 }
49
50 1