WSDL-Generator

 view release on metacpan or  search on metacpan

WSDLTest.pm  view on Meta::CPAN

#	$param = { param1 => $something,
#	           param2 => $somethingelse,
#	         };
#	Returns a SoapTest object
#
sub new {
	my $class = shift;
	my $param = shift;
	my $self = { 'param1' => $param->{param1},
	             'param2' => $param->{param2} };
	return bless $self => $class;
}


# test1($msg)
#
#	Returns [ [$msg,1,2,3], [4,5], [6,7] ]
#
sub test1 {
		my ($self, $msg) = @_;
        return [ [$msg,1,2,3], [4,5], [6,7] ];

lib/WSDL/Generator.pm  view on Meta::CPAN

              'documentation' => 'Service to book tickets online',
              'location'      => 'http://www.acmetravel.com/SOAP/BookFlight' };
Install a spy which captures all the methods and subs calls to other classes

=cut
sub new {
    my $class = shift;
    my $param = shift || {};
    my $self = { calls   => {},
                 %$param };
    bless $self => $class;
    Class::Hook->before(\&_before, $self);
    Class::Hook->after(\&_after, $self);
    Class::Hook->activate();
    return $self;
}

=pod

=head1 METHODS

lib/WSDL/Generator/Binding.pm  view on Meta::CPAN

				'service_name' => 'Book_a_Flight' };
$param is optional.
Returns WSDL::Generator::Binding object

=cut
sub new {
	my ($class, $param) = @_;
	my $self = { 'services'     => $param->{services},
				 'service_name' => $param->{service_name},
	             'methods'      => {} };
	return bless $self => $class;
}

=pod

=head1 METHODS

=head2 add_request($method)

Adds a method with its request for binding

lib/WSDL/Generator/Schema.pm  view on Meta::CPAN

=head2 new($namespace)

$namespace is optional.
Returns WSDL::Generator::Schema object

=cut
sub new {
	my ($class, $namespace) = @_;
	my $self = { 'schema_namesp' => $namespace,
	             'counter'       => 0 };
	return bless $self => $class;
}

=pod

=head1 METHODS

=head2 add($struct)

Generate a wsdl schema for the structure sent

 view all matches for this distribution
 view release on metacpan -  search on metacpan