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 |
|
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->{'code_page'} ||= 'ISO-8859-2'; |
62 |
|
|
63 |
$self ? return $self : return undef; |
$self ? return $self : return undef; |
64 |
} |
} |
65 |
|
|