[p5sagit/Sub-Name.git] / t / RT42725_deparse.t

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