Select Code to Download

my $ta = Template::Alloy->new;
my $expr = $self->parse_expr(\" 1 + 3 * 2 ");
my $out  = $self->play_expr($expr);

    use Template::Alloy;
    my $t = Template::Alloy->new(
...
   eval { $t->play_expr($t->parse_expr(\ $test->[0])); die "Didn't mat
+ch\n" if pos($test->[0]) != length($test->[0]) };
   my $alloy_error = $@ ? do { my $e = $@; chomp($e); "Success ($e)" }
+ : 'No alloy error';

#!/usr/bin/perl

...
        else { die $test->[0] . " : $error" }
    }
}

        
        [ q{$lang | caps('lower')}, [ 'LOWER', 'ENGLISH' ] ],
...
        [ q{$array[-3]},             'second' ],

        [ q{+3},      3 ],