1 files changed, 37 insertions, 3 deletions
diff --git a/fake_packages/Getopt/Long.pm b/fake_packages/Getopt/Long.pm
index 6437264..c7c4234 100644
--- a/fake_packages/Getopt/Long.pm
+++ b/fake_packages/Getopt/Long.pm
@@ -1,6 +1,40 @@
+
 package Getopt::Long;
+our @ISA = qw();
+sub ConfigDefaults() {}
+sub ConfigDefaults(); {}
+sub Configure { my ($_o_options) = @_ }
+sub Configure(@); {}
+sub FindOption { my ($_argv, $_prefix, $_argend, $_opt, $_o_opctl) = @_ }
+sub FindOption($$$$$); {}
+sub GetOptions(@) {}
+sub GetOptions(@); {}
+sub GetOptionsFromArray(@) { my ($_argv, $_o_optionlist) = @_ }
+sub GetOptionsFromArray(@); {}
+sub GetOptionsFromString(@) {}
+sub GetOptionsFromString(@); {}
+sub HelpMessage(@) {}
+sub HelpMessage(@); {}
+sub OptCtl { my ($_o_v) = @_ }
+sub OptCtl($); {}
+sub ParseOptionSpec { my ($_opt, $_o_opctl) = @_ }
+sub ParseOptionSpec($$); {}
+sub VERSION() {}
+sub ValidValue { my ($_ctl, $_arg, $_mand, $_argend, $_o_prefix) = @_ }
+sub VersionMessage(@) {}
+sub VersionMessage(@); {}
+sub config() {}
+sub config(@); {}
+sub import() {}
+sub setup_pa_args($@) {}
 
-our @ISA = qw(Exporter);
-our @EXPORT = qw(GetOptions);
+package Getopt::Long::CallBack;
+our @ISA = qw();
+sub name() {}
+sub new { my ($_pkg, $_o_atts) = @_ }
 
-sub GetOptions {}
+package Getopt::Long::Parser;
+our @ISA = qw();
+sub configure() {}
+sub getoptions() {}
+sub new { my ($_o_atts) = @_ }