view release on metacpan or  search on metacpan

t/Meta.t  view on Meta::CPAN

    );
};

subtest inject_menu => sub {
    my $one = $CLASS->new('Fake::Exporter2');
    is($one->menu, 0, "no menu");
    ok(!Fake::Exporter2->can('IMPORTER_MENU'), "No IMPORTER_MENU");

    $one->inject_menu;

    is($one->menu, 1, "Menu injected");

    like(
        {Fake::Exporter2->IMPORTER_MENU},
        {
            export       => [],
            export_ok    => [],
            export_fail  => [],
            export_tags  => {DEFAULT => [], FAIL => [], ALL => []},
            export_anon  => {},
            export_gen   => {},