Religion::Bible::Reference::Standard - standard bible books and abbreviations

use warnings;
use strict;
package Religion::Bible::Reference::Standard;

our $VERSION = '0.012';

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,
  }
}

1;