Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Property.pm @ 165:76515373dac0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:06:48 +0400
parents a7efb3117295
children d1676be8afcc
comparison
equal deleted inserted replaced
164:eb3e9861a761 165:76515373dac0
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 require IMPL::Exception; 5 require IMPL::Exception;
6 6
7 use base qw(Exporter); 7 use parent qw(Exporter);
8 our @EXPORT_OK = qw(_dom); 8 our @EXPORT_OK = qw(_dom);
9 9
10 sub _dom($) { 10 sub _dom($) {
11 my ($prop_info) = @_; 11 my ($prop_info) = @_;
12 $prop_info->Attributes->{domProperty} = 1; 12 $prop_info->Attributes->{domProperty} = 1;
19 19
20 =head1 SYNOPSIS 20 =head1 SYNOPSIS
21 21
22 package TypedNode; 22 package TypedNode;
23 23
24 use base qw(IMPL::DOM::Node); 24 use parent qw(IMPL::DOM::Node);
25 use IMPL::DOM::Property qw(_dom); 25 use IMPL::DOM::Property qw(_dom);
26 26
27 BEGIN { 27 BEGIN {
28 public _dom property Age => prop_all; 28 public _dom property Age => prop_all;
29 public _dom property Address => prop_all; 29 public _dom property Address => prop_all;