libs/Getopt/Simple.pm

## ------------------------------------------------------------------------
##  $Id: Simple.pm,v 1.1 2002/12/22 14:16:23 joko Exp $
## ------------------------------------------------------------------------
##  $Log: Simple.pm,v $
##  Revision 1.1  2002/12/22 14:16:23  joko
##  + initial check-in
##
## ------------------------------------------------------------------------


package Getopt::Simple;

use strict;
use warnings;


use Data::Dumper;
use Getopt::Long;

my $opt;

sub _cb_readOption {
  #my $self = shift;
  my $opt_name = shift;
  my $opt_value = shift;
  $opt_value ||= 1;
  $opt->{$opt_name} = $opt_value;
  #$self->{$opt_name} = $opt_value;
}

sub new {
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  my $self = {};
  bless $self, $class;
  
  #my $fields = shift;
  my @fields = @_;
  
  # build mapping (hash with argument as key and callback (CODEref) as value)
  $self->{__possible} = [];
  $self->{__available} = [];
  $self->{__result} = {};
  $self->{__getopt_mapping} = [];
  #foreach (@$fields) {
  foreach (@fields) {

    my $key = $_;
    $key =~ s/=.*$//;
    push @{$self->{__possible}}, $key;


    #$option_mapping->{$_} = \&readOption;
    push @{$self->{__getopt_mapping}}, $_;
    push @{$self->{__getopt_mapping}}, \&_cb_readOption;
  }
  
  GetOptions(@{$self->{__getopt_mapping}});
  
  foreach my $key (keys %{$opt}) {
    push @{$self->{__available}}, $key;
    $self->{__result}->{$key} = $opt->{$key};
    # for convenience: store inside object itself, too
    $self->{$key} = $opt->{$key};
  }
  return $self;
}

sub getOptions {
  my $self = shift;
  return $self->{__result};
}

1;
1	joko	1.1	## ------------------------------------------------------------------------
2	joko	1.2	## $Id: Simple.pm,v 1.1 2002/12/22 14:16:23 joko Exp $
3	joko	1.1	## ------------------------------------------------------------------------
4	joko	1.2	## $Log: Simple.pm,v $
5			## Revision 1.1 2002/12/22 14:16:23 joko
6			## + initial check-in
7			##
8	joko	1.1	## ------------------------------------------------------------------------
9
10
11			package Getopt::Simple;
12
13			use strict;
14			use warnings;
15
16
17			use Data::Dumper;
18			use Getopt::Long;
19
20			my $opt;
21
22	joko	1.2	sub _cb_readOption {
23			#my $self = shift;
24			my $opt_name = shift;
25			my $opt_value = shift;
26			$opt_value \|\|= 1;
27			$opt->{$opt_name} = $opt_value;
28			#$self->{$opt_name} = $opt_value;
29			}
30
31	joko	1.1	sub new {
32			my $invocant = shift;
33			my $class = ref($invocant) \|\| $invocant;
34			my $self = {};
35			bless $self, $class;
36
37			#my $fields = shift;
38			my @fields = @_;
39
40			# build mapping (hash with argument as key and callback (CODEref) as value)
41	joko	1.2	$self->{__possible} = [];
42			$self->{__available} = [];
43			$self->{__result} = {};
44			$self->{__getopt_mapping} = [];
45	joko	1.1	#foreach (@$fields) {
46			foreach (@fields) {
47	joko	1.2
48			my $key = $_;
49			$key =~ s/=.*$//;
50			push @{$self->{__possible}}, $key;
51
52
53			#$option_mapping->{$_} = \&readOption;
54			push @{$self->{__getopt_mapping}}, $_;
55			push @{$self->{__getopt_mapping}}, \&_cb_readOption;
56	joko	1.1	}
57
58	joko	1.2	GetOptions(@{$self->{__getopt_mapping}});
59	joko	1.1
60			foreach my $key (keys %{$opt}) {
61	joko	1.2	push @{$self->{__available}}, $key;
62			$self->{__result}->{$key} = $opt->{$key};
63			# for convenience: store inside object itself, too
64	joko	1.1	$self->{$key} = $opt->{$key};
65			}
66			return $self;
67			}
68
69	joko	1.2	sub getOptions {
70			my $self = shift;
71			return $self->{__result};
72	joko	1.1	}
73
74			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26