LRU-cache, process more symbols, bug fixes for windows, lexical c style for loop vars, and general cleanup

6 files changed, 42 insertions, 26 deletions

diff --git a/testWorkspace/MooClass.pm b/testWorkspace/MooClass.pm
index a51cc87..f21562d 100644
--- a/testWorkspace/MooClass.pm
+++ b/testWorkspace/MooClass.pm
@@ -1,13 +1,16 @@
 package MooClass;
 use Moo;
-use strictures 2;
-use namespace::clean;
+#use strictures 2;
+#use namespace::clean;
  
 sub moo_sub {
-  my $self = shift;
-  print "In my moo sub with " . $self->moo_attrib . "\n";
+    my $self = shift;
+    print "In my moo sub with " . $self->moo_attrib . "\n";
 }
  
+sub BUILD {
+    print "In my MOO Build sub\n";
+}
 
 has moo_attrib => (
   is => 'ro',
diff --git a/testWorkspace/MooseClass.pm b/testWorkspace/MooseClass.pm
index 0d4978a..c42ac18 100644
--- a/testWorkspace/MooseClass.pm
+++ b/testWorkspace/MooseClass.pm
@@ -7,6 +7,10 @@ has 'moose_attrib' => (
     default => 'Moost attr'
 );
  
+sub BUILD {
+    print "In moose build\n";
+}
+
 sub moose_sub {
     my $self = shift;
     print "In my moose sub\n";
diff --git a/testWorkspace/MyClass.pm b/testWorkspace/MyClass.pm
index 2f2a60b..fe1cfc9 100644
--- a/testWorkspace/MyClass.pm
+++ b/testWorkspace/MyClass.pm
@@ -4,6 +4,7 @@ use warnings;
 
 sub new {
     my $class = shift;
+    print "In MyClass->new()\n";
     return bless {}, $class;
 }
 
diff --git a/testWorkspace/MyOtherClass.pm b/testWorkspace/MyOtherClass.pm
index 8c8a419..3de3f5b 100644
--- a/testWorkspace/MyOtherClass.pm
+++ b/testWorkspace/MyOtherClass.pm
@@ -7,6 +7,10 @@ sub new {
     return bless {}, $class;
 }
 
+sub unique_method_name {
+    print "In unique_method_name\n";
+}
+
 sub duplicate_method_name {
     print "In MyObject2 with duplicate_name\n";
 }
diff --git a/testWorkspace/MySubClass.pm b/testWorkspace/MySubClass.pm
new file mode 100644
index 0000000..ad5c204
--- /dev/null
+++ b/testWorkspace/MySubClass.pm
@@ -0,0 +1,15 @@
+package MySubClass;
+use strict;
+use warnings;
+use base qw(MyClass);
+
+
+sub new {
+    my $class = shift;
+    print "In MySubClass->new()\n";
+    my $self = $class->SUPER::new();
+    return bless {}, $class;
+}
+
+
+1;
\ No newline at end of file
diff --git a/testWorkspace/mainTest.pl b/testWorkspace/mainTest.pl
index 25d6149..7e905a9 100644
--- a/testWorkspace/mainTest.pl
+++ b/testWorkspace/mainTest.pl
@@ -13,6 +13,7 @@ use MIME::Base64 qw(encode_base64);  # encode_base64 is XS, so the best we can d
 # Workspace modules
 use Dir::NamedPackage qw(exported_sub imported_constant $our_variable);
 use MyClass;
+use MySubClass;
 use MyOtherClass;
 use NonPackage;
 use MooClass;
@@ -87,23 +88,27 @@ print "\n ------ Methods and Attributes ------\n";
 my $testObj = MyClass->new();
 $testObj->myobj_method();
 
+my $subObj = MySubClass->new();
+$subObj->myobj_method();
+
 my $testObj2 = MyOtherClass->new();
+$testObj2->unique_method_name();
 $testObj2->duplicate_method_name();
 
 my $mooObj = MooClass->new();
 $mooObj->moo_sub();
 print $mooObj->moo_attrib . "\n";
 
-my $mooObj2 = InlineMooClass->new();
-$mooObj2->inline_moo_sub();
-print $mooObj->inline_attrib . "\n";
-
-
 my $mooseObj = MooseClass->new();
 $mooseObj->moose_sub();
 
+for (my $cStyleLoopVar = 0; $cStyleLoopVar <= 2; $cStyleLoopVar++){
+    print "$cStyleLoopVar";
+}
+
 
-print "Done\n";
+
+print "\nDone\n";
 
 package SameFilePackage;
 
@@ -111,20 +116,4 @@ sub same_file_package_sub {
     print "In same_file_package_sub\n";
 }
 
-
-package InlineMooClass;
-use Moo;
-use strictures 2;
-use namespace::clean;
- 
-sub inline_moo_sub {
-  my $self = shift;
-  print "In inline_moo_sub " . $self->moo_attrib . "\n";
-}
- 
-
-has inline_attrib => (
-  is => 'ro',
-  default => 'Another moo attribute'
-);
  
\ No newline at end of file