37 |
} |
} |
38 |
) ], |
) ], |
39 |
comments => [ ['#'] ], |
comments => [ ['#'] ], |
40 |
comment_output => q(/^(\s*)$/ ? "$_\n" : "#$_\n"), |
# comment_output => q(join("\n", grep { !$_->{inline} } @{$atom-> ) /^(\s*)$/ ? "$_\n" : "#$_\n"), |
41 |
output => { |
output => { |
42 |
KEY_VALUE => q( |
KEY_VALUE => q( |
43 |
my ($key, $value) = ($atom->{key}, $atom->{value}); |
my ($key, $value) = ($atom->{key}, $atom->{value}); |
44 |
$value =~ /"/ and return qq($key='$value'\n); |
$value =~ /"/ and return qq($key='$value'\n); |
45 |
$value =~ /'/ and return qq($key="$value"\n); |
$value =~ /'/ and return qq($key="$value"\n); |
46 |
$value =~ / / and return qq($key="$value"\n); |
$value =~ / / and return qq($key="$value"\n); |
47 |
qq($key=$value\n); |
handle_comment(qq($key=$value), $atom->{comments}); |
48 |
), |
), |
49 |
}, |
}, |
50 |
edit_atom => q( |
edit_atom => q( |