pod tweaks
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@917
07558da8-63fa-0310-ba24-
9fe276d99e06
use base qw/WebPAC::Common WebPAC::Output Class::Accessor/;
__PACKAGE__->mk_accessors(qw(path));
-#use Encode qw/from_to/;
use Data::Dump qw/dump/;
use JSON;
use File::Slurp;
=head2 new
- my $output = new WebPAC::Output::JSON({
+ my $out = new WebPAC::Output::JSON({
path => '/path/to/file.js',
});
=head2 init
- $output->init;
+ $out->init;
=cut
Adds one entry to database.
- $est->add( 42, $ds );
+ $out->add( 42, $ds );
=cut
=head2 finish
- $output->finish;
+ $out->finish;
=cut
Open KinoSearch index
- my $est = new WebPAC::Output::KinoSearch({
+ my $out = new WebPAC::Output::KinoSearch({
path => '/path/to/invindex',
database => 'demo',
encoding => 'iso-8859-2',
=back
+=head2 init
+
+ $out->init;
+
=cut
sub init {
Adds one entry
- $est->add( 42, $ds );
+ $out->add( 42, $ds );
=cut
Close index
- $index->finish;
+ $out->finish;
=cut
}
-=head2 convert
-
- my $utf8_string = $self->convert('string in codepage');
-
-=cut
-
-sub convert {
- my $self = shift;
-
- my $text = shift || return;
- from_to($text, $self->{encoding}, 'UTF-8');
- return $text;
-}
-
=head1 AUTHOR
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>