Mercurial > pub > Impl

comparison lib/IMPL/DOM/Property.pm @ 407:c6e90e02dd17 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children
comparison
equal deleted inserted replaced
406:f23fcb19d3c1 407:c6e90e02dd17
1 package IMPL::DOM::Property;
2 use strict;
3 use warnings;
4
5 require IMPL::Exception;
6
7 use parent qw(Exporter);
8 our @EXPORT_OK = qw(_dom);
9
10 sub _dom($) {
11 my ($prop_info) = @_;
12 $prop_info->{dom} = 1;
13 return $prop_info;
14 }
15
16 1;
17 __END__
18 =pod
19
20 =head1 SYNOPSIS
21
22 package TypedNode;
23
24 use parent qw(IMPL::DOM::Node);
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
35 Позволяет объявлять свойства, которые будут видны в списке свойств.
36
37 =cut