1 package Module::Build::YAML;
5 use vars qw($VERSION @EXPORT @EXPORT_OK);
8 @EXPORT_OK = qw(Dump Load DumpFile LoadFile);
12 my $class = ref($this) || $this;
19 shift if ($_[0] eq __PACKAGE__ || ref($_[0]) eq __PACKAGE__);
21 foreach my $item (@_) {
23 $yaml .= &_yaml_chunk("", $item);
29 shift if ($_[0] eq __PACKAGE__ || ref($_[0]) eq __PACKAGE__);
30 die "not yet implemented";
33 # This is basically copied out of YAML.pm and simplified a little.
35 shift if ($_[0] eq __PACKAGE__ || ref($_[0]) eq __PACKAGE__);
37 local $/ = "\n"; # reset special to "sane"
39 if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
40 ($mode, $filename) = ($1, $2);
42 open my $OUT, "$mode $filename"
43 or die "Can't open $filename for writing: $!";
48 # This is basically copied out of YAML.pm and simplified a little.
50 shift if ($_[0] eq __PACKAGE__ || ref($_[0]) eq __PACKAGE__);
52 open my $IN, $filename
53 or die "Can't open $filename for reading: $!";
54 return Load(do { local $/; <$IN> });
59 my ($indent, $values) = @_;
61 my $ref = ref($values);
62 my ($value, @allkeys, %keyseen);
63 if (!$ref) { # a scalar
64 $yaml_chunk .= &_yaml_value($values) . "\n";
66 elsif ($ref eq "ARRAY") {
67 foreach $value (@$values) {
68 $yaml_chunk .= "$indent-";
71 $yaml_chunk .= " " . &_yaml_value($value) . "\n";
75 $yaml_chunk .= &_yaml_chunk("$indent ", $value);
79 else { # assume "HASH"
80 if ($values->{_order} && ref($values->{_order}) eq "ARRAY") {
81 @allkeys = @{$values->{_order}};
82 $values = { %$values };
83 delete $values->{_order};
85 push(@allkeys, sort keys %$values);
86 foreach my $key (@allkeys) {
87 next if (!defined $key || $key eq "" || $keyseen{$key});
89 $yaml_chunk .= "$indent$key:";
90 $value = $values->{$key};
93 $yaml_chunk .= " " . &_yaml_value($value) . "\n";
97 $yaml_chunk .= &_yaml_chunk("$indent ", $value);
107 return '~' if not defined $value;
109 # empty strings will become empty strings
110 return '""' if $value eq '';
112 # allow simple scalars (without embedded quote chars) to be unquoted
113 # (includes $%_+=-\;:,./)
114 return $value if $value !~ /["'`~\n!\@\#^\&\*\(\)\{\}\[\]\|<>\?]/;
116 # quote and escape strings with special values
118 if $value !~ /['`~\n!\#^\&\*\(\)\{\}\[\]\|\?]/; # nothing but " or @ or < or > (email addresses)
120 $value =~ s/\n/\\n/g; # handle embedded newlines
121 $value =~ s/"/\\"/g; # handle embedded quotes
131 Module::Build::YAML - Provides just enough YAML support so that Module::Build works even if YAML.pm is not installed
135 use Module::Build::YAML;
141 Provides just enough YAML support so that Module::Build works even if YAML.pm is not installed.
143 Currently, this amounts to the ability to write META.yml files when "perl Build distmeta"
144 is executed via the Dump() and DumpFile() functions/methods.
148 Stephen Adkins <spadkins@gmail.com>
152 Copyright (c) 2006. Stephen Adkins. All rights reserved.
154 This program is free software; you can redistribute it and/or modify it
155 under the same terms as Perl itself.
157 See L<http://www.perl.com/perl/misc/Artistic.html>