diff options
| author | Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com> | 2020-03-29 16:34:31 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-03-29 16:34:31 +0800 |
| commit | 750527e341581edafe046760ce8a6a205d69f02c (patch) | |
| tree | 0318b0a0dae07f4712c2fd4af0fa8b23f8172abb /challenge-053 | |
| parent | 2709bdea964d2f0a1c93a05bd8d9b575e2e93663 (diff) | |
| download | perlweeklychallenge-club-750527e341581edafe046760ce8a6a205d69f02c.tar.gz perlweeklychallenge-club-750527e341581edafe046760ce8a6a205d69f02c.tar.bz2 perlweeklychallenge-club-750527e341581edafe046760ce8a6a205d69f02c.zip | |
Update and rename xy.pm to challenge-053/cheok-yin-fung/perl/xy.pm
Diffstat (limited to 'challenge-053')
| -rw-r--r-- | challenge-053/cheok-yin-fung/perl/xy.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-053/cheok-yin-fung/perl/xy.pm b/challenge-053/cheok-yin-fung/perl/xy.pm new file mode 100644 index 0000000000..809c126e91 --- /dev/null +++ b/challenge-053/cheok-yin-fung/perl/xy.pm @@ -0,0 +1,17 @@ +package xy;
+use strict;
+
+sub new {
+ my ($class) = @_;
+ bless{
+ _value=> $_[1],
+ _x=>$_[2],
+ _y=>$_[3],
+ }, $class;
+}
+
+sub x{ $_[0]->{_x}}
+sub y{ $_[0]->{_y}}
+sub value{ $_[0]->{_value} }
+
+1;
|