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

use Data::Anything_types;
use COPE::CORBA::Object;

# interface Data::Anything (IDL:cope/Data/Anything:1.0)

package Data::Anything;

# operation one_thing (IDL:cope/Data/Anything/one_thing:1.0)

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

# operation summary (IDL:cope/Data/Anything/summary:1.0)

sub summary ($$) {
    my($self,$thing) = @_;
    my $result_ = { _type => $Data::Anything::Stuff::_tc };
    my $request_ = $self->create_request(
        'operation' => 'summary',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $CORBA::_tc_any, _value => $thing },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

1;