view release on metacpan or  search on metacpan

example/assemble-example.com  view on Meta::CPAN

use warnings;
use App::Microsite::Assemble;
use Path::Class;
use Getopt::Long;

my $with_cms;
GetOptions ( with_cms => \$with_cms );

my %args = (
    helpers => {
        activeMenu => sub {
            my ($context, $menu) = @_;
            if( $context->{'active-menu'} && $context->{'active-menu'} eq $menu ) {
                return 'class=active';
            }
        },
    },
);

if ($with_cms) {
    $args{fragment_filter} = sub {