10 use Test::MooseX::Compiler qw( save_class );
13 use IPC::Run3 qw( run3 );
26 # should be line 9 below
27 sub line { return __LINE__ }
32 my $class = 'Test::Class1';
33 save_class( $class, $code );
35 my $compiler = MooseX::Compiler->new(
39 my $compiled = $compiler->compile_class();
44 # We need to compile the code in a fresh process to see if the line
45 # numbers are correct.
49 $compiled . "\npackage main;\nprint Test::Class1->line();"
56 die $error if defined $error && length $error;
61 'compilation does not break line numbers'