Changeset 13312 for trunk/niupepa/perllib/classify/NPDateList.pm
- Timestamp:
- 2006-11-22T10:38:19+13:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/niupepa/perllib/classify/NPDateList.pm
r1023 r13312 30 30 use DateList; 31 31 32 use strict; 33 no strict 'refs'; # allow filehandles to be variables and viceversa 34 32 35 sub BEGIN { 33 @ISA = ('DateList'); 36 @NPDateList::ISA = ('DateList'); 37 } 38 39 my $arguments; 40 41 my $options = { 'name' => "NPDateList", 42 'desc' => "Niupepa specific DateList", 43 'abstract' => "no", 44 'inherits' => "yes" }; 45 46 sub new { 47 my ($class) = shift (@_); 48 my ($classifierslist,$inputargs,$hashArgOptLists) = @_; 49 push(@$classifierslist, $class); 50 51 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 52 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 53 54 my $self = new DateList($classifierslist, $inputargs, $hashArgOptLists); 55 56 return bless $self, $class; 34 57 } 35 58
Note:
See TracChangeset
for help on using the changeset viewer.