view release on metacpan or  search on metacpan

lib/Acme/MJD/FR.pm  view on Meta::CPAN

package Acme::MJD::FR;

use strict;
use warnings;

our $VERSION = '0.01';

my @advice = <DATA>;

sub advice {
    my $number = shift;
    if ($number) {
	(my $advice) = grep /\Q$number/, @advice;
	return $advice || '';
    }
    else {
	return $advice[int rand @advice];
    }

lib/Acme/MJD/FR.pm  view on Meta::CPAN

This program is free software; you may redistribute it and/or modify it under
the same terms as Perl itself.

=head1 SEE ALSO

L<Acme::MJD>

=cut

__DATA__
#11900 Tu peux pas copier coller du code à l'aveugle, et t'attendre à ce que ça marche.
#11901 Tu peux pas inventer des trucs et t'attendre à ce que l'ordinateur devine tout seul ce que ça veut dire, Mongolito!
#11902 Tu as dit que ça ne marchait pas, mais pas ce que ça aurait dû faire si ça avait marché.
#11903 Tu veux faire quoi, là, en fait ?
#11904 On s'en bat les couilles de savoir lequel est le plus rapide.
#11905 Et maintenant nous arrivons au moment où il va falloir consulter la doc.
#11906 Regarde le message d'erreur! Regarde le message d'erreur!
#11907 Chercher un bug dans le compilateur ne se fait qu'en DERNIER ressort. DERNIER ressort.
#11908 L'optimisation prématurée est la mère de tous les vices.
#11909 Mauvais programmeur!  Pas de susucre!