Subroutine signature support

2 files changed, 3 insertions, 2 deletions

diff --git a/testWorkspace/MyLib/MyClass.pm b/testWorkspace/MyLib/MyClass.pm
index a229420..7d91105 100644
--- a/testWorkspace/MyLib/MyClass.pm
+++ b/testWorkspace/MyLib/MyClass.pm
@@ -2,6 +2,7 @@ package MyLib::MyClass;
 use strict;
 use warnings;
 use Data::Dumper qw(Dumper);
+use experimental 'signatures';
 
 sub new {
     my $class = shift;
@@ -14,7 +15,7 @@ sub overridden_method {
     print "In overridden_method from MyClass\n";
 }
 
-sub inherited_method {
+sub inherited_method($self, $foo, $bar) {
     print "In inherited_method\n";
 }
 
diff --git a/testWorkspace/MyLib/MyOtherClass.pm b/testWorkspace/MyLib/MyOtherClass.pm
index 810729d..0347be0 100644
--- a/testWorkspace/MyLib/MyOtherClass.pm
+++ b/testWorkspace/MyLib/MyOtherClass.pm
@@ -7,7 +7,7 @@ sub new {
     return bless {}, $class;
 }
 
-sub unique_method_name {
+sub unique_method_name { my ($foo, $bar, $baz) = @_;
     print "In unique_method_name\n";
 }