File: while-loop.pl

package info (click to toggle)
libtext-xslate-perl 3.5.9-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,108 kB
  • sloc: perl: 19,756; ansic: 214; pascal: 182; makefile: 9; cs: 8
file content (16 lines) | stat: -rw-r--r-- 287 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!perl -w
BEGIN{ $ENV{XSLATE} ||= 'dump=asm;' }

use strict;
use Text::Xslate;

my $tx = Text::Xslate->new(
    function => { f => sub { undef } },
);

print $tx->render_string(<<'TX', { x => shift });
: macro add -> $x, $y { $x + $y }
: while(true) {
    : if(add(1, 2) > 0) { }
: }
TX