File Coverage

blib/lib/Mojolicious/Plugin/Breadcrumbs.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	6	6	100.0
condition	2	3	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	35	36	97.2

package Mojolicious::Plugin::Breadcrumbs;

use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '1.001002'; # VERSION

use utf8;

my $Crumbs_Map = {
    '/' => 'Home',
};

sub register {
    my ($self, $app) = @_;

    $app->helper(
        breadcrumbs => sub {
            my $c = shift;
            @_ and $Crumbs_Map = shift;

            length $c->url_for->to_string
                or return; # if this is the case, we're just setting the
                           # $Crumbs_Map and not needing crumbs;

            my $path = '';
            my @crumbs;
            for my $crumb (
                '', grep length, split m{/}, $c->url_for->to_string
            ) {
                $path .= ($path eq '/' ? '' : '/') . $crumb;
                push @crumbs, {
                    path => $path,
                    text => $Crumbs_Map->{ $path }
                                // do{
                                    ( my $x = $crumb ) =~ tr/-_/ /;
                                    ucfirst $x;
                                },
                };
            }

            my $current_page = pop @crumbs;
            my $bread = '' .
                join(q{▸},
                    (map qq{$_->{text}}, @crumbs),
                    '',
                );

            $bread .= ''
                . ($current_page->{text}) . '';

            return $bread;
        },
    );
}

'
Q. Why was the statement scared while the comment was not?
A. Statements are executed.
';

__END__