pl.pl

sub product {
    my $self = shift;
    my $product = $self->products->get($self->stash('number'))
        or return $self->reply->not_found;

    my @crumbs;
    my $cat_url = '';
    for my $subcat (split /\Q*::*\E/, $product->{category}) {
        $cat_url .= "/$subcat";
        push @crumbs, +{
            url  => $self->url_for('homecategory', category => $cat_url),
            text => $subcat,
        };
    }
    @crumbs[-1]{last} = 1;


    $self->stash(
        product => $product,
        crumbs  => \@crumbs,
    );
}