> suicide is an honorable option.

    croak "$$: The uers are idiots!"
        unless $api eq "makes sense";

> Adding in some sort of delimiter:
>
>     SNEEX|ADMIN|END

my %jumpz =
(
    SNEEX => \&foo,
    ADMIN => \&bar,
    ...
);

my $regex = join '|',  keys %jumpz;

if( my ($name) = $vflag =~ /($regex)/o )
{
    # do what you like with $jumpz{$name}
}


--
Steven Lembark                               2930 W. Palmer
Workhorse Computing                       Chicago, IL 60647
                                            +1 800 762 1582

Reply via email to