use warnings; use strict; package Religion::Bible::Reference::Standard; =head1 NAME Religion::Bible::Reference::Standard - standard bible books and abbreviations =head1 VERSION version 0.012 =cut our $VERSION = '0.012'; =head1 DESCRIPTION This module is a package of book descriptions and abbreviations for use with Religion::Bible::Reference. It is loaded by that module by default. =cut my %chapters = ( 'Genesis' => [ qw( 31 25 24 26 32 22 24 22 29 32 32 20 18 24 21 16 27 33 38 18 34 24 20 67 34 35 46 22 35 43 55 32 20 31 29 43 36 30 23 23 57 38 34 34 28 34 31 22 33 26 )], 'Exodus' => [ qw( 22 25 22 31 23 30 25 32 35 29 10 51 22 31 27 36 16 27 25 26 36 31 33 18 40 37 21 43 46 38 18 35 23 35 35 38 29 31 43 38 )], 'Leviticus' => [ qw( 17 16 17 35 19 30 38 36 24 20 47 08 59 57 33 34 16 30 37 27 24 33 44 23 55 46 34 )], 'Numbers' => [ qw( 54 34 51 49 31 27 89 26 23 36 35 16 33 45 41 50 13 32 22 29 35 41 30 25 18 65 23 31 40 16 54 42 56 29 34 13 )], 'Deuteronomy' => [ qw( 46 37 29 49 33 25 26 20 29 22 32 32 18 29 23 22 20 22 21 20 23 30 25 22 19 19 26 68 29 20 30 52 29 12 )], 'Joshua' => [ qw( 18 24 17 24 15 27 26 35 27 43 23 24 33 15 63 10 18 28 51 09 45 34 16 33 )], 'Judges' => [ qw( 36 23 31 24 31 40 25 35 57 18 40 15 25 20 20 31 13 31 30 48 25 )], 'Ruth' => [ qw( 22 23 18 22 )], '1 Samuel' => [ qw( 28 36 21 22 12 21 17 22 27 27 15 25 23 52 35 23 58 30 24 42 15 23 29 22 44 25 12 25 11 31 13 )], '2 Samuel' => [ qw( 27 32 39 12 25 23 29 18 13 19 27 31 39 33 37 23 29 33 43 26 22 51 39 25 )], '1 Kings' => [ qw( 53 46 28 34 18 38 51 66 28 29 43 33 34 31 34 34 24 46 21 43 29 53 )], '2 Kings' => [ qw( 18 25 27 44 27 33 20 29 37 36 21 21 25 29 38 20 41 37 37 21 26 20 37 20 30 )], '1 Chronicles' => [ qw( 54 55 24 43 26 81 40 40 44 14 47 40 14 17 29 43 27 17 19 08 30 19 32 31 31 32 34 21 30 )], '2 Chronicles' => [ qw( 17 18 17 22 14 42 22 18 31 19 23 16 22 15 19 14 19 34 11 37 20 12 21 27 28 23 09 27 36 27 21 33 25 33 27 23 )], 'Ezra' => [ qw( 11 70 13 24 17 22 28 36 15 44 )], 'Nehemiah' => [ qw( 11 20 32 23 19 19 73 18 38 39 36 47 31 )], 'Esther' => [ qw( 22 23 15 17 14 14 10 17 32 03 )], 'Job' => [ qw( 22 13 26 21 27 30 21 22 35 22 20 25 28 22 35 22 16 21 29 29 34 30 17 25 06 14 23 28 25 31 40 22 33 37 16 33 24 41 30 24 34 17 )], 'Psalms' => [ qw( 06 12 08 08 12 10 17 09 20 18 07 08 06 07 05 11 15 50 14 09 13 31 06 10 22 12 14 09 11 12 24 11 22 22 28 12 40 22 13 17 13 11 05 26 17 11 09 14 20 23 19 09 06 07 23 13 11 11 17 12 08 12 11 10 13 20 07 35 36 05 24 20 28 23 10 12 20 72 13 19 16 08 18 12 13 17 07 18 52 17 16 15 05 23 11 13 12 09 09 05 08 28 22 35 45 48 43 31 31 07 10 10 09 08 18 19 02 29 176 07 08 09 04 08 05 06 05 06 08 08 03 18 03 03 21 26 09 08 24 13 10 07 12 15 21 10 20 14 09 06 )], 'Proverbs' => [ qw( 33 22 35 27 23 35 27 36 18 32 31 28 25 35 33 33 28 24 29 30 31 29 35 34 28 28 27 28 27 33 31 )], 'Ecclesiastes' => [ qw( 18 26 22 16 20 12 29 17 18 20 10 14 )], 'Song of Solomon' => [ qw( 17 17 11 16 16 13 13 14 )], 'Isaiah' => [ qw( 31 22 26 06 30 13 25 22 21 34 16 06 22 32 09 14 14 07 25 06 21 25 18 23 12 21 13 29 24 33 09 20 24 17 10 22 38 22 08 31 29 25 28 28 25 13 15 22 26 11 23 15 12 17 13 12 21 14 21 22 11 12 19 12 25 24 )], 'Jeremiah' => [ qw( 19 37 25 31 31 30 34 22 26 25 23 17 27 22 21 21 27 23 15 18 14 30 40 10 38 24 22 17 32 24 40 44 26 22 19 32 21 28 18 16 18 22 13 30 05 28 07 47 39 46 64 34 )], 'Lamentations' => [ qw( 22 22 66 22 22 )], 'Ezekiel' => [ qw( 28 10 27 17 17 14 27 18 11 22 25 28 23 23 08 63 24 32 14 49 32 31 49 27 17 21 36 26 21 26 18 32 33 31 15 38 28 23 29 49 26 20 27 31 25 24 23 35 )], 'Daniel' => [ qw( 21 49 30 37 31 28 28 27 27 21 45 13 )], 'Hosea' => [ qw( 11 23 05 19 15 11 16 14 17 15 12 14 16 09 )], 'Joel' => [ qw( 20 32 21 )], 'Amos' => [ qw( 15 16 15 13 27 14 17 14 15 )], 'Obadiah' => [ qw( 21 )], 'Jonah' => [ qw( 17 10 10 11 )], 'Micah' => [ qw( 16 13 12 13 15 16 20 )], 'Nahum' => [ qw( 15 13 19 )], 'Habakkuk' => [ qw( 17 20 19 )], 'Zephaniah' => [ qw( 18 15 20 )], 'Haggai' => [ qw( 15 23 )], 'Zechariah' => [ qw( 21 13 10 14 11 15 14 23 17 12 17 14 09 21 )], 'Malachi' => [ qw( 14 17 18 06 )], # New Testament 'Matthew' => [ qw( 25 23 17 25 48 34 29 34 38 42 30 50 58 36 39 28 27 35 30 34 46 46 39 51 46 75 66 20 )], 'Mark' => [ qw( 45 28 35 41 43 56 37 38 50 52 33 44 37 72 47 20)], 'Luke' => [ qw( 80 52 38 44 39 49 50 56 62 42 54 59 35 35 32 31 37 43 48 47 38 71 56 53 )], 'John' => [ qw( 51 25 36 54 47 71 53 59 41 42 57 50 38 31 27 33 26 40 42 31 25 )], 'Acts' => [ qw( 26 47 26 37 42 15 60 40 43 48 30 25 52 28 41 40 34 28 41 38 40 30 35 27 27 32 44 31 )], 'Romans' => [ qw(32 29 31 25 21 23 25 39 33 21 36 21 14 23 33 27)], '1 Corinthians' => [ qw(31 16 23 21 13 20 40 13 27 33 34 31 13 40 58 24) ], '2 Corinthians' => [ qw(24 17 18 18 21 18 16 24 15 18 33 21 14) ], 'Galatians' => [ qw(24 21 29 31 26 18) ], 'Ephesians' => [ qw(23 22 21 32 33 24) ], 'Philippians' => [ qw(30 30 21 23) ], 'Colossians' => [ qw(29 23 25 18) ], '1 Thessalonians' => [ qw(10 20 13 18 28) ], '2 Thessalonians' => [ qw(12 17 18) ], '1 Timothy' => [ qw(20 15 16 16 25 21) ], '2 Timothy' => [ qw(18 26 17 22) ], 'Titus' => [ qw(16 15 15) ], 'Philemon' => [ 25 ], 'Hebrews' => [ qw(14 18 19 16 14 20 28 13 28 39 40 29 25) ], 'James' => [ qw(27 26 18 17 30) ], '1 Peter' => [ qw(25 25 22 19 14) ], '2 Peter' => [ qw(21 22 18) ], '1 John' => [ qw(10 29 24 21 21)], '2 John' => [ 13 ], '3 John' => [ 15 ], 'Jude' => [ 25 ], 'Revelation' => [ qw( 20 29 22 11 14 17 17 13 21 11 19 17 18 20 08 21 18 24 21 15 27 21 )], ); my %abbrev = ( 'Genesis' => [ qw(ge gen) ], 'Exodus' => [ qw(ex exo exod) ], 'Leviticus' => [ qw(le lev) ], 'Numbers' => [ qw(nu num) ], 'Deuteronomy' => [ qw(de dt deu deut) ], 'Joshua' => [ qw(jos josh) ], 'Judges' => [ qw(judg jdg) ], 'Ruth' => [ qw(ru rut) ], '1 Samuel' => [ qr/\A1 ?Sam?\Z/i ], '2 Samuel' => [ qr/\A2 ?Sam?\Z/i ], '1 Kings' => [ qr/\A1 ?K(?:i|gs)\Z/i ], '2 Kings' => [ qr/\A2 ?K(?:i|gs)\Z/i ], '1 Chronicles' => [ qr/\A1 ?Ch(?:r(?:on)?)?\Z/i ], '2 Chronicles' => [ qr/\A2 ?Ch(?:r(?:on)?)?\Z/i ], 'Ezra' => [ qw(ezr) ], 'Nehemiah' => [ qw(ne neh) ], 'Esther' => [ qw(est esth) ], 'Job' => [ ], 'Psalms' => [ qw(ps psalm psa pss) ], 'Proverbs' => [ qw(pro prov) ], 'Ecclesiastes' => [ qw(ecc eccl qoh) ], 'Song of Solomon' => [ qr(ss so song sos cant canticles), "song of songs" ], 'Isaiah' => [ qw(is isa) ], 'Jeremiah' => [ 'jer' ], 'Lamentations' => [ qw(la lam) ], 'Ezekiel' => [ qw(eze ezek) ], 'Daniel' => [ qw(da dan) ], 'Hosea' => [ qw(ho hos) ], 'Joel' => [ ], 'Amos' => [ qw(am amo) ], 'Obadiah' => [ qw(ob obad oba) ], 'Jonah' => [ 'jon' ], 'Micah' => [ 'mic' ], 'Nahum' => [ qw(na nah) ], 'Habakkuk' => [ 'hab' ], 'Zephaniah' => [ qw(zep zeph) ], 'Haggai' => [ 'hag' ], 'Zechariah' => [ qw(zec zech) ], 'Malachi' => [ 'mal' ], # New Testament 'Matthew' => [ qr/\A(?:st\.\s*)?m(?:at)?t?\Z/i ], 'Mark' => [ qr/\A(?:st\.\s*)?m(?:ar)?k?\Z/i ], 'Luke' => [ qr/\A(?:st\.\s*)?lu?ke?\Z/i ], 'John' => [ qr/\A(?:st\.\s*)?j(?:oh)?n?\Z/i ], 'Acts' => [ qw(ac act) ], 'Romans' => [ qw(ro rom) ], '1 Corinthians' => [ qr/\A1 ?Co(?:r|rinth)?\Z/i ], '2 Corinthians' => [ qr/\A2 ?Co(?:r|rinth)?\Z/i ], 'Galatians' => [ qw(ga gal) ], 'Ephesians' => [ qw(ep eph) ], 'Philippians' => [ qw(php phil) ], 'Colossians' => [ qw(co col) ], '1 Thessalonians' => [ qr/\A1 ?Th(?:ess(?:allonians)?)?\Z/i ], '2 Thessalonians' => [ qr/\A2 ?Th(?:ess(?:allonians)?)?\Z/i ], '1 Timothy' => [ qr/\A1 ?Ti(?:m|mothy)?\Z/i ], '2 Timothy' => [ qr/\A2 ?Ti(?:m|mothy)?\Z/i ], 'Titus' => [ 'tit' ], 'Philemon' => [ qw(phm philem) ], 'Hebrews' => [ 'heb' ], 'James' => [ 'jas' ], '1 Peter' => [ qr/\A1 ?Pe(?:t(?:er)?)?\Z/i ], '2 Peter' => [ qr/\A2 ?Pe(?:t(?:er)?)?\Z/i ], '1 John' => [ qr/\A1 ?J(?:oh)?n\Z/i ], '2 John' => [ qr/\A2 ?J(?:oh)?n\Z/i ], '3 John' => [ qr/\A3 ?J(?:oh)?n\Z/i ], 'Jude' => [ 'jud' ], 'Revelation' => [ qw(re rev apoc apocalypse) ], ); my %short_form = ( 'Genesis' => 'Gen', 'Exodus' => 'Ex', 'Leviticus' => 'Lev', 'Numbers' => 'Num', 'Deuteronomy' => 'Deut', 'Joshua' => 'Josh', 'Judges' => 'Judg', 'Ruth' => 'Ruth', '1 Samuel' => '1 Sam', '2 Samuel' => '2 Sam', '1 Kings' => '1 Ki', '2 Kings' => '2 Ki', '1 Chronicles' => '1 Chr', '2 Chronicles' => '2 Chr', 'Ezra' => 'Ezra', 'Nehemiah' => 'Neh', 'Esther' => 'Esth', 'Job' => 'Job', 'Psalms' => 'Ps', 'Proverbs' => 'Prov', 'Ecclesiastes' => 'Ecc', 'Song of Solomon' => 'Song', 'Isaiah' => 'Is', 'Jeremiah' => 'Jer', 'Lamentations' => 'Lam', 'Ezekiel' => 'Ezek', 'Daniel' => 'Dan', 'Hosea' => 'Hos', 'Joel' => 'Joel', 'Amos' => 'Amos', 'Obadiah' => 'Obad', 'Jonah' => 'Jon', 'Micah' => 'Micah', 'Nahum' => 'Nahum', 'Habakkuk' => 'Hab', 'Zephaniah' => 'Zeph', 'Haggai' => 'Hag', 'Zechariah' => 'Zec', 'Malachi' => 'Mal', # New Testament 'Matthew' => 'Mt', 'Mark' => 'Mk', 'Luke' => 'Lk', 'John' => 'Jn', 'Acts' => 'Acts', 'Romans' => 'Rom', '1 Corinthians' => '1 Cor', '2 Corinthians' => '2 Cor', 'Galatians' => 'Gal', 'Ephesians' => 'Eph', 'Philippians' => 'Phi', 'Colossians' => 'Col', '1 Thessalonians' => '1 Th', '2 Thessalonians' => '2 Th', '1 Timothy' => '1 Tim', '2 Timothy' => '2 Tim', 'Titus' => 'Tit', 'Philemon' => 'Phm', 'Hebrews' => 'Heb', 'James' => 'Jas', '1 Peter' => '1 Pe', '2 Peter' => '2 Pe', '1 John' => '1 Jn', '2 John' => '2 Jn', '3 John' => '3 Jn', 'Jude' => 'Jude', 'Revelation' => 'Rev', ); sub _books { return { chapters => \%chapters, abbrev => \%abbrev, short_form => \%short_form, } } =head1 AUTHOR Ricardo Signes, C<< >> =head1 BUGS Please report any bugs or feature requests through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 COPYRIGHT Copyright 2005 Ricardo Signes, All Rights Reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1;