Parent Directory | Revision Log | Patch
revision 61 by dpavlin, Sat Jan 7 01:21:28 2006 UTC | revision 62 by dpavlin, Sat Jan 7 02:40:57 2006 UTC | |
---|---|---|
# | Line 525 sub new { | Line 525 sub new { |
525 | my $self = {@_}; | my $self = {@_}; |
526 | bless($self, $class); | bless($self, $class); |
527 | ||
528 | foreach my $f (qw/uri attrs snippet keywords/) { | croak "missing uri for ResultDocument" unless defined($self->{uri}); |
croak "missing $f for ResultDocument" unless defined($self->{$f}); | ||
} | ||
529 | ||
530 | $self ? return $self : return undef; | $self ? return $self : return undef; |
531 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |