...
		book => sub {
			my ($tag, $attr, $context, $parents, $parser) = @_;
			return unless $attr->{category} eq $parser->{parameters};
			my $title = delete $attr->{title};
			delete $attr->{'_content'};
			$title => $attr,
		},
...