File Coverage

blib/lib/Getopt/Whatever.pm

Criterion	Covered	Total	%
statement	132	132	100.0
branch	7	10	70.0
condition	2	3	66.6
subroutine	44	44	100.0
pod			n/a
total	185	189	97.8

package Getopt::Whatever;

use warnings;
use strict;

our $VERSION = '0.01';

# The import method is pretty basic, it just chops up the @ARGV array and parses
# out anything that looks like an argument and makes it a key-value pair in the
# %ARGV hash.  The basic flow is:
#   1) if there aren't double-dashes at the start of an argument, consider the
#      argument a bareword and go to the next argument
#   2) split the key/value pair on the first equal sign
#   3) if there isn't a key, we were passed only double-dashes so stop processing
#   4) Add the flag or key/value pair to the %ARGV hash

sub import {
    my %flags;
    my %values;
    my @barewords;
    while ( my $arg = shift @ARGV ) {

        if ( substr( $arg, 0, 2 ) ne q{--} ) {
            push @barewords, $arg;
            next;
        }

        my ( $key, $value ) = split /=/xms, substr( $arg, 2 ), 2;

        last unless ( defined $key ) or ( defined $value );

        if ( defined $value ) {
            if ( exists $values{$key} ) {
                if ( not ref $values{$key} ) {
                    $values{$key} = [ $values{$key} ];
                }
                push @{ $values{$key} }, $value;
            }
            else {
                $values{$key} = $value;
            }
        }
        else {
            $flags{$key} = 1;
        }
    }

    %ARGV = ( %flags, %values );
    unshift @ARGV, @barewords;

    return;
}

1;

__END__