Some examples - working, erroring and segfaulting

also errors.pl

package obj2;
sub new { my ($package, %args) = @_; bless { %args }, 'obj2' };
sub render { shift->{obj}->() };

package obj;
sub new { bless {}, 'obj' };
sub capture { return obj2->new(obj => pop) }

package main;

use Data::Dumper;
use Text::Xslate;

my $count = 0;
my $macro = undef;
my $xslate = Text::Xslate->new(
    path => {
        'test.tx' => qq{
: \$obj.capture(-> {
Rendering <: count() :>
: }).render
}
    },
    cache => 1,
    function => {
        count => sub {
            ++$count;
        },
        capture => sub {
            $macro = bless { macro => shift }, 'test';
            undef;
        },
        render => sub {
            $macro->{macro}->();
        }
    }
);

# This fails
print $xslate->render('test.tx', { obj => obj->new } );
print $xslate->render('test.tx', { obj => obj->new } );
print $xslate->render('test.tx', { obj => obj->new } );

diff working.pl -> errors.pl

39,43c39,42
< # This works
< my $param = { obj => obj->new };
< print $xslate->render('test.tx', $param );
< print $xslate->render('test.tx', $param );
< print $xslate->render('test.tx', $param );
---
> # This fails
> print $xslate->render('test.tx', { obj => obj->new } );
> print $xslate->render('test.tx', { obj => obj->new } );
> print $xslate->render('test.tx', { obj => obj->new } );

errors.pl

package obj2;
sub new { bless { obj => pop }, 'obj2' };
sub render { shift->{obj}->() };

package obj;
sub new { bless {}, 'obj' };
sub capture { return obj2->new(pop) }

package main;

use Data::Dumper;
use Text::Xslate;

my $count = 0;
my $macro = undef;
my $xslate = Text::Xslate->new(
    path => {
        'test.tx' => qq{
: \$obj.capture(-> {
Rendering <: count() :>
: }).render
}
    },
    cache => 1,
    function => {
        count => sub {
            ++$count;
        },
        capture => sub {
            $macro = bless { macro => shift }, 'test';
            undef;
        },
        render => sub {
            $macro->{macro}->();
        }
    }
);

# This fails
print $xslate->render('test.tx', { obj => obj->new } );
print $xslate->render('test.tx', { obj => obj->new } );
print $xslate->render('test.tx', { obj => obj->new } );

segfaults.pl

package obj2;
sub new { my ($package, %args) = @_; bless { %args }, 'obj2' };
sub render { shift->{obj}->() };

package obj;
sub new { bless {}, 'obj' };
sub capture { return obj2->new(obj => pop) }

package main;

use Data::Dumper;
use Text::Xslate;

my $count = 0;
my $macro = undef;
my $xslate = Text::Xslate->new(
    path => {
        'test.tx' => qq{
: \$obj.capture(-> {
Rendering <: count() :>
: }).render
}
    },
    cache => 1,
    function => {
        count => sub {
            ++$count;
        },
        capture => sub {
            $macro = bless { macro => shift }, 'test';
            undef;
        },
        render => sub {
            $macro->{macro}->();
        }
    }
);

# This segfaults
my $param = { obj => obj->new };
print $xslate->render('test.tx', $param );
print $xslate->render('test.tx', $param );
print $xslate->render('test.tx', $param );

working.pl

package obj2;
sub new { bless { obj => pop }, 'obj2' };
sub render { shift->{obj}->() };

package obj;
sub new { bless {}, 'obj' };
sub capture { return obj2->new(pop) }

package main;

use Data::Dumper;
use Text::Xslate;

my $count = 0;
my $macro = undef;
my $xslate = Text::Xslate->new(
    path => {
        'test.tx' => qq{
: \$obj.capture(-> {
Rendering <: count() :>
: }).render
}
    },
    cache => 1,
    function => {
        count => sub {
            ++$count;
        },
        capture => sub {
            $macro = bless { macro => shift }, 'test';
            undef;
        },
        render => sub {
            $macro->{macro}->();
        }
    }
);

# This works
my $param = { obj => obj->new };
print $xslate->render('test.tx', $param );
print $xslate->render('test.tx', $param );
print $xslate->render('test.tx', $param );