diff options
Diffstat (limited to 'lib/Text/BibTeX/Bib.pm')
-rw-r--r-- | lib/Text/BibTeX/Bib.pm | 32 |
1 files changed, 6 insertions, 26 deletions
diff --git a/lib/Text/BibTeX/Bib.pm b/lib/Text/BibTeX/Bib.pm index d400dd3..9fb50f5 100644 --- a/lib/Text/BibTeX/Bib.pm +++ b/lib/Text/BibTeX/Bib.pm @@ -27,7 +27,7 @@ Text::BibTeX::Bib - defines the "Bib" database structure =head1 SYNOPSIS - $bibfile = new Text::BibTeX::File $filename; + $bibfile = Text::BibTeX::File $filename->new; $bibfile->set_structure ('Bib', # Default option values: sortby => 'name', @@ -45,11 +45,11 @@ Text::BibTeX::Bib - defines the "Bib" database structure $bibfile->set_option (labels => 'alpha'); # not implemented yet! # parse entry from $bibfile and automatically make it a BibEntry - $entry = new Text::BibTeX::Entry $bibfile; + $entry = Text::BibTeX::Entry->new($bibfile); # or get an entry from somewhere else which is hard-coded to be # a BibEntry - $entry = new Text::BibTeX::BibEntry ...; + $entry = Text::BibTeX::BibEntry->new(...); $sortkey = $entry->sort_key; @blocks = $entry->format; @@ -111,7 +111,7 @@ package Text::BibTeX::BibStructure; use strict; use vars qw(@ISA $VERSION); @ISA = qw(Text::BibTeX::Structure); -$VERSION = '0.74'; +$VERSION = '0.76'; =head1 STRUCTURE OPTIONS @@ -450,33 +450,13 @@ package Text::BibTeX::BibEntry; use strict; use vars qw(@ISA $VERSION); -$VERSION = '0.74'; +$VERSION = '0.76'; use Text::BibTeX::BibSort; use Text::BibTeX::BibFormat; @ISA = qw(Text::BibTeX::BibSort Text::BibTeX::BibFormat); - -# Pre-define the "month name" macros for compatibility with BibTeX. -# This ignores all sorts of issues, like internationalization and -# abbreviation. -my %month_names = - ('jan' => 'January', - 'feb' => 'February', - 'mar' => 'March', - 'apr' => 'April', - 'may' => 'May', - 'jun' => 'June', - 'jul' => 'July', - 'aug' => 'August', - 'sep' => 'September', - 'oct' => 'October', - 'nov' => 'November', - 'dec' => 'December'); - -my ($macro, $expansion); -Text::BibTeX::add_macro_text ($macro, $expansion) - while (($macro, $expansion) = each %month_names); + 1; |