view release on metacpan or  search on metacpan

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

END

$nested_section = <<'END';
    <sx.h>Bon dia<section>heya</section><section>otra</section><sx.textile>I'm nested</sx></sx>
END

$not_nested_section = <<'END';
       <sx c=SQL>Hola</sx><sx c=SQL>Not Nested</sx>
END

$explicit_section = <<'END';





       <sx c="mc_SQL">Hola
       </sx>




END
$implicit_normal_section = <<'END';
<sx.h>def: init</sx><section>What happens here?</section><sx.h>a[3]</sx>
END
$implicit_normal_starting_section = <<'END';
    Yeah
<section>Heya</section>
OK
<sx.h>def: init</sx>
<section>What happens here?</section>
How about here?
<sx.h>a[3]</sx>
Dirty
<section>The End</section>
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>
<sx.Implicit>

Stuff After

END
$parsed_implicit_section .= '</sx>';

$parsed_implicit_normal_section = <<'END';


<sx.h>def: init</sx>
<sx.Implicit><section>What happens here?</section></sx>
<sx.h>a[3]</sx>
END

$parsed_implicit_normal_starting_section = <<'END';

<sx.Implicit>
    Yeah
<section>Heya</section>
OK
</sx>
<sx.h>def: init</sx>
<sx.Implicit>
<section>What happens here?</section>
How about here?
</sx>
<sx.h>a[3]</sx>
<sx.Implicit>
Dirty
<section>The End</section>
Nasty test
END
$parsed_implicit_normal_starting_section .= '</sx>';

$simple_implicit_section = <<'END';
Hola Mon.
END

$parsed_simple_implicit_section = <<'END';

<sx.Implicit>
Hola Mon.
END
$parsed_simple_implicit_section .= '</sx>';

$simple_non_implicit_section = <<'END';
<sx.h>say "Bom dia";</sx>
END