FM / Locale

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

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

Name	Size	Mode	Actions
Codes/	-	0755	rm
Maketext/	-	0755	rm
Codes.pm	24457	0644	edit dl rm
Codes.pod	11243	0644	edit dl rm
Country.pm	1493	0644	edit dl rm
Country.pod	5686	0644	edit dl rm
Currency.pm	1519	0644	edit dl rm
Currency.pod	3059	0644	edit dl rm
Language.pm	1519	0644	edit dl rm
Language.pod	3351	0644	edit dl rm
Maketext.pm	30446	0644	edit dl rm
Maketext.pod	51891	0644	edit dl rm
Script.pm	1467	0644	edit dl rm
Script.pod	3150	0644	edit dl rm

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

use strict;
use warnings;
use Exporter;

our $VERSION;
$VERSION='3.42';

our (@ISA,@EXPORT);

my $backend     = 'Locale::Codes::Currency';
my $backend_exp = $backend . "::EXPORT";

eval "require $backend; $backend->import(); return 1;";

{
   no strict 'refs';
   @EXPORT = @{ $backend_exp };
}

unshift (@ISA, $backend);

sub rename_currency            { Locale::Codes::Currency::rename_currency(@_) }
sub add_currency               { Locale::Codes::Currency::add_currency(@_) }
sub delete_currency            { Locale::Codes::Currency::delete_currency(@_) }
sub add_currency_alias         { Locale::Codes::Currency::add_currency_alias(@_) }
sub delete_currency_alias      { Locale::Codes::Currency::delete_currency_alias(@_) }
sub rename_currency_code       { Locale::Codes::Currency::rename_currency_code(@_) }
sub add_currency_code_alias    { Locale::Codes::Currency::add_currency_code_alias(@_) }
sub delete_currency_code_alias { Locale::Codes::Currency::delete_currency_code_alias(@_) }

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::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; use warnings; use Exporter; our $VERSION; $VERSION='3.42'; our (@ISA,@EXPORT); my $backend = 'Locale::Codes::Currency'; my $backend_exp = $backend . "::EXPORT"; eval "require $backend; $backend->import(); return 1;"; { no strict 'refs'; @EXPORT = @{ $backend_exp }; } unshift (@ISA, $backend); sub rename_currency { Locale::Codes::Currency::rename_currency(@_) } sub add_currency { Locale::Codes::Currency::add_currency(@_) } sub delete_currency { Locale::Codes::Currency::delete_currency(@_) } sub add_currency_alias { Locale::Codes::Currency::add_currency_alias(@_) } sub delete_currency_alias { Locale::Codes::Currency::delete_currency_alias(@_) } sub rename_currency_code { Locale::Codes::Currency::rename_currency_code(@_) } sub add_currency_code_alias { Locale::Codes::Currency::add_currency_code_alias(@_) } sub delete_currency_code_alias { Locale::Codes::Currency::delete_currency_code_alias(@_) } 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: