diff options
| author | bscan <10503608+bscan@users.noreply.github.com> | 2022-06-22 15:26:13 -0400 |
|---|---|---|
| committer | bscan <10503608+bscan@users.noreply.github.com> | 2022-06-22 15:26:13 -0400 |
| commit | eff56f914e3d0c41143694d2e80ae7ea2be67ea9 (patch) | |
| tree | cea9fc31e9475da2dbf4d21d4f76b56400248829 /testWorkspace | |
| parent | 7d13bacd499b795c230ea0f1fe7665a00c3f2db9 (diff) | |
| download | PerlNavigator-eff56f914e3d0c41143694d2e80ae7ea2be67ea9.zip | |
Adding support for object::pad arrays, hashes, and private methods
Diffstat (limited to 'testWorkspace')
| -rw-r--r-- | testWorkspace/MyLib/ObjectPad.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/testWorkspace/MyLib/ObjectPad.pm b/testWorkspace/MyLib/ObjectPad.pm index 2022496..d438c7a 100644 --- a/testWorkspace/MyLib/ObjectPad.pm +++ b/testWorkspace/MyLib/ObjectPad.pm @@ -6,12 +6,18 @@ class MyLib::ObjectPad; has $x :param = 0; has $y :param = 0; +has @foo; +has %bar; method move ($dX, $dY) { $x += $dX; $y += $dY; } +method $frob { + print "I'm a private method\n"; +} + method describe () { print "A point at ($x, $y)\n"; } |