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