# $Id: Swapper_impl.pm 1206 2006-05-31 07:11:53Z rvosa $

# Generated on Wed Feb 24 08:17:31 1999 by idl2perl 1.15 with command:
# bin/idl2perl -impl Data.idl

use COPE::Outside::Swapper_types;
use COPE::Outside::Swapper_skel;

# interface Swapper (IDL:cope/Outside/Swapper:1.0)

package Outside::Swapper_impl;
use COPE::CORBA::Servant
@Outside::Swapper_impl::ISA=qw(CORBA::BOA::_Servant);
sub _skelname($) { 'Outside::Swapper_skel' }

# operation swapit (IDL:cope/Outside/Swapper/swapit:1.0)

# Swap over the components of out argument and use one of them to
# modify the TestUnion data held in our parent Testem object.

sub swapit ($$) {
    my($self,$stuff) = @_;
    my $copy = $stuff->{name};

    $stuff->{name} = $stuff->{other};
    $self->{it}{Data::D_STRING()} = $copy;
    $stuff->{other} = substr(0, 10, $copy . (' ' x 10)); # Pad with spaces
}


1;