FM / Codes

/snap/gh/502/usr/share/perl/5.26.1/Locale/Codes/

/snap/gh/502/usr/share/perl/5.26.1/Locale/Codes

Name	Size	Mode	Actions
API.pod	11408	0644	edit dl rm
Changes.pod	21730	0644	edit dl rm
Constants.pm	5087	0644	edit dl rm
Country.pm	2329	0644	edit dl rm
Country.pod	5763	0644	edit dl rm
Country_Codes.pm	251460	0644	edit dl rm
Country_Retired.pm	28660	0644	edit dl rm
Currency.pm	2293	0644	edit dl rm
Currency.pod	3129	0644	edit dl rm
Currency_Codes.pm	51112	0644	edit dl rm
Currency_Retired.pm	7526	0644	edit dl rm
LangExt.pm	2126	0644	edit dl rm
LangExt.pod	2799	0644	edit dl rm
LangExt_Codes.pm	50918	0644	edit dl rm
LangExt_Retired.pm	614	0644	edit dl rm
LangFam.pm	2126	0644	edit dl rm
LangFam.pod	2721	0644	edit dl rm
LangFam_Codes.pm	24888	0644	edit dl rm
LangFam_Retired.pm	413	0644	edit dl rm
Language.pm	2328	0644	edit dl rm
Language.pod	3421	0644	edit dl rm
Language_Codes.pm	1602801	0644	edit dl rm
Language_Retired.pm	19272	0644	edit dl rm
LangVar.pm	2127	0644	edit dl rm
LangVar.pod	2865	0644	edit dl rm
LangVar_Codes.pm	20751	0644	edit dl rm
LangVar_Retired.pm	872	0644	edit dl rm
Script.pm	2229	0644	edit dl rm
Script.pod	3220	0644	edit dl rm
Script_Codes.pm	58926	0644	edit dl rm
Script_Retired.pm	3320	0644	edit dl rm

Edit: /snap/gh/502/usr/share/perl/5.26.1/Locale/Codes/Currency.pm (2293B)

use strict;
require 5.006;
use warnings;

require Exporter;
use Carp;
use Locale::Codes;
use Locale::Codes::Constants;
use Locale::Codes::Currency_Codes;
use Locale::Codes::Currency_Retired;

#=======================================================================
#       Public Global Variables
#=======================================================================

our($VERSION,@ISA,@EXPORT,@EXPORT_OK);

$VERSION='3.42';
@ISA       = qw(Exporter);
@EXPORT    = qw(code2currency
                currency2code
                all_currency_codes
                all_currency_names
                currency_code2code
                LOCALE_CURR_ALPHA
                LOCALE_CURR_NUMERIC
               );

sub code2currency {
   return Locale::Codes::_code2name('currency',@_);
}

sub currency2code {
   return Locale::Codes::_name2code('currency',@_);
}

sub currency_code2code {
   return Locale::Codes::_code2code('currency',@_);
}

sub all_currency_codes {
   return Locale::Codes::_all_codes('currency',@_);
}

sub all_currency_names {
   return Locale::Codes::_all_names('currency',@_);
}

sub rename_currency {
   return Locale::Codes::_rename('currency',@_);
}

sub add_currency {
   return Locale::Codes::_add_code('currency',@_);
}

sub delete_currency {
   return Locale::Codes::_delete_code('currency',@_);
}

sub add_currency_alias {
   return Locale::Codes::_add_alias('currency',@_);
}

sub delete_currency_alias {
   return Locale::Codes::_delete_alias('currency',@_);
}

sub rename_currency_code {
   return Locale::Codes::_rename_code('currency',@_);
}

sub add_currency_code_alias {
   return Locale::Codes::_add_code_alias('currency',@_);
}

sub delete_currency_code_alias {
   return Locale::Codes::_delete_code_alias('currency',@_);
}

1;
# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: 0
# End:

package Locale::Codes::Currency; # Copyright (C) 2001 Canon Research Centre Europe (CRE). # Copyright (C) 2002-2009 Neil Bowers # Copyright (c) 2010-2016 Sullivan Beck # This program is free software; you can redistribute it and/or modify it # under the same terms as Perl itself. use strict; require 5.006; use warnings; require Exporter; use Carp; use Locale::Codes; use Locale::Codes::Constants; use Locale::Codes::Currency_Codes; use Locale::Codes::Currency_Retired; #======================================================================= # Public Global Variables #======================================================================= our($VERSION,@ISA,@EXPORT,@EXPORT_OK); $VERSION='3.42'; @ISA = qw(Exporter); @EXPORT = qw(code2currency currency2code all_currency_codes all_currency_names currency_code2code LOCALE_CURR_ALPHA LOCALE_CURR_NUMERIC ); sub code2currency { return Locale::Codes::_code2name('currency',@_); } sub currency2code { return Locale::Codes::_name2code('currency',@_); } sub currency_code2code { return Locale::Codes::_code2code('currency',@_); } sub all_currency_codes { return Locale::Codes::_all_codes('currency',@_); } sub all_currency_names { return Locale::Codes::_all_names('currency',@_); } sub rename_currency { return Locale::Codes::_rename('currency',@_); } sub add_currency { return Locale::Codes::_add_code('currency',@_); } sub delete_currency { return Locale::Codes::_delete_code('currency',@_); } sub add_currency_alias { return Locale::Codes::_add_alias('currency',@_); } sub delete_currency_alias { return Locale::Codes::_delete_alias('currency',@_); } sub rename_currency_code { return Locale::Codes::_rename_code('currency',@_); } sub add_currency_code_alias { return Locale::Codes::_add_code_alias('currency',@_); } sub delete_currency_code_alias { return Locale::Codes::_delete_code_alias('currency',@_); } 1; # Local Variables: # mode: cperl # indent-tabs-mode: nil # cperl-indent-level: 3 # cperl-continued-statement-offset: 2 # cperl-continued-brace-offset: 0 # cperl-brace-offset: 0 # cperl-brace-imaginary-offset: 0 # cperl-label-offset: 0 # End: