The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl
# PODNAME: tapper-testsuite-netperf-client
# ABSTRACT: cmdline frontend to Tapper::TestSuite::Netperf::Client

use Tapper::TestSuite::Netperf::Client;
use Log::Log4perl;

# bearable since it never really changes
my $logconf = '
log4perl.rootlogger             = ERROR, Screen
log4perl.appender.Screen        = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.layout = PatternLayout
# date package category - message in  last 2 components of filename (linenumber) newline
log4perl.appender.Screen.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n';
Log::Log4perl::init(\$logconf);

my $client = Tapper::TestSuite::Netperf::Client->new;

my $retval = $client->run;
die $retval if $retval;
exit 0;

__END__
=pod

=encoding utf-8

=head1 NAME

tapper-testsuite-netperf-client - cmdline frontend to Tapper::TestSuite::Netperf::Client

=head1 AUTHOR

AMD OSRC Tapper Team <tapper@amd64.org>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2012 by Advanced Micro Devices, Inc..

This is free software, licensed under:

  The (two-clause) FreeBSD License

=cut