From 03b1b73be0e38162750069875b767153796479a0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E4=BE=9D=E7=91=AA=E8=B2=93?= Date: Sun, 7 Feb 2021 23:06:48 +0800 Subject: [PATCH] Various fixes to avoid JetBrains IDE problem detection. --- lib/Acme/GuessNumber.pm | 62 +++++++++++++++++++++-------------------- t/01-basic.t | 2 +- 2 files changed, 33 insertions(+), 31 deletions(-) diff --git a/lib/Acme/GuessNumber.pm b/lib/Acme/GuessNumber.pm index fc01ae9..51b0e53 100644 --- a/lib/Acme/GuessNumber.pm +++ b/lib/Acme/GuessNumber.pm @@ -1,28 +1,28 @@ # Acme::GuessNumber - Number guessing game robot -# Copyright (c) 2007-2008 imacat. All rights reserved. This program is free +# Copyright (c) 2007-2021 imacat. All rights reserved. This program is free # software; you can redistribute it and/or modify it under the same terms # as Perl itself. -# First written: 2007-05-19 +# First written: 2007/5/19 package Acme::GuessNumber; use strict; use warnings; use base qw(Exporter); -use vars qw($VERSION @EXPORT @EXPORT_OK); -$VERSION = 0.04; +our ($VERSION, @EXPORT, @EXPORT_OK); +$VERSION = 0.05; @EXPORT = qw(guess_number HURRY_UP); @EXPORT_OK = @EXPORT; # Prototype declaration sub guess_number($;$); -use vars qw(@GUESSMSGS @RESTMSGS); -@GUESSMSGS = split /\n/, << "EOT"; +our (@GUESS_MSGS, @RESULT_MSGS); +@GUESS_MSGS = split /\n/, << "EOT"; %d? Is it %d? It must be %d! EOT -@RESTMSGS = split /\n/, << "EOT"; +@RESULT_MSGS = split /\n/, << "EOT"; Any cigarette? I'm feeling lucky tonight I'm getting a little tired @@ -49,7 +49,7 @@ sub guess_number($;$) { # Generate the guess $guess = 1 + int rand $max; # Output our guess - $_ = sprintf $GUESSMSGS[int rand scalar @GUESSMSGS], $guess; + $_ = sprintf $GUESS_MSGS[int rand scalar @GUESS_MSGS], $guess; printf "%-40s", ": $_"; # Hit? if ($guess == $num) { @@ -65,7 +65,7 @@ sub guess_number($;$) { $flush = $|; $| = 1; # Yell something - print " *" . $RESTMSGS[int rand scalar @RESTMSGS] . "* "; + print " *" . $RESULT_MSGS[int rand scalar @RESULT_MSGS] . "* "; $rest = 3 + int rand 4; while ($rest-- > 0) { print "."; @@ -101,28 +101,30 @@ Acme::GuessNumber - An automatic number guessing game robot =head1 DESCRIPTION -Many people have this experience: You sit before a gambling table. You -keep placing the bet. You know the Goddess will finally smile at you. -You just don't know when. You have only to wait. As the time goes by, -the bets in your hand become fewer and fewer. You feel the time goes -slower and slower. This lengthy waiting process become painfully long, -like a train running straightforwardly into hell. You start feeling -your whole life is a misery, as the jackpot never comes... +Many people have this experience: You sit before a gambling table. +You keep placing the bet. You know the Goddess will finally smile at +you. You just don't know when. You have only to wait. As the time +goes by, the bets in your hand become fewer and fewer. You feel the +time goes slower and slower. This lengthy waiting process become +painfully long, like a train running straightforwardly into hell. You +start feeling your whole life is a failure, as the jackpot never +comes... -But, hey, why so painfully waiting? The Goddess will finally smile at -you, right? So, why not put this painly waiting process to a computer -program? Yes. That is the whole idea, the greatest invention in the -century: An automatic gambler! There is no secret. It is simple -brute-force. It never-endingly runs toward your final jackpot. You can -go for your life: sleep, eat, work. When you finally came back you -win. With it, the hell of gambling is history! +Hey, why so painfully waiting? The Goddess always smile at you in the +end, right? So, why not put this painfully waiting process to a +computer program? Yes. This is the whole idea, the greatest +invention in the century:: An automatic gambler! There is no secret. +It is simple brute force. It endlessly runs toward the final prize. +You can go for other business: sleep, eat, work. When you finally +came back, you wins. With it, the hell of gambling is history! -Remember, that the computer is never affected by emotions, luck, -everything. It never feel anxious or depressed. It simply, faithfully, +Remember, that the computer is never affected by emotion, luck, +everything. It never gets anxious or depress. It simply, faithfully, determinedly runs the probability until the jackpot. As you know, -the anxiety and depression are the enemy of the games, while a -simple, faithful, and determined mind is the only path to the jackpot. -This makes a computer a perfect gambler than an ordinary human being. +the anxiety and depression is the enemy of the games, while a +simple, faithful and determined mind is the only path to the jackpot. +This makes computer a perfect candidate as a gambler than an ordinary +human being. =head1 FUNCTIONS @@ -149,9 +151,9 @@ anything. It just guesses, precisely. Nothing more. =head1 BUGS -No. This can't possiblely be wrong. This is brute-force. It will try +No. This can't possibly be wrong. This is brute-force. It will try until it succeeds. Nothing can stop it from success. You always win! -You will always win! The Goddess will always smile at you! +You will always win! The Goddess of fortune will always smile at you! =head1 SEE ALSO diff --git a/t/01-basic.t b/t/01-basic.t index 2be0f92..a0d3871 100755 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -10,7 +10,7 @@ use Test; BEGIN { plan tests => 1 } -use vars qw($r); +our $r; $r = eval { use Acme::GuessNumber;