#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 5;
use Devel::StackTrace::WithLexicals;
sub outer {
    my $inner = \&inner;
    eval { $inner->(@_) };
}
sub inner {
    my $inside_inner = 1;
    Devel::StackTrace::WithLexicals->new(unsafe_ref_capture=>1);
}
my $main_program = 1;
my $trace = outer();
is($trace->frame_count, 4);
is_deeply($trace->frame(0)->lexicals, {
    '$inside_inner' => \1,
});
is_deeply($trace->frame(1)->lexicals, {
    '$inner' => \\&inner,
});
is_deeply($trace->frame(2)->lexicals, undef);
is_deeply($trace->frame(3)->lexicals, {
    '$main_program' => \1,
});