Yet Another CPAN Grep

Lingua-ManagementSpeak ( G/GR/GRYPHON/Lingua-ManagementSpeak-1.04.tar.gz, GRYPHON, 2022; MetaCPAN )

Lingua-ManagementSpeak/t/module.t ( view source; MetaCPAN )

a::ManagementSpeak;

ok( my $ms = Lingua::ManagementSpeak->new, 'new Lingua::ManagementSpeak' );

isnt(
    $ms->words(
        'pronoun article sub_conjunc power_word verb aux_verb adjective ' .

'' || undef || 0, 'words()'
);

isnt( $ms->sentence,        '' || undef || 0, 'sentense()'     );
isnt( $ms->sentence(1),     '' || undef || 0, 'sentense(1)'    );
isnt( $ms->paragraph,       '' || un

def || 0, 'paragraph()'    );
isnt( $ms->paragraph(2),    '' || undef || 0, 'paragraph(2)'   );
isnt( $ms->paragraph(2, 3), '' || undef || 0, 'paragraph(2, 3)');

ok(
    eval( join( '+', map {1} ( $m