The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

sub get_dictionary_data { my ($self,$dictionary_type,%params)=@_; croak "dictionary_type (1^ arg) non defined" unless defined $dictionary_type; if ($dictionary_type eq 'SCHEMA_DICTIONARY') { my %data=map { ($_,$self->get_attrs_value($_)); }(qw(URI element_form_default attribute_form_default)); return wantarray ? %data : \%data; } croak "$dictionary_type: invalid value"; }

NAME

blx::xsdsql::xsd_parser::node::schema - internal class for parsing schema

2 POD Errors

The following errors were encountered while parsing the POD:

Around line 383:

=pod directives shouldn't be over one line long! Ignoring all 6 lines of content

Around line 401:

=pod directives shouldn't be over one line long! Ignoring all 7 lines of content