|
Last change
on this file since 25 was
25,
checked in by thauvin, 19 years ago
|
- document way of life (Michele Thetis)
- doc about ObsData? module
- functions to dir by type of data
|
-
Property cvs2svn:cvs-rev set to
1.2
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
554 bytes
|
| Line | |
|---|
| 1 | # $Id$ |
|---|
| 2 | |
|---|
| 3 | package ObsData::Data; |
|---|
| 4 | |
|---|
| 5 | use strict; |
|---|
| 6 | use warnings; |
|---|
| 7 | |
|---|
| 8 | sub new { |
|---|
| 9 | my ($class, $obsdata, $file, %options) = @_; |
|---|
| 10 | my $data = { |
|---|
| 11 | obsdata => $obsdata, |
|---|
| 12 | datafile => $file, |
|---|
| 13 | datatype => undef, |
|---|
| 14 | }; |
|---|
| 15 | |
|---|
| 16 | foreach (keys %options) { |
|---|
| 17 | $data->{$_} = $options{$_}; |
|---|
| 18 | } |
|---|
| 19 | |
|---|
| 20 | bless($data, $class); |
|---|
| 21 | } |
|---|
| 22 | |
|---|
| 23 | sub am_I_valid { |
|---|
| 24 | my ($self) = @_; |
|---|
| 25 | # check if the config has all info need for proccessing |
|---|
| 26 | if(!$self->{datatype}) { |
|---|
| 27 | return 0; |
|---|
| 28 | } |
|---|
| 29 | # if ($self->{obsdata}->getvalue($self->{datatype}, ' |
|---|
| 30 | } |
|---|
| 31 | |
|---|
| 32 | |
|---|
| 33 | |
|---|
| 34 | 1; |
|---|
| 35 | |
|---|
| 36 | __END__ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
