From b891ca115e590d0d5d77afa5ccbf9cfe492c365c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 30 Jan 2012 17:48:10 +0000 Subject: update fake packages --- fake_packages/Getopt/Long.pm | 40 +++++++++++++++++++++++++++++++++++++--- 1 file changed, 37 insertions(+), 3 deletions(-) (limited to 'fake_packages/Getopt/Long.pm') 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) = @_ } -- cgit v1.2.1