blob: a10ce822ce74e25698742d8a96e3d22010d203b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
use strict;
use warnings;
use Test::More tests => 2;
use Sub::Name;
use B::Deparse;
my $source = eval {
B::Deparse->new->coderef2text(subname foo => sub{ @_ });
};
ok !$@;
like $source, qr/\@\_/;
|