File Coverage

line	stmt	bran	sub	pod	time	code
1						package Daiku::Daikufile;
2	3		3		13	use strict;
	3				3
	3				99
3	3		3		13	use warnings;
	3				4
	3				865
4	3		3		1298	use Mouse;
	3				82510
	3				16
5
6						my $file_id = 1;
7
8						sub parse {
9	10		10	0	20	my ($self, $file) = @_;
10
11	10				16	my $code = do {
12	10	50			334	open my $fh, "<", $file or die "open $file failed: $!\n";
13	10				40	local $/; <$fh>;
	10				310
14						};
15
16						# code taken from Module::CPANfile::Environment
17	10				16	my ($engine, $err);
18						{
19	10				14	local $@;
	10				14
20	10				23	$file_id++;
21	3		3		1062	$engine = eval <<"EVAL"; ## no critic
	3		3		9
	3		3		231
	3		3		16
	3		3		4
	3		3		83
	3		2		10
	3		2		4
	3		2		81
	3		2		12
	3		2		4
	3		2		20
	3		2		1587
	3		2		28620
	3		2		24
	3		2		17282
	3		2		1706
	3		2		13
	2		2		11
	2		2		2
	2		2		154
	2		2		8
	2		2		3
	2		2		52
	2		1		7
	2		1		3
	2		1		58
	2		1		7
	2		1		3
	2		1		12
	2				74
	2				7
	2				13
	2				7617
	2				4
	2				11
	2				12
	2				2
	2				148
	2				8
	2				2
	2				68
	2				7
	2				2
	2				64
	2				7
	2				2
	2				12
	2				70
	2				3
	2				12
	2				7381
	2				5
	2				16
	2				12
	2				3
	2				173
	2				12
	2				3
	2				72
	2				10
	2				2
	2				72
	2				8
	2				3
	2				13
	2				78
	2				3
	2				11
	2				7057
	2				5
	2				13
	1				8
	1				2
	1				72
	1				5
	1				0
	1				28
	1				4
	1				1
	1				32
	1				4
	1				1
	1				6
	1				39
	1				2
	1				9
	1				3633
	1				2
	1				7
	10				876
22						package Daiku::Daikufile::Sandbox$file_id;
23						use Daiku;
24						use strict;
25						use warnings;
26						use utf8;
27						use autodie;
28						use lib 'lib';
29
30						# line 1 "$file"
31						$code;
32						engine;
33						EVAL
34	10				29	$err = $@;
35						}
36
37	10	100			28	if ($err) { die "Parsing $file failed: $err\n" }
	1				17
38
39	9				41	return $engine;
40						}
41
42	3		3		1627	no Mouse; __PACKAGE__->meta->make_immutable;
	3				5
	3				15
43
44						1;