view Lib/IMPL/DOM/Schema/AnyNode.pm @ 24:7f00786f8210

Первая рабочая реазизация схемы и навигаторов
author Sergey
date Mon, 05 Oct 2009 00:48:49 +0400
parents 267460284fb3
children 16ada169ca75
line wrap: on
line source

package IMPL::DOM::Schema::AnyNode;
use strict;
use warnings;

use base qw(IMPL::DOM::Schema::Node);

our %CTOR = (
    'IMPL::DOM::Schema::Node' => sub {
        my %args = @_;
        $args{nodeName} ||= 'AnyNode';
        $args{name} = '::any';
        
        %args;
    }
);

1;

__END__

=pod

=head1 DESCRIPTION

   ,      
 .

   C<IMPL::DOM::Schema::NodeSet>       
      C<IMPL::DOM::Schema::SwitchNode>.

   <IMPL::DOM::Schema::NodeList>      
          .

<NodeList>
    <SimpleNode name="firstName"/>
    <SimpleNode name="age"/>
    <AnyNode type="Notes" minOccur="0" maxOccur="unbounded"/>
    <Node name="primaryAddress" type="Address"/>
    <AnyNode/>
</NodeList>

=cut