gistfile1.txt

#!/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' => '',
);

# fix tags -- doesn't work
if (%p<tags>) {
	%post{'post_tags'} = { 'tags' => [] };
	for %p{'tags'} -> $tag {
		%post{'post_tags'}{'tags'}.push( { 'tag' => $tag });
	}
}

say %post.perl;

# if instead of `for %p{'tags'} -> $tag`, I do `for %p{'tags'}:v -> $tag`, it does work.

# perl 5 version:
    # fix tags
#    if ( scalar( $p->{'tags'} ) ) {
#        $post->{'post_tags'} = { 'tags' => [] };
#        foreach my $tag ( $p->{'tags'}->@* ) {
#            push $post->{'post_tags'}{'tags'}->@*, {
#                'tag' => $tag,
#            };
#        }
#    }