view release on metacpan or  search on metacpan

lib/Biblio/BP.pm  view on Meta::CPAN

# --*-Perl-*--
# $Id: BP.pm 25 2005-09-17 21:45:54Z tandler $
#

=head1 NAME

Biblio::BP - Package Frontend for bp (Perl Bibliography Package)

=head1 SYNOPSIS

  use Biblio::BP;

=head1 DESCRIPTION

well, I guess it\'s better if you check the source or the original docs
for now .... sorry ... ;-)

=cut

package Biblio::BP;
use 5.006;
#no strict;  # for strange AUTOLOAD method call ...
use warnings;
#use English;

# for debug:
use Data::Dumper;

BEGIN {
    use vars qw($Revision $VERSION);
	my $major = 1; q$Revision: 25 $ =~ /: (\d+)/; my ($minor) = ($1); $VERSION = "$major." . ($minor<10 ? '0' : '') . $minor;
}

# superclass
#use YYYY;
#use vars qw(@ISA);
#@ISA = qw(YYYY);
## now: use base YYYY

# used modules
use FileHandle;
use File::Basename;
use File::Spec;

# used own modules
use Biblio::Util;

# module variables
#use vars qw(mmmm);

#
#
# module initialization
#
#
BEGIN {
	if( defined $ENV{'BPHOME'} ) {
		unshift(@INC, $ENV{'BPHOME'});
	} else {
		my $dir = $INC{'Biblio/BP.pm'};
		die("Cannot find Biblio/BP.pm in %INC") unless $dir;
		$dir = File::Spec->catdir(dirname($dir), 'bp', 'lib');
		die("Cannot find the bp/lib directory of the Biblio::BP module in $dir")
			unless -d $dir;
		unshift @INC, $dir;
	}
	require "bp.pl";
}


# set some useful defaults ...
# automatically detect format:
Biblio::BP::format("auto");
# print warnings, exit on errors:
Biblio::BP::errors("print", "exit");