view release on metacpan or  search on metacpan

lib/Mojito.pm  view on Meta::CPAN

    return $self->render_page($page_struct);
}

sub _build_bench_fixture {
    my $self = shift;

    my $implicit_section = <<'END';
h1. Greetings

<sx c=Perl>
use Modern::Perl;
say 'something';
</sx>

Implicit Section

<sx c="JavaScript">
function () { var one = 1 }
</sx>

Stuff After

t/data/Fixture.pm  view on Meta::CPAN

package Fixture;
use 5.010;

$implicit_section = <<'END';
h1. Greetings

<sx.h>
use Modern::Perl;
say 'something';
</sx>

Implicit Section

<sx.h>
function () { var one = 1 }
</sx>

Stuff After

t/data/Fixture.pm  view on Meta::CPAN

Nasty test
END

$parsed_implicit_section = <<'END';

<sx.Implicit>
h1. Greetings

</sx>
<sx.h>
use Modern::Perl;
say 'something';
</sx>
<sx.Implicit>

Implicit Section

</sx>
<sx.h>
function () { var one = 1 }
</sx>