1 |
package IsisDB; |
package Biblio::Isis; |
2 |
use strict; |
use strict; |
3 |
|
|
4 |
use Carp; |
use Carp; |
9 |
BEGIN { |
BEGIN { |
10 |
use Exporter (); |
use Exporter (); |
11 |
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
12 |
$VERSION = 0.09; |
$VERSION = 0.10; |
13 |
@ISA = qw (Exporter); |
@ISA = qw (Exporter); |
14 |
#Give a hoot don't pollute, do not export more than needed by default |
#Give a hoot don't pollute, do not export more than needed by default |
15 |
@EXPORT = qw (); |
@EXPORT = qw (); |
20 |
|
|
21 |
=head1 NAME |
=head1 NAME |
22 |
|
|
23 |
IsisDB - Read CDS/ISIS, WinISIS and IsisMarc database |
Biblio::Isis - Read CDS/ISIS, WinISIS and IsisMarc database |
24 |
|
|
25 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
26 |
|
|
27 |
use IsisDB; |
use Biblio::Isis; |
28 |
|
|
29 |
my $isis = new IsisDB( |
my $isis = new Biblio::Isis( |
30 |
isisdb => './cds/cds', |
isisdb => './cds/cds', |
31 |
); |
); |
32 |
|
|
81 |
|
|
82 |
Open ISIS database |
Open ISIS database |
83 |
|
|
84 |
my $isis = new IsisDB( |
my $isis = new Biblio::Isis( |
85 |
isisdb => './cds/cds', |
isisdb => './cds/cds', |
86 |
read_fdt => 1, |
read_fdt => 1, |
87 |
include_deleted => 1, |
include_deleted => 1, |