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__ |
