diff options
| -rw-r--r-- | challenge-031/lubos-kolouch/perl5/ch-1.pl | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/challenge-031/lubos-kolouch/perl5/ch-1.pl b/challenge-031/lubos-kolouch/perl5/ch-1.pl new file mode 100644 index 0000000000..836dc75c8a --- /dev/null +++ b/challenge-031/lubos-kolouch/perl5/ch-1.pl @@ -0,0 +1,52 @@ +#!/usr/bin/env perl +#=============================================================================== +# +# FILE: ch-1.pl +# +# USAGE: ./ch-1.pl +# +# DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-031/ +# +# Create a function to check divide by zero error without checking if the denominator is zero. +# +# OPTIONS: --- +# REQUIREMENTS: --- +# BUGS: --- +# NOTES: --- +# AUTHOR: Lubos Kolouch +# ORGANIZATION: +# VERSION: 1.0 +# CREATED: 10/26/2019 07:10:56 PM +# REVISION: --- +#=============================================================================== + +use strict; +use warnings; +use feature qw/say/; +use Try::Tiny; + +sub divide_test { + my ( $num, $div ) = @_; + + my $result; + + try { + $result = $num / $div; + } + catch { + $result = "ERROR"; + } + finally { + return $result; + } +} + +# TESTS +use Test::More; + +is(divide_test( 0,0 ),"ERROR"); +is(divide_test( 1,0 ),"ERROR"); +isnt(divide_test( 1,1 ),"ERROR"); + +done_testing; + |