Pangloss::Language - a language in Pangloss.

  use Pangloss::Language qw( dirRTL dirLTR );
  my $language = new Pangloss::Language();

  $language->name( $text )
           ->iso_code( $text )
           ->direction( dirRTL )
           ->creator( $user )
           ->notes( $text )
           ->date( time )
           ->validate;

  # catch Pangloss::Language::Errors

  do { ... } if $language->is_ltr();

This class represents a language in Pangloss.

It inherits from Pangloss::StoredObject::Common and Pangloss::Collection::Item.

Exports two constants on request for use with language direction:

  dir_LTR (left to right)
  dir_RTL (right to left)

$obj->iso_code()

set/get ISO code.

$obj->direction()

set/get language direction.

$bool = $obj->is_ltr(), $obj->is_rtl()

test if the language direction is the above.

Steve Purkis <spurkis@quiup.com>

Pangloss, Pangloss::Language::Error, Pangloss::Languages