# Automatically generated stub code.  DO NOT EDIT.
# Generated on Wed May 10 20:30:12 2000 by idl2perl 2.7 with command:
# bin/idl2perl -outdir t/COPE Data.idl

use Outside::Swapper_types;
use COPE::CORBA::Object;

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

package Outside::Swapper;

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

sub swapit ($$) {
    my($self,$stuff) = @_;
    my $result_ = { _type => $CORBA::_tc_void };
    my $request_ = $self->create_request(
        'operation' => 'swapit',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Outside::Structure::_tc, _value => $stuff },
            'arg_modes' => 2,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
}

1;