/usr/local/CPAN/EmbedIT-WebIT/WebService.pm

• package WebService
  • new
  • Test
• EOF

package WebService;

our $VERSION = "1.0";

# ----------------------------------------------------------------------------------------------------------

sub new {
  my $self = {};
  bless $self;
  return $self;
}

# ----------------------------------------------------------------------------------------------------------

sub Test {
  my ($self,$body,$header) = @_;
  my %idata = ();

  $idata{Flag} = $body->get_Flag() . " has been returned";

  return MyElements::OutputFlag->new(\%idata);
}

# ----------------------------------------------------------------------------------------------------------