sergiotarxz/15giftsTask
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Avoiding main call to get hidden behind subroutine declarations.

Browse Source
This commit is contained in:
Sergiotarxz 2023-11-14 12:36:43 +01:00
parent 87ece64a8c
commit ff35e22e2c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
number_generator.pl
View File

@ -12,6 +12,8 @@ my @numbers_one_to_nineteen = (@numbers_one_to_nine, qw/ten eleven twelve thirte
# This is contains an undef in the decenes index just to hopefully catch some warning if gets wrongfully used.) # This is contains an undef in the decenes index just to hopefully catch some warning if gets wrongfully used.)
my @decenes = (undef, qw/twenty thirty forty fifty sixty seventy eighty ninety/); my @decenes = (undef, qw/twenty thirty forty fifty sixty seventy eighty ninety/);
main()
sub main { sub main {
my $start_of_range = $ARGV[0]; my $start_of_range = $ARGV[0];
my $end_of_range = $ARGV[1]; my $end_of_range = $ARGV[1];
@ -117,5 +119,3 @@ sub append_millions_to_return($number_ref, $return_ref) {
${$return_ref} .= $numbers_one_to_nine[$millions_unit-1] . ' ' . 'million'; ${$return_ref} .= $numbers_one_to_nine[$millions_unit-1] . ' ' . 'million';
${$number_ref} = $number % 1_000_000; ${$number_ref} = $number % 1_000_000;
} }
main()