915ee03cbe
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.02 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.02.tar.gz
71 lines
2.7 KiB
Perl
71 lines
2.7 KiB
Perl
package SOAP::WSDL::Generator::Template;
|
|
use strict;
|
|
use Template;
|
|
use Class::Std::Fast::Storable;
|
|
use Carp;
|
|
use SOAP::WSDL::Generator::PrefixResolver;
|
|
|
|
use version; our $VERSION = qv('2.00.02');
|
|
|
|
my %tt_of :ATTR(:get<tt>);
|
|
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
|
my %server_prefix_of :ATTR(:name<server_prefix> :default<MyServer>);
|
|
my %interface_prefix_of :ATTR(:name<interface_prefix> :default<MyInterfaces>);
|
|
my %typemap_prefix_of :ATTR(:name<typemap_prefix> :default<MyTypemaps>);
|
|
my %type_prefix_of :ATTR(:name<type_prefix> :default<MyTypes>);
|
|
my %element_prefix_of :ATTR(:name<element_prefix> :default<MyElements>);
|
|
my %attribute_prefix_of :ATTR(:name<attribute_prefix> :default<MyAttributes>);
|
|
my %INCLUDE_PATH_of :ATTR(:name<INCLUDE_PATH> :default<()>);
|
|
my %EVAL_PERL_of :ATTR(:name<EVAL_PERL> :default<0>);
|
|
my %RECURSION_of :ATTR(:name<RECURSION> :default<0>);
|
|
my %OUTPUT_PATH_of :ATTR(:name<OUTPUT_PATH> :default<.>);
|
|
|
|
my %prefix_resolver_class_of :ATTR(:name<prefix_resolver_class> :default<SOAP::WSDL::Generator::PrefixResolver>);
|
|
|
|
sub START {
|
|
my ($self, $ident, $arg_ref) = @_;
|
|
}
|
|
|
|
sub _process :PROTECTED {
|
|
my ($self, $template, $arg_ref, $output) = @_;
|
|
my $ident = ident $self;
|
|
|
|
# always create a new Template object to
|
|
# force re-loading of plugins.
|
|
my $tt = Template->new(
|
|
DEBUG => 1,
|
|
EVAL_PERL => $EVAL_PERL_of{ $ident },
|
|
RECURSION => $RECURSION_of{ $ident },
|
|
INCLUDE_PATH => $INCLUDE_PATH_of{ $ident },
|
|
OUTPUT_PATH => $OUTPUT_PATH_of{ $ident },
|
|
PLUGIN_BASE => 'SOAP::WSDL::Generator::Template::Plugin',
|
|
);
|
|
|
|
$tt->process( $template,
|
|
{
|
|
context => {
|
|
prefix_resolver => $prefix_resolver_class_of{ $$self }->new({
|
|
namespace_prefix_map => {
|
|
'http://www.w3.org/2001/XMLSchema' => 'SOAP::WSDL::XSD::Typelib::Builtin',
|
|
},
|
|
namespace_map => {
|
|
},
|
|
prefix => {
|
|
interface => $self->get_interface_prefix,
|
|
element => $self->get_element_prefix,
|
|
attribute => $self->get_attribute_prefix,
|
|
server => $self->get_server_prefix,
|
|
type => $self->get_type_prefix,
|
|
typemap => $self->get_typemap_prefix,
|
|
}
|
|
}),
|
|
},
|
|
definitions => $self->get_definitions,
|
|
NO_POD => delete $arg_ref->{ NO_POD } ? 1 : 0 ,
|
|
%{ $arg_ref }
|
|
},
|
|
$output)
|
|
or croak $INCLUDE_PATH_of{ $ident }, '\\', $template, ' ', $tt->error();
|
|
}
|
|
|
|
1; |