annotate lib/IMPL/DOM/Property.pm @ 418:3f38dabaf5cc ref20150831

sync
author cin
date Mon, 28 Dec 2015 15:11:35 +0300
parents c6e90e02dd17
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
407
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
1 package IMPL::DOM::Property;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
2 use strict;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
3 use warnings;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
4
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
5 require IMPL::Exception;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
6
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
7 use parent qw(Exporter);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
8 our @EXPORT_OK = qw(_dom);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
9
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
10 sub _dom($) {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
11 my ($prop_info) = @_;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
12 $prop_info->{dom} = 1;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
13 return $prop_info;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
14 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
15
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
16 1;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
17 __END__
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
18 =pod
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
19
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
20 =head1 SYNOPSIS
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
21
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
22 package TypedNode;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
23
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
24 use parent qw(IMPL::DOM::Node);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
25 use IMPL::DOM::Property qw(_dom);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
26
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
27 BEGIN {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
28 public _dom property Age => prop_all;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
29 public _dom property Address => prop_all;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
30 public property ServiceData => prop_all;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
31 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
32
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
33 =head1 DESCRIPTION
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
34
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
35 Позволяет объявлять свойства, которые будут видны в списке свойств.
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
36
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
37 =cut