view release on metacpan or  search on metacpan

t/06perms.t  view on Meta::CPAN

);

foreach my $pauseid ( keys %authors ) {
    my $modules = $authors{$pauseid};
    foreach my $module ( keys %{$modules} ) {
        $perms->set_perms( $module, $pauseid, $modules->{$module} );
    }
}

my $content = $perms->generate_content;
my @lines = split m{\n}, $content;
my @expected
    = ( 'Acme::Perms,FOOBAR,m', 'Baz::Qux,FOOBAR,f', 'Thing::One,BARFOO,c' );

is_deeply( [ @lines[ -3 .. -1 ] ], \@expected, 'rows are on newlines' );

done_testing();