view release on metacpan or  search on metacpan

inc/My/Module/Build.pm  view on Meta::CPAN

1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
package main_screen; # Do not to pollute the namespace of "main" with
# the "use" directives below - Still keeping refactoring in mind.
 
BEGIN { *write_file = \&My::Module::Build::write_file;
        *read_file  = \&My::Module::Build::read_file; }
 
use Test2::V0;
use Fatal qw(mkdir chdir);
 
local @ARGV = qw(--noinstall-everything);
 
my $define_options =
    My::Tests::Below->pod_code_snippet("option-graph");
$define_options =~ s/\.\.\.//g;
my $builder = eval $define_options; die $@ if $@;
 
isa_ok($builder, "Fake::Module::Build");
 
is(scalar keys %My::Module::Build::declared_options,
   2, "Number of declarations seen");