comparison Lib/IMPL/DOM/Property.pm @ 278:4ddb27ff4a0b

core refactoring
author cin
date Mon, 04 Feb 2013 02:10:37 +0400
parents 6253872024a4
children 648dfaf642e0
comparison
equal deleted inserted replaced
277:6585464c4664 278:4ddb27ff4a0b
7 use parent 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->{domProperty} = 1;
13 return $prop_info; 13 return $prop_info;
14 } 14 }
15 15
16 1; 16 1;
17 __END__ 17 __END__