#!/usr/bin/perl -w

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

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

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

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

main;


__END__