p6.p6

#!/usr/bin/env perl6

my %p = (:date-gmt("XXX"), :id("XXX"), :slug("XXX"), :tags($["Galaxy", "Galaxy fan render", "planet"]), :type("photo"), :url("http://XXX"), :url-with-slug("http://XXX"));

my %post = (
	'_post' => %p,
	'_type' => %p{'type'},

	'post_id' => %p{'id'},
	'post_slug' => %p{'slug'} || %p{'type'},
	'post_url' => %p{'url-with-slug'} || %p{'url'},
	'post_date' => %p{'date-gmt'},
	'post_tags' => '',
	'post_body' => '',
);

if %p<tags> {
	%post<post_tags> = tags => [];
	%post<post_tags><tags>.push: 'tag' => $_ for %p<tags>
}

say %p.perl;