File Coverage

line	stmt	bran	sub	pod	time	code
1						package Daiku::Daikufile;
2	3		3		11	use strict;
	3				4
	3				84
3	3		3		11	use warnings;
	3				3
	3				765
4	3		3		1213	use Mouse;
	3				70129
	3				12
5
6						my $file_id = 1;
7
8						sub parse {
9	10		10	0	17	my ($self, $file) = @_;
10
11	10				12	my $code = do {
12	10	50			287	open my $fh, "<", $file or die "open $file failed: $!\n";
13	10				37	local $/; <$fh>;
	10				286
14						};
15
16						# code taken from Module::CPANfile::Environment
17	10				13	my ($engine, $err);
18						{
19	10				9	local $@;
	10				15
20	10				12	$file_id++;
21	3		3		1279	$engine = eval <<"EVAL"; ## no critic
	3		3		6
	3		3		211
	3		3		15
	3		3		4
	3		3		68
	3		2		10
	3		2		5
	3		2		68
	3		2		12
	3		2		5
	3		2		18
	3		2		1475
	3		2		29958
	3		2		18
	3		2		17647
	3		2		1910
	3		2		15
	2		2		15
	2		2		4
	2		2		188
	2		2		12
	2		2		3
	2		2		69
	2		1		15
	2		1		3
	2		1		70
	2		1		9
	2		1		3
	2		1		14
	2				102
	2				7
	2				15
	2				8479
	2				4
	2				11
	2				11
	2				3
	2				155
	2				9
	2				3
	2				54
	2				6
	2				4
	2				64
	2				9
	2				2
	2				12
	2				79
	2				4
	2				11
	2				7317
	2				3
	2				12
	2				10
	2				3
	2				124
	2				8
	2				4
	2				56
	2				6
	2				2
	2				57
	2				7
	2				4
	2				10
	2				80
	2				4
	2				10
	2				7263
	2				3
	2				15
	1				6
	1				2
	1				64
	1				5
	1				1
	1				26
	1				4
	1				2
	1				40
	1				6
	1				3
	1				7
	1				75
	1				2
	1				7
	1				3796
	1				2
	1				8
	10				814
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				32	$err = $@;
35						}
36
37	10	100			29	if ($err) { die "Parsing $file failed: $err\n" }
	1				15
38
39	9				38	return $engine;
40						}
41
42	3		3		1292	no Mouse; __PACKAGE__->meta->make_immutable;
	3				6
	3				13
43
44						1;