diff options
| author | bscan <10503608+bscan@users.noreply.github.com> | 2022-01-30 09:35:46 -0500 |
|---|---|---|
| committer | bscan <10503608+bscan@users.noreply.github.com> | 2022-01-30 09:35:46 -0500 |
| commit | 8d78d8812d615765668b6cbcc7f96da07ebb13cd (patch) | |
| tree | 910dc1b17339cf6992edf2cbc7ff2c5db22d5716 /testWorkspace | |
| parent | 74e283732d6652867678bbdaa0cfcf5f098204b2 (diff) | |
| download | PerlNavigator-8d78d8812d615765668b6cbcc7f96da07ebb13cd.zip | |
Better object detection and autocomplete help, follow symlinks in ModHunter, more tests
Diffstat (limited to 'testWorkspace')
| -rw-r--r-- | testWorkspace/MyLib/NamedPackage.pm | 4 | ||||
| -rw-r--r-- | testWorkspace/MySubClass.pm | 1 | ||||
| -rw-r--r-- | testWorkspace/mainTest.pl | 2 |
3 files changed, 7 insertions, 0 deletions
diff --git a/testWorkspace/MyLib/NamedPackage.pm b/testWorkspace/MyLib/NamedPackage.pm index 85d6553..73892ea 100644 --- a/testWorkspace/MyLib/NamedPackage.pm +++ b/testWorkspace/MyLib/NamedPackage.pm @@ -26,6 +26,10 @@ sub duplicate_sub_name { package MyLib::SubPackage; +sub new { + return bless {}; +} + sub subpackage_mod { print "in subpackage_mod\n"; } diff --git a/testWorkspace/MySubClass.pm b/testWorkspace/MySubClass.pm index 4f1cd1a..3a471e3 100644 --- a/testWorkspace/MySubClass.pm +++ b/testWorkspace/MySubClass.pm @@ -4,6 +4,7 @@ use warnings; use MyLib::MyClass; use base qw(MyLib::MyClass); use Data::Dumper qw(Dumper); +use MyLib::NonPackage; sub new { my $class = shift; diff --git a/testWorkspace/mainTest.pl b/testWorkspace/mainTest.pl index c07e737..bd61bd4 100644 --- a/testWorkspace/mainTest.pl +++ b/testWorkspace/mainTest.pl @@ -110,6 +110,8 @@ $mooseObj->moose_sub(); my $nonObject = MyLib::MooseClass->new()->moose_sub(); +my $hiddenPackObj = MyLib::SubPackage->new(); + for (my $cStyleLoopVar = 0; $cStyleLoopVar <= 2; $cStyleLoopVar++){ print "$cStyleLoopVar"; } |