| 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 $rdoc = 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 |
|
=head2 uri |
| 515 |
|
|
| 516 |
|
Return URI of result document |
| 517 |
|
|
| 518 |
|
print $rdoc->uri; |
| 519 |
|
|
| 520 |
|
=cut |
| 521 |
|
|
| 522 |
|
sub uri { |
| 523 |
|
my $self = shift; |
| 524 |
|
return $self->{uri}; |
| 525 |
|
} |
| 526 |
|
|
| 527 |
|
|
| 528 |
|
=head2 attr_names |
| 529 |
|
|
| 530 |
|
Returns array with attribute names from result document object. |
| 531 |
|
|
| 532 |
|
my @attrs = $rdoc->attr_names; |
| 533 |
|
|
| 534 |
|
=cut |
| 535 |
|
|
| 536 |
|
sub attr_names { |
| 537 |
|
my $self = shift; |
| 538 |
|
croak "attr_names return array, not scalar" if (! wantarray); |
| 539 |
|
return sort keys %{ $self->{attrs} }; |
| 540 |
|
} |
| 541 |
|
|
| 542 |
|
=head2 attr |
| 543 |
|
|
| 544 |
|
Returns value of an attribute. |
| 545 |
|
|
| 546 |
|
my $value = $rdoc->attr( 'attribute' ); |
| 547 |
|
|
| 548 |
|
=cut |
| 549 |
|
|
| 550 |
|
sub attr { |
| 551 |
|
my $self = shift; |
| 552 |
|
my $name = shift || return; |
| 553 |
|
return $self->{attrs}->{ $name }; |
| 554 |
|
} |
| 555 |
|
|
| 556 |
|
=head2 snippet |
| 557 |
|
|
| 558 |
|
Return snippet from result document |
| 559 |
|
|
| 560 |
|
print $rdoc->snippet; |
| 561 |
|
|
| 562 |
|
=cut |
| 563 |
|
|
| 564 |
|
sub snippet { |
| 565 |
|
my $self = shift; |
| 566 |
|
return $self->{snippet}; |
| 567 |
|
} |
| 568 |
|
|
| 569 |
|
=head2 keywords |
| 570 |
|
|
| 571 |
|
Return keywords from result document |
| 572 |
|
|
| 573 |
|
print $rdoc->keywords; |
| 574 |
|
|
| 575 |
|
=cut |
| 576 |
|
|
| 577 |
|
sub keywords { |
| 578 |
|
my $self = shift; |
| 579 |
|
return $self->{keywords}; |
| 580 |
|
} |
| 581 |
|
|
| 582 |
|
|
| 583 |
package Search::Estraier::Master; |
package Search::Estraier::Master; |
| 584 |
|
|
| 585 |
use Carp; |
use Carp; |
Parent Directory
| 
Revision Log
| 
Patch