File Coverage

lib/Locale/Codes/Language.pm
Criterion Covered Total %
statement 33 34 97.0
branch n/a
condition n/a
subroutine 20 21 95.2
pod 15 15 100.0
total 68 70 97.1


line stmt bran cond sub pod time code
1             package Locale::Codes::Language;
2             # Copyright (C) 2001 Canon Research Centre Europe (CRE).
3             # Copyright (C) 2002-2009 Neil Bowers
4             # Copyright (c) 2010-2023 Sullivan Beck
5             # This program is free software; you can redistribute it and/or modify it
6             # under the same terms as Perl itself.
7              
8             # This file was automatically generated. Any changes to this file will
9             # be lost the next time 'gen_mods' is run.
10             # Generated on: Tue Aug 29 10:59:57 EDT 2023
11              
12 1     1   4760 use strict;
  1         2  
  1         29  
13 1     1   4 use warnings;
  1         2  
  1         31  
14             require 5.006;
15 1     1   5 use Exporter qw(import);
  1         1  
  1         56  
16              
17             our($VERSION,@EXPORT);
18             $VERSION = '3.75';
19              
20             ################################################################################
21 1     1   637 use if $] >= 5.027007, 'deprecate';
  1         13  
  1         6  
22 1     1   481 use Locale::Codes;
  1         2  
  1         58  
23 1     1   6 use Locale::Codes::Constants;
  1         2  
  1         615  
24              
25             @EXPORT = qw(
26             code2language
27             code2languages
28             language2code
29             all_language_codes
30             all_language_names
31             language_code2code
32             );
33             push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGUAGE);
34              
35             our $obj = new Locale::Codes('language');
36             $obj->show_errors(0);
37              
38             sub show_errors {
39 1     1 1 121 my($val) = @_;
40 1         4 $obj->show_errors($val);
41             }
42              
43             sub code2language {
44 46     46 1 7954 return $obj->code2name(@_);
45             }
46              
47             sub code2languages {
48 0     0 1 0 return $obj->code2names(@_);
49             }
50              
51             sub language2code {
52 13     13 1 2247 return $obj->name2code(@_);
53             }
54              
55             sub language_code2code {
56 1     1 1 178 return $obj->code2code(@_);
57             }
58              
59             sub all_language_codes {
60 1     1 1 325 return $obj->all_codes(@_);
61             }
62              
63             sub all_language_names {
64 1     1 1 52998 return $obj->all_names(@_);
65             }
66              
67             sub rename_language {
68 5     5 1 961 return $obj->rename_code(@_);
69             }
70              
71             sub add_language {
72 1     1 1 234 return $obj->add_code(@_);
73             }
74              
75             sub delete_language {
76 1     1 1 192 return $obj->delete_code(@_);
77             }
78              
79             sub add_language_alias {
80 1     1 1 578 return $obj->add_alias(@_);
81             }
82              
83             sub delete_language_alias {
84 1     1 1 203 return $obj->delete_alias(@_);
85             }
86              
87             sub rename_language_code {
88 1     1 1 245 return $obj->replace_code(@_);
89             }
90              
91             sub add_language_code_alias {
92 1     1 1 206 return $obj->add_code_alias(@_);
93             }
94              
95             sub delete_language_code_alias {
96 1     1 1 205 return $obj->delete_code_alias(@_);
97             }
98              
99             1;