| … | |
… | |
| 28 | |
28 | |
| 29 | ################################################################################ |
29 | ################################################################################ |
| 30 | # constructor |
30 | # constructor |
| 31 | ################################################################################ |
31 | ################################################################################ |
| 32 | |
32 | |
| 33 | sub new($$) { |
33 | sub new($$$) { |
| 34 | my ($proto, $source) = @_; |
34 | my ($proto, $source, $params) = @_; |
| 35 | my $class = ref($proto) || $proto; |
35 | my $class = ref($proto) || $proto; |
| 36 | my $self = { |
36 | my $self = { |
| 37 | hash => {}, |
37 | hash => {}, |
| 38 | source => $source, |
38 | source => $source, |
|
|
39 | params => $params, |
| 39 | }; |
40 | }; |
| 40 | bless $self, $class; |
41 | bless $self, $class; |
| 41 | return $self; |
42 | return $self; |
| 42 | } |
43 | } |
| 43 | |
44 | |
Parent Directory
| 
Revision Log
| 
Patch