Mercurial > pub > Impl
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__ |