|
49
|
1 package IMPL::DOM::Property;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 require IMPL::Exception;
|
|
|
6
|
|
165
|
7 use parent qw(Exporter);
|
|
49
|
8 our @EXPORT_OK = qw(_dom);
|
|
|
9
|
|
|
10 sub _dom($) {
|
|
|
11 my ($prop_info) = @_;
|
|
122
|
12 $prop_info->Attributes->{domProperty} = 1;
|
|
49
|
13 return $prop_info;
|
|
|
14 }
|
|
|
15
|
|
|
16 1;
|
|
|
17 __END__
|
|
|
18 =pod
|
|
|
19
|
|
|
20 =head1 SYNOPSIS
|
|
|
21
|
|
|
22 package TypedNode;
|
|
|
23
|
|
165
|
24 use parent qw(IMPL::DOM::Node);
|
|
49
|
25 use IMPL::DOM::Property qw(_dom);
|
|
|
26
|
|
|
27 BEGIN {
|
|
|
28 public _dom property Age => prop_all;
|
|
|
29 public _dom property Address => prop_all;
|
|
|
30 public property ServiceData => prop_all;
|
|
|
31 }
|
|
|
32
|
|
|
33 =head1 DESCRIPTION
|
|
|
34
|
|
122
|
35 , .
|
|
49
|
36
|
|
|
37 =cut
|
