#!/usr/bin/perl -w

use strict;
use lib ".";
use Common;
use Opt;
use Data::Dumper;

sub testSplitArg() {
    while (<>) {
	my @argv = Common::simpleSplitArg($_);
	print 'simple <' . join("> <", @argv) . ">\n";
	#@argv = Common::splitArg($_);
	#print 'normal <' . join("> <", @argv) . ">\n";
    }
}
$Opt::DISP{splitArg} = [ \&testSplitArg, "test splitArg()" ];

sub main() {
    Opt::opt(\&Opt::UsageDisp);

    my $func = Opt::disp(shift @ARGV);
    &$func();
}

main;


__END__
