26 |
my $db = WebPAC::Input->new( |
my $db = WebPAC::Input->new( |
27 |
format => 'NULL', |
format => 'NULL', |
28 |
config => $config, |
config => $config, |
29 |
|
lookup => $lookup_obj, |
30 |
); |
); |
31 |
|
|
32 |
$db->open('/path/to/database'); |
$db->open('/path/to/database'); |
42 |
|
|
43 |
Create new input database object. |
Create new input database object. |
44 |
|
|
45 |
my $db = new WebPAC::Input( format => 'NULL' ); |
my $db = new WebPAC::Input( |
46 |
|
format => 'NULL' |
47 |
This function will load needed wrapper module and |
code_page => 'ISO-8859-2', |
48 |
|
); |
49 |
|
|
50 |
|
Optional parametar C<code_page> specify application code page (which will be |
51 |
|
used internally). This should probably be your terminal encoding, and by |
52 |
|
default, it C<ISO-8859-2>. |
53 |
|
|
54 |
=cut |
=cut |
55 |
|
|
58 |
my $self = {@_}; |
my $self = {@_}; |
59 |
bless($self, $class); |
bless($self, $class); |
60 |
|
|
61 |
$self ? return $self : return undef; |
$self->{'code_page'} ||= 'ISO-8859-2'; |
|
} |
|
|
|
|
|
=head2 open |
|
|
|
|
|
=cut |
|
|
|
|
|
sub open { |
|
|
} |
|
|
|
|
|
=head2 function2 |
|
|
|
|
|
=cut |
|
62 |
|
|
63 |
sub function2 { |
$self ? return $self : return undef; |
64 |
} |
} |
65 |
|
|
|
|
|
|
|
|
66 |
=head1 MEMORY USAGE |
=head1 MEMORY USAGE |
67 |
|
|
68 |
C<low_mem> options is double-edged sword. If enabled, WebPAC |
C<low_mem> options is double-edged sword. If enabled, WebPAC |