view release on metacpan or  search on metacpan

lib/XTaTIK/Controller/Root.pm  view on Meta::CPAN

    @$products or $self->reply->not_found;

    for ( @$products ) {
        set_product_pic( $self, @$_{qw/image number/} ) for
            grep exists $_->{number}, $_->{contents}->@*;
    }

    my $title = $self->stash('category') =~ s{^\s*/\s*}{}r;
    $title = $self->xtext('products_nav_name') unless length $title;
    $title = join '/', (split m{\s*/\s*}, $title )[-2,-1]
        if $title =~ tr{/}{} > 1;

    $title =~ s{/}{ / }g;

    my $meta_desc = join ', ', reverse $self->xtext('market'),
        split m{\s*/\s*}, $title;

    $self->stash(
        products    => $products,
        return_path => $return_path,
        return_name => $return_name,
        page_title  => $title,
        meta_desc   => $meta_desc,
    );
}