trunk/bin/amt-repl.pl

#!/usr/bin/perl -w

use warnings;
use strict;

use Devel::REPL::Script;

use lib 'lib';
use Intel::AMT::SOAP;

my $host = $ENV{AMT_HOST} || die "export AMT_HOST=\n";
warn "host: $host";
Intel::AMT::SOAP::init();
Devel::REPL::Script->new->run();

1	#!/usr/bin/perl -w
2
3	use warnings;
4	use strict;
5
6	use Devel::REPL::Script;
7
8	use lib 'lib';
9	use Intel::AMT::SOAP;
10
11	my $host = $ENV{AMT_HOST} \|\| die "export AMT_HOST=\n";
12	warn "host: $host";
13	Intel::AMT::SOAP::init();
14	Devel::REPL::Script->new->run();
15