File Coverage

lib/Getopt/Std/Strict.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	3	4	75.0
condition	0	2	0.0
subroutine	6	6	100.0
pod	1	1	100.0
total	41	45	91.1

package Getopt::Std::Strict;
use strict;
use vars qw(@EXPORT @EXPORT_OK $VERSION @ISA %OPT $opt_string @OPT_KEYS);
use Exporter;
@EXPORT_OK = qw(%OPT &opt);
@EXPORT = qw(OPT);
@ISA = qw/Exporter/;
$VERSION = sprintf "%d.%02d", q$Revision: 1.1.1.1 $ =~ /(\d+)/g;

sub import {
   my $class = shift;
   $opt_string = shift;


   my $caller = caller;

   ### $class
   ### $caller
   ### $opt_string

   no strict 'refs';

   #*{"$caller\::OPT"}  = \%OPT;
   *{"$caller\::OPT"}  = \%OPT;


   require Getopt::Std;
   Getopt::Std::getopts($opt_string, \%OPT);

   ### %OPT

   my $_opt_string = $opt_string;
   $_opt_string=~s/\W//g;
   @OPT_KEYS = split(//, $_opt_string);
   ### @OPT_KEYS

   # make variables
   for my $opt_key (@OPT_KEYS){
      *{"$caller\::opt_$opt_key"} = \$OPT{$opt_key};
   }

   ### @_

   Getopt::Std::Strict->export_to_level(1, ( $class, @_));


}


sub opt {
   my $opt_key = shift;
   my $opt_val = shift;
   if (defined $opt_val){
      $OPT{$opt_key} = $opt_val;
   }

   $opt_string=~/$opt_key/
      or die("There's no $opt_key option")
      and return;
   return $OPT{$opt_key};
}

1;

__END__