File Coverage

blib/lib/DateTime/Calendar/Coptic/Language.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package DateTime::Calendar::Coptic::Language;
use base ( "DateTime::Language" );

BEGIN
{

use strict;
use vars qw ( $VERSION );


foreach my $set ( [ 'ar', 'ara'                 => 'Arabic' ],
                  [ 'cop'                       => 'Coptic' ]
             )
{
    my $module = pop @$set;
    @DateTime::Language::ISOMap{ @$set } = ($module) x @$set;
}

	# print "Module: $DateTime::Language::ISOMap{cop}\n";
	# print DateTime::Language->iso_codes, "\n";

}


sub class_base
{
	"DateTime::Calendar::Coptic::Language";
}

1;
__END__