view release on metacpan or  search on metacpan

t/030_kolon/033_ov_forloop.t  view on Meta::CPAN

    package _defer;
    use overload
        '@{}' => sub { $_[0]->() },
        '%{}' => sub { $_[0]->() },
        fallback => 1;

    package _str;
    use overload '""' => sub { 'foo' };
}

sub defer(&) {
    my($coderef) = @_;
    return bless $coderef, '_defer';
}

my $tx = Text::Xslate->new(verbose => 0);

my @data = (
    ['Hello,
: for $types -> ($type) {
[<:= $type :>]

t/200_app/003_runner.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use SelectSaver;
use Text::Xslate::Runner;

sub capture(&) {
    my($block) = @_;

    my $s = '';

    {
        open my $out, '>', \$s;
        my $saver = SelectSaver->new($out);
        $block->();
    }
    return $s;

t/200_app/004_encoding.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Test::More;
use SelectSaver;
use Text::Xslate::Runner;

use Encode qw(encode decode);

sub capture(&) {
    my($block) = @_;

    my $s = '';

    {
        open my $out, '>', \$s;
        my $saver = SelectSaver->new($out);
        $block->();
    }
    return $s;