[p5sagit/Devel-BeginLift.git] / t / generate.t

use strict;
use warnings;
use Test::More;

BEGIN {
    plan skip_all => "B::Generate required" unless eval { require B::Generate };
    plan 'no_plan';
}

sub foo { 
    B::SVOP->new("const", 0, 42);
}

use Devel::BeginLift qw(foo);

sub bar { 7 + foo() }

is( bar(), 49, "optree injected" );
Commit	Line	Data
4d07fd95	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
	5	BEGIN {
	6	plan skip_all => "B::Generate required" unless eval { require B::Generate };
	7	plan 'no_plan';
	8	}
	9
	10	sub foo {
	11	B::SVOP->new("const", 0, 42);
	12	}
	13
	14	use Devel::BeginLift qw(foo);
	15
	16	sub bar { 7 + foo() }
	17
	18	is( bar(), 49, "optree injected" );
	19