#!/usr/bin/perl

use P5NCI::Library;

my $lib = P5NCI::Library->new( library => 'hello_world', package => 'TEST' );

my $test = $lib->install_function( 'hello', 'tv' );
my $hello       = TEST::hello();
print "for hello() i got:          $hello\n";
undef $test;

my $test = $lib->install_function( 'return_char', 'ti' );
my $return_char = TEST::return_char( 65 );
print "for return_char(65) i got:  $return_char\n";
undef $test;

my $test = $lib->install_function( 'square', 'ii' );
my $square      = TEST::square( 3 );
print "for square(3) i got:        $square\n";
undef $test;

my $test = $lib->install_function( 'bye', 'tt' );
my $bye         = TEST::bye( "thanks for all the passwords" );
print "for bye(test) i got:        $bye\n";
undef $test;

my $test = $lib->install_function( 'do_nothing', 'vi' );
my $do_nothing  = TEST::do_nothing();
print "for do_nothing() i got:     $do_nothing\n";
undef $test;