659 |
} |
} |
660 |
|
|
661 |
|
|
662 |
|
package Search::Estraier::Node; |
663 |
|
|
664 |
|
=head1 Search::Estraier::Node |
665 |
|
|
666 |
|
=head2 new |
667 |
|
|
668 |
|
my $node = new Search::HyperEstraier::Node; |
669 |
|
|
670 |
|
=cut |
671 |
|
|
672 |
|
sub new { |
673 |
|
my $class = shift; |
674 |
|
my $self = { |
675 |
|
pxport => -1, |
676 |
|
timeout => -1, |
677 |
|
dnum => -1, |
678 |
|
wnum => -1, |
679 |
|
size => -1.0, |
680 |
|
wwidth => 480, |
681 |
|
hwidth => 96, |
682 |
|
awidth => 96, |
683 |
|
status => -1, |
684 |
|
}; |
685 |
|
bless($self, $class); |
686 |
|
|
687 |
|
$self ? return $self : return undef; |
688 |
|
} |
689 |
|
|
690 |
package Search::Estraier::Master; |
package Search::Estraier::Master; |
691 |
|
|
692 |
use Carp; |
use Carp; |