Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 25 lines (17 sloc) 0.399 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;

my $ok = 0;

do {
    package Synopsis;
    sub oh_god_why { $ok = 1 }
};

my $sub = sub {
    use Devel::StackTrace::WithLexicals;
    my $trace = Devel::StackTrace::WithLexicals->new;
    ${ $trace->frame(1)->lexical('$self') }->oh_god_why();
};

my $self = bless {}, 'Synopsis';

$sub->();

ok($ok, "oh_god_why called");

Something went wrong with that request. Please try again.