view release on metacpan or  search on metacpan

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

# --*-Perl-*--
# $Id: Util.pm 13 2004-11-27 08:58:44Z tandler $
#

=head1 NAME

Biblio::Util - Package Frontend for bp_util (Perl Bibliography Package)

=head1 SYNOPSIS

  use Biblio::Util;

=head1 DESCRIPTION

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

=cut

package Biblio::Util;
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: 13 $ =~ /: (\d+)/; my ($minor) = ($1); $VERSION = "$major." . ($minor<10 ? '0' : '') . $minor;
}

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

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

# used own modules
use Biblio::BP;

=head1 METHODS

=over

=cut

#
#
# some additional helper functions
#
#

=item $bool = ordnumber($text)

Convert ordinal number in text representatin to integer value.
Return undef if $text is no ordinal number.


=cut

our %ordNumbers = qw/
	first	1
	second	2
	third	3
	fourth	4
	fifth	5
	sixth	6
	seventh	7
	eighth	8
	ninth	9