comparison Lib/IMPL/DOM/Property.pm @ 275:6253872024a4

*refactoring IMPL::Class
author cin
date Thu, 31 Jan 2013 02:18:31 +0400
parents d1676be8afcc
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
274:8d36073411b1 275:6253872024a4
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->attributes->{domProperty} = 1;
13 return $prop_info; 13 return $prop_info;
14 } 14 }
15 15
16 1; 16 1;
17 __END__ 17 __END__