| 476 |
} |
} |
| 477 |
|
|
| 478 |
|
|
| 479 |
|
package Search::Estraier::ResultDocument; |
| 480 |
|
|
| 481 |
|
use Carp qw/confess croak/; |
| 482 |
|
|
| 483 |
|
use Search::Estraier; |
| 484 |
|
our @ISA = qw/Search::Estraier/; |
| 485 |
|
|
| 486 |
|
=head1 Search::Estraier::ResultDocument |
| 487 |
|
|
| 488 |
|
=head2 new |
| 489 |
|
|
| 490 |
|
my $doc = new Search::HyperEstraier::ResultDocument( |
| 491 |
|
uri => 'http://localhost/document/uri/42', |
| 492 |
|
attrs => { |
| 493 |
|
foo => 1, |
| 494 |
|
bar => 2, |
| 495 |
|
}, |
| 496 |
|
snippet => 'this is a text of snippet' |
| 497 |
|
keywords => 'this\tare\tkeywords' |
| 498 |
|
); |
| 499 |
|
|
| 500 |
|
=cut |
| 501 |
|
|
| 502 |
|
sub new { |
| 503 |
|
my $class = shift; |
| 504 |
|
my $self = {@_}; |
| 505 |
|
bless($self, $class); |
| 506 |
|
|
| 507 |
|
foreach my $f (qw/uri attrs snippet keywords/) { |
| 508 |
|
croak "missing $f for ResultDocument" unless defined($self->{$f}); |
| 509 |
|
} |
| 510 |
|
|
| 511 |
|
$self ? return $self : return undef; |
| 512 |
|
} |
| 513 |
|
|
| 514 |
|
|
| 515 |
|
|
| 516 |
package Search::Estraier::Master; |
package Search::Estraier::Master; |
| 517 |
|
|
| 518 |
use Carp; |
use Carp; |
Parent Directory
| 
Revision Log
| 
Patch