Parent Directory
|
Revision Log
|
Patch
| revision 1.2 by wakaba, Fri Jun 15 14:32:50 2007 UTC | revision 1.3 by wakaba, Sat Jun 16 08:05:48 2007 UTC | |
|---|---|---|
| # | Line 10 require Message::DOM::Node; | Line 10 require Message::DOM::Node; |
| 10 | sub ____new ($$$) { | sub ____new ($$$) { |
| 11 | my $self = shift->SUPER::____new (shift); | my $self = shift->SUPER::____new (shift); |
| 12 | $$self->{node_name} = $_[0]; | $$self->{node_name} = $_[0]; |
| 13 | $$self->{child_nodes} = []; | |
| 14 | return $self; | return $self; |
| 15 | } # ____new | } # ____new |
| 16 |
|
||||||||
| [email protected] | ViewVC Help |
| Powered by ViewVC 1.1.24 |