view release on metacpan or  search on metacpan

t/10-run.t  view on Meta::CPAN

		files          => $files,
		commit_message => '',
		# This test should show "Aborting commit due to empty commit message" but
		# not a line starting with "x " which would indicate that the git hook is
		# still active. Because this git message is language-dependent based on the
		# locale of the user, we can only test the negative lookahead of the latter.
		expected       => qr/^(?!x )/,
		exit_status    => 1,
	},
	{
		name           => 'Non-empty commit message without ticket ID.',

 view release on metacpan or  search on metacpan

lib/App/Glacier/Command/Jobs.pm  view on Meta::CPAN

B<glacier jobs>
[B<-cl>]
[B<--cached>]    
[B<--long>]    
[B<--time-style=>B<default>|B<full-iso>|B<long-iso>|B<iso>|B<locale>|B<+I<FORMAT>>]
[I<VAULT>...]
    
=head1 DESCRIPTION

Verifies and lists pending and completed glacier jobs.  By default, all jobs

lib/App/Glacier/Command/Jobs.pm  view on Meta::CPAN

B<GNU ls>-compatible "iso": ISO 8601 dates for non-recent timestamps (e.g.,
"2017-05-23"), and ISO 8601 month, day, hour, and minute for recent
timestamps (e.g., "03-30 23:45").  Timestamp is considered "recent", if it
is not older than 6 months ago.    

=item B<locale>

List timestamps in a locale-dependent form.  This is equivalent to B<+%c>.

=back

=back

 view release on metacpan or  search on metacpan

README.gpt5-FR.md  view on Meta::CPAN

Vous pouvez facilement utiliser ce module depuis la ligne de commande en utilisant la commande `xlate` incluse dans la distribution. Voir la page de manuel `xlate` pour l’utilisation.

La commande `xlate` prend en charge les options longues au format GNU telles que `--to-lang`, `--from-lang`, `--engine` et `--file`. Utilisez `xlate -h` pour afficher toutes les options disponibles.

La commande `xlate` fonctionne de concert avec l’environnement Docker, donc même si vous n’avez rien installé localement, vous pouvez l’utiliser tant que Docker est disponible. Utilisez l’option `-D` ou `-C`.

Les opérations Docker sont gérées par [App::dozo](https://metacpan.org/pod/App%3A%3Adozo), qui peut également être utilisé comme commande autonome. La commande `dozo` prend en charge le fichier de configuration `.dozorc` pour des paramètres de...

De plus, comme des makefiles pour divers styles de documents sont fournis, la traduction vers d’autres langues est possible sans spécification particulière. Utilisez l’option `-M`.

 view release on metacpan or  search on metacpan

lib/App/I18N.pm  view on Meta::CPAN

sub guess_podir {
    my ($class,$cmd) = @_;
    my $podir;
    $podir = 'po' if -e 'po';
    $podir = 'locale' , $cmd->{locale} = 1 if -e 'locale';
    $podir ||= 'locale' if $cmd->{locale};
    $podir ||= 'po';
    return $podir;
}

sub get_po_path {
    my ( $self, $podir, $lang, $is_locale ) = @_;
    my $pot_name = App::I18N->pot_name;
    my $path;
    if ($is_locale) {
        $path = File::Spec->join( $podir, $lang . ".po" );
    }
    else {
        $path = File::Spec->join( $podir, 'locale', $lang, 'LC_MESSAGES', $pot_name . ".po" );
    }
    return $path;
}

sub update_catalogs {

lib/App/I18N.pm  view on Meta::CPAN

    $ po parse lib

    ... do translation again ...

### Generate locale and mo file for php-gettext or anyother gettext i18n app:

parse strings from `.` path and use --locale (locale directory structure):

    $ cd app
    $ po parse --locale .

this will generate:
    
    po/app.pot

please modify the CHARSET in po/app.pot.

    ... modify CHARSET ...

create new language file (po file and mo file) in locale directory structure:

    $ po lang  --locale en
    $ po lang  --locale zh_TW

this will generate:

    po/en/LC_MESSAGES/app.po
    po/en/LC_MESSAGES/app.mo

lib/App/I18N.pm  view on Meta::CPAN

    ... do translation here ...

if you use mo file , you might need to update mo file.

    $ po update --locale

eg:

    -project (master) % po update --mo --podir locale
        Updating locale/zh_TW/LC_MESSAGES/project.po
        Updating locale/zh_TW/LC_MESSAGES/project.mo
        9 translated messages, 53 untranslated messages.

Note that if you have `po` or `locale` directory exists, then it will be the default po directory.

And `locale` directory will enable `--locale` option.

## Show Translation Status

    $ po status

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "Perinci::Sub::Util" : "0.470",
         "Perinci::Sub::Util::Args" : "0.470",
         "Perinci::Sub::Util::ResObj" : "0.470",
         "Perinci::Sub::Util::Sort" : "0.470",
         "Perinci::Sub::Wrapper" : "0.851",
         "PerlIO::locale" : "0.10",
         "Proc::ChildError" : "0.04",
         "Progress::Any" : "0.219",
         "Progress::Any::Output" : "0.219",
         "Progress::Any::Output::Null" : "0.219",
         "Progress::Any::Output::TermProgressBarColor" : "0.249",

 view release on metacpan or  search on metacpan

lib/App/IndonesianLocaleUtils.pm  view on Meta::CPAN

our $DATE = '2024-09-30'; # DATE
our $DIST = 'App-IndonesianLocaleUtils'; # DIST
our $VERSION = '0.021'; # VERSION

1;
# ABSTRACT: CLIs related to Indonesian locale

__END__

=pod

=encoding UTF-8

=head1 NAME

App::IndonesianLocaleUtils - CLIs related to Indonesian locale

=head1 VERSION

This document describes version 0.021 of App::IndonesianLocaleUtils (from Perl distribution App-IndonesianLocaleUtils), released on 2024-09-30.

=head1

This distribution contains several CLI's related to Indonesian locale:

=over

=item * L<list-idn-localities>

 view release on metacpan or  search on metacpan

lib/App/InvestSim/GUI.pm  view on Meta::CPAN

# All entry aligned in a column should have the same width (in number of
# characters), for simplicity we are using the same width everywhere.
use constant ENTRY_WIDTH => 10;

my $cldr = CLDR::Number->new(locale => 'fr-FR');
my $cldr_currency = $cldr->currency_formatter(currency_code => 'EUR', maximum_fraction_digits => 0);
my $cldr_percent = $cldr->percent_formatter(minimum_fraction_digits => 1);
my $cldr_decimal = $cldr->decimal_formatter();

sub format_euro {

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

1.32 2014-08-04
  [ Damyan Ivanov ]
  * bot: store real path to the pid directory
  * bot: remove PID file on exit
  * fix utf-8 locale detection in 50-client.t
  * TestBot: test helper module for running a real bot for tests
  * 50-client.t: check real bot output
  * TestBot: report bot PID when starting/stopping
  * convert 52-client-git to TestBot
  * fix detection of common changes path when using msg_template

 view release on metacpan or  search on metacpan

lib/App/Kit.pm  view on Meta::CPAN

=head2 use default objects or set your own

The defaults will work and as your project expands you can customize if needed without needing to refactor your code. 

For example, once you sprint the localization setup, you can change your class’s locale() to use your object.

=head2 easy mocking (for your tests!)

By default the lazy façade methods are readonly (technically 'rwp' so the class can fiddle with them internally if it needs to).

lib/App/Kit.pm  view on Meta::CPAN

=head3 $app->log

Lazy façade to a logging object via L<App::Kit::Role::Log>.

=head3 $app->locale

Lazy façade to a maketext() object via L<App::Kit::Role::Locale>. 

Has all the methods any L<Locale::Maketext::Utils> based object would have.

 view release on metacpan or  search on metacpan

lib/App/LXC/Container.pm  view on Meta::CPAN

=over

=item fontconfig-config (select C</usr/share/fontconfig>)

=item locales (select C</usr/share/locale/locale.alias>)

=back

=head2 additional bind mounts

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

 [ Documentation ]
 - update TODOs

 [ Test Suite ]
 - drop unused function is_licensed_like_scancode
 - tighten encode.t (still fails with non-UTF-8 locales)
 - update author tests related to ZPL since Regexp::Pattern::License
   v3.1.102
 - update tests
 - use List::SomeUtils (not List::MoreUtils)
 - use Test2::V0

Changes  view on Meta::CPAN

 [ Bug Fixes ]
 - Add missing newline when no arguments
 - fix: detect creative commons dual-version-licensing (not misdetect as
   same version twice)
 - support non-utf8 locale

 [ Test Suite ]
 - Isolate and extend encoding tests.
 - adapt author testsuite for improved detection (and few minor
   regressions) since Regexp::Pattern::License v3.1.95

 view release on metacpan or  search on metacpan

lib/App/LocaleCodesUtils.pm  view on Meta::CPAN

    return [404, "Unknown or non-unique code '$code'"] unless defined $code2;
    [200, "OK", $code2];
}

1;
# ABSTRACT: Utilities related to locale codes

__END__

=pod

=encoding UTF-8

=head1 NAME

App::LocaleCodesUtils - Utilities related to locale codes

=head1 VERSION

This document describes version 0.004 of App::LocaleCodesUtils (from Perl distribution App-LocaleCodesUtils), released on 2023-08-06.

 view release on metacpan or  search on metacpan

lib/App/LocaleTextDomainUtils.pm  view on Meta::CPAN

        schema => 'str*',
        pos => 0,
    },
);

$SPEC{list_localedata_dirs} = {
    v => 1.1,
    summary => 'Print list of LocaleData directories to be used to search for *.mo files',
    description => <<'_',

If search_dirs is specified, then will use search_dirs.

Otherwise, will use:

    dist_dir($textdomain) + ("/locale", "/LocaleData")
    @INC + "/LocaleData"
    default ("/usr/share/locale" OR "/usr/local/share/locale") + "/LocaleData"

_
    args => {
        %args_common,
    },
    result_naked => 1,
};
sub list_localedata_dirs {
    my %args = @_;

    my @res;

    if ($args{search_dirs} && @{ $args{search_dirs} }) {

lib/App/LocaleTextDomainUtils.pm  view on Meta::CPAN

            my $sharedir = eval {
                require File::ShareDir;
                File::ShareDir::dist_dir($args{textdomain});
            };
            if ($sharedir) {
                push @res, "$sharedir/locale", "$sharedir/LocaleData";
            }
        }

        # @INC
        for (@INC) {
            push @res, "$_/LocaleData" unless ref $_;
        }

        # default dir
        for ("/usr/share/locale", "/usr/local/share/locale") {
            if (-d $_) {
                push @res, "$_/LocaleData";
                last;
            }
        }

lib/App/LocaleTextDomainUtils.pm  view on Meta::CPAN

$SPEC{list_mo_files} = {
    v => 1.1,
    summary => 'List .mo files',
    description => <<'_',

Will look for inside each localedata dirs.

_
    args => {
        %args_common,
    },

lib/App/LocaleTextDomainUtils.pm  view on Meta::CPAN

};
sub list_mo_files {
    my %args = @_;
    my $textdomain = $args{textdomain};

    my $localedata_dirs = list_localedata_dirs(%args);

    my @res;
    for my $dir (@$localedata_dirs) {
        if (defined $textdomain) {
            push @res, glob("$dir/*/LC_MESSAGES/$textdomain.mo");
        } else {
            push @res, glob("$dir/*/LC_MESSAGES/*.mo");
        }

lib/App/LocaleTextDomainUtils.pm  view on Meta::CPAN

This distributions provides the following command-line utilities:

=over

=item * L<list-localedata-dirs>

=item * L<list-mo-files>

=back

=head1 FUNCTIONS


=head2 list_localedata_dirs

Usage:

 list_localedata_dirs(%args) -> any

Print list of LocaleData directories to be used to search for *.mo files.

If search_dirs is specified, then will use search_dirs.

Otherwise, will use:

 dist_dir($textdomain) + ("/locale", "/LocaleData")
 @INC + "/LocaleData"
 default ("/usr/share/locale" OR "/usr/local/share/locale") + "/LocaleData"

This function is not exported.

Arguments ('*' denotes required arguments):

lib/App/LocaleTextDomainUtils.pm  view on Meta::CPAN

 list_mo_files(%args) -> any

List .mo files.

Will look for inside each localedata dirs.

This function is not exported.

Arguments ('*' denotes required arguments):

 view release on metacpan or  search on metacpan

Field008.pm  view on Meta::CPAN

		print STDERR "Usage: $0 [-a] [-d] [-f marc_xml_file] [-h] [-l lang_code] [-v] [--version] [leader_string field008_string]\n";
		print STDERR "\t-a\t\t\t\tPrint with ANSI colors (or use NO_COLOR/COLOR env variables).\n";
		print STDERR "\t-d\t\t\t\tDon't print description.\n";
		print STDERR "\t-f marc_xml_file\t\tMARC XML file.\n";
		print STDERR "\t-h\t\t\t\tPrint help.\n";
		print STDERR "\t-l lang_code\t\t\tISO 639-1 language code (default is from locales).\n";
		print STDERR "\t-v\t\t\t\tVerbose mode.\n";
		print STDERR "\t--version\t\t\tPrint version.\n";
		print STDERR "\t[leader_string field008_string]\tMARC leader and field 008 strings.\n";
		return 1;
	}

 view release on metacpan or  search on metacpan

Leader.pm  view on Meta::CPAN

		print STDERR "Usage: $0 [-a] [-d] [-f marc_xml_file] [-h] [-l lang_code] [-v] [--version] [leader_string]\n";
		print STDERR "\t-a\t\t\tPrint with ANSI colors (or use NO_COLOR/COLOR env variables).\n";
		print STDERR "\t-d\t\t\tDon't print description.\n";
		print STDERR "\t-f marc_xml_file\tMARC XML file.\n";
		print STDERR "\t-h\t\t\tPrint help.\n";
		print STDERR "\t-l lang_code\t\tISO 639-1 language code (default is from locales).\n";
		print STDERR "\t-v\t\t\tVerbose mode.\n";
		print STDERR "\t--version\t\tPrint version.\n";
		print STDERR "\t[leader_string]\t\tMARC Leader string.\n";
		return 1;
	}

 view release on metacpan or  search on metacpan

share/js/core/qunit-2.4.0.js  view on Meta::CPAN

  			if (moduleObj.name) {
  				modulesList.push(moduleObj.name);
  			}
  		}
  		modulesList.sort(function (a, b) {
  			return a.localeCompare(b);
  		});

  		// Initialize QUnit elements
  		appendInterface();
  		appendTestsList(details.modules);

 view release on metacpan or  search on metacpan

share/public_html/static/music_inc/src/dr_flac.h  view on Meta::CPAN

    #endif
        (void)pAllocationCallbacks;
    }
#else
    /*
    Use fopen() on anything other than Windows. Requires a conversion. This is annoying because fopen() is locale specific. The only real way I can
    think of to do this is with wcsrtombs(). Note that wcstombs() is apparently not thread-safe because it uses a static global mbstate_t object for
    maintaining state. I've checked this with -std=c89 and it works, but if somebody get's a compiler error I'll look into improving compatibility.
    */
    {
        mbstate_t mbs;

 view release on metacpan or  search on metacpan

lib/App/MaMGal.pm  view on Meta::CPAN

sub init
{
	my $self = shift;

	my $logger = App::MaMGal::Logger->new(FileHandle->new_from_fd('STDERR', 'w'));
	my $locale_env;
	if (@_) {
		$locale_env = App::MaMGal::LocaleEnv->new($logger);
		$locale_env->set_locale($_[0]);
		textdomain('mamgal');
	} else {
		$locale_env = App::MaMGal::LocaleEnv->new($logger);
	}
	my $formatter = App::MaMGal::Formatter->new($locale_env);
	my $command_checker = App::MaMGal::CommandChecker->new;
	my $mplayer_wrapper = App::MaMGal::MplayerWrapper->new($command_checker);
	my $datetime_parser = Image::EXIF::DateTime::Parser->new;
	my $image_info_factory = App::MaMGal::ImageInfoFactory->new($datetime_parser, $logger);
	my $entry_factory = App::MaMGal::EntryFactory->new($formatter, $mplayer_wrapper, $image_info_factory, $logger);

 view release on metacpan or  search on metacpan

lib/App/MonM/Notifier/Monotifier.pm  view on Meta::CPAN

        # Stash
        my $exp = $info{expired} || 0;
        $tbl->row("Id", $id);
        $tbl->row("To", $info{to} // '');
        $tbl->row("Channel", $info{channel} // '');
        $tbl->row("Subject", encode( locale => $info{subject} // '' ));
        $tbl->row("Status", $info{status} // '');
        $tbl->row("Published", $info{published} ? dtf(DATE_FORMAT, $info{published}) : '');
        $tbl->row("Scheduled", $info{scheduled} ? dtf(DATE_FORMAT, $info{scheduled}) : '');
        $tbl->row("Expired", dtf(DATE_FORMAT, $exp)) if $exp;
        $tbl->row("Sent", dtf(DATE_FORMAT, $info{sent})) if $info{sent};
        $tbl->row("Attempt", $info{attempt}) if $info{attempt};
        $tbl->row("Errcode", $info{errcode} // 0);
        $tbl->row("Errmsg", encode( locale => $info{errmsg} // '' ));
        $tbl->hr;
        $tbl->row("SUMMARY", ($exp < time) ? "EXPIRED" : $info{status} // '');
        say $tbl->draw();

        # Show attributes (dump)

lib/App/MonM/Notifier/Monotifier.pm  view on Meta::CPAN

            print(explain($info{attributes}));
            print "\n";

            # Show message
            printf("%s BEGIN MESSAGE ~~~\n", "~" x (SCREENWIDTH()-18));
            say encode( locale => $info{message} // '' );
            printf("%s END MESSAGE ~~~\n", "~" x (SCREENWIDTH()-16));
        }
    } else {
        my @table = $store->getAll(ROWS_LIMIT);
        return $self->raise($store->error) if $store->error;

lib/App/MonM/Notifier/Monotifier.pm  view on Meta::CPAN

        foreach my $rec (sort {$a->[0] <=> $b->[0]} @table) {
            $tbl->row(
                $rec->[0] // 0, # id
                variant_stf($rec->[1] // '', 20), # to
                variant_stf($rec->[2] // '', 20), # channel
                variant_stf(encode( locale => $rec->[3] // '' ), 32), # subject
                $rec->[11] // '', # status
                $rec->[12] // 0, # errcode
            );
            push @errors, $rec->[13] if $rec->[12];
        }

 view release on metacpan or  search on metacpan

script/mowyw  view on Meta::CPAN

directory.

=item --encoding

Interpret all input files to have that encoding. Defaults to UTF-8.
(Conjecture: should default to the current locale... what to do?).

=back

All options except C<--make> can be specified in a config file, with more
customization options.

script/mowyw  view on Meta::CPAN

Syntax hilighting requires vim (see L<http://www.vim.org/>) and
L<Text::VimColor> to be installed
(otherwise the code is just HTML escaped, not hilighted).

Since you can't tell vim which encoding a source file is in,
non-ASCII-characters might not survive the round trip to vim if the locales
don't fit. On my systems UTF-8 locales worked, everything else didn't. So use
with caution.

=head1 OPTIONS

Currently only two options are supported, C<no-header> and C<no-footer>.

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

  * Minor improvements to process termination code

### 2013-12-08 v1.101

  * Fixed: CPAN install was failing for non-English locales due to brittle test related to new FSM (introduced in 1.100)
  Also error message when reading from file failed in the middle of transfer was wrong for non-English locales.

  * Added validation - max allowed by Amazon --partsize is 4096 Mb

  * Fixed: --check-max-file-size option validation upper limit was wrong. Was: 40 000 000 Mb; Fixed: 4 096 0000 Mb

ChangeLog  view on Meta::CPAN

### 2013-08-31 v1.050

  * Optimized Journal memory usage by 12%

  * Fixed: system error messages (i.e. ERRNO - like Permission denied etc) where clobbered on non-English locales (i.e.
  when message is not ASCII-7bit). Error messages and check-local-hash output were affected.

  * CPAN/Cosmetic: testsuite does not produce strings which looks like a warnings anymore.

### 2013-08-27 v1.000

 view release on metacpan or  search on metacpan

script/wxchordpro.pl  view on Meta::CPAN

    return 1;
}

# No localisation yet.
# my $locale = Wx::Locale->new("English", "en", "en_US");
# $locale->AddCatalog("wxchordpro");

my $m = main->new();
$m->MainLoop();

################ Subroutines ################

 view release on metacpan or  search on metacpan

lib/ChordPro/Output/Common.pm  view on Meta::CPAN

use feature qw( state );
use ChordPro::Chords;
use ChordPro::Utils qw( demarkup is_true plural );
use String::Interpolate::Named;
use utf8;
use POSIX qw(setlocale LC_TIME strftime);
use Ref::Util qw( is_arrayref );
use File::LoadLines ();
use Encode qw( encode_utf8 );

use Exporter 'import';

lib/ChordPro/Output/Common.pm  view on Meta::CPAN

    if ( $config->{user} ) {
	$m->{user} = [ $config->{user}->{name} ];
	$m->{"user.name"} = [ $config->{user}->{name} ];
	$m->{"user.fullname"} = [ $config->{user}->{fullname} ];
    }
    setlocale( LC_TIME, "" );
    $m->{today} //= strftime( $config->{dates}->{today}->{format},
			      localtime(time) );
    $m->{chordpro} = "ChordPro";
    $m->{"chordpro.version"} = $ChordPro::VERSION;
    for ( keys %{ $config->{settings} } ) {

 view release on metacpan or  search on metacpan

public/javascripts/ace/ext-language_tools.js  view on Meta::CPAN

        this.filterText = str;
        matches = this.filterCompletions(matches, this.filterText);
        matches = matches.sort(function(a, b) {
            return b.exactMatch - a.exactMatch || b.$score - a.$score 
                || (a.caption || a.value).localeCompare(b.caption || b.value);
        });
        var prev = null;
        matches = matches.filter(function(item){
            var caption = item.snippet || item.caption || item.value;
            if (caption === prev) return false;

 view release on metacpan or  search on metacpan

lib/App/NDTools/NDTool.pm  view on Meta::CPAN

sub new {
    my $self = bless {}, shift;

    $self->{OPTS} = $self->defaults();
    $self->{ARGV} =
        [ map { decode(locale => "$_", Encode::FB_CROAK) } @_ ? @_ : @ARGV ];

    $self->{TTY} = -t STDOUT;

    unless (GetOptionsFromArray ($self->{ARGV}, $self->arg_opts)) {
        $self->usage;

 view release on metacpan or  search on metacpan

lib/App/Netdisco.pm  view on Meta::CPAN

 curl -L https://cpanmin.us/ | perl - --notest --local-lib ~/perl5 App::Netdisco

Link some of the newly installed apps into a handy location:

 mkdir ~/bin
 ln -s ~/perl5/bin/{localenv,netdisco-*} ~/bin/

Test the installation by running the following command, which should only
produce a status message (it's just a test - you'll start the daemons
properly, later on):

lib/App/Netdisco.pm  view on Meta::CPAN

Always review the latest L<Release Notes|https://github.com/netdisco/netdisco/wiki/Release-Notes>.
Then the process below should be run for each installation:

 # upgrade Netdisco
 ~/bin/localenv cpanm --notest App::Netdisco
 ln -sf ~/perl5/bin/{localenv,netdisco-*} ~/bin/
 
 # apply database schema updates, update MIBs and Vendor MACs
 ~/bin/netdisco-deploy
 
 # restart web service (if you run it)

lib/App/Netdisco.pm  view on Meta::CPAN

Netdisco 1.x had support for a topology information file to fill in device
port relations which could not be discovered. This is now stored in the
database (and edited in the web interface). To import a legacy topology file,
run:

 ~/bin/localenv nd-import-topology /path/to/netdisco-topology.txt

=head2 Database API

Bundled with this distribution is a L<DBIx::Class> layer for the Netdisco
database. This abstracts away all the SQL into an elegant, re-usable OO

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

1.007   2016-09-16 02:26:28Z
        - fix handling of filename option in the Gist command (Zakariyya
          Mughal, PR#13)

1.006   2016-05-24 02:55:20Z
        - fix failing tests with other locales, environment settings

1.005   2016-05-20 02:39:52Z
        - mark App::Nopaste::Service::Codepeek as deprecated in metadata
        - the Gist command also looks in ~/.github for credentials
        - many additional tests; thanks David J. Shultz!

 view release on metacpan or  search on metacpan

bin/otrs.CreateTicket.pl  view on Meta::CPAN

our $VERSION = '1.16';

print "$0 version $VERSION \n\n";

@ARGV = map { decode(locale => $_, 1) } @ARGV if -t STDIN;
binmode STDOUT, ":encoding(console_out)" if -t STDOUT;
binmode STDERR, ":encoding(console_out)" if -t STDERR;

my @TicketFields
    = qw ( Title CustomerUser Queue Priority State Type Service SLA Owner Responsible );

 view release on metacpan or  search on metacpan

bin/pft  view on Meta::CPAN

use Pod::Find qw/pod_where/;

use Encode;
use Encode::Locale;

$_ = decode(locale => $_) foreach @ARGV;
binmode STDIN, ':encoding(console_in)';
binmode STDOUT, ':encoding(console_out)';
binmode STDERR, ':encoding(console_out)';
$0 = basename $0;

 view release on metacpan or  search on metacpan

lib/App/PM/Website/Command.pm  view on Meta::CPAN

{
    my $self = shift;
    my $meetings = $self->{config}->get_meetings;
    my $strp = new DateTime::Format::Strptime(
        pattern => '%Y-%b-%d',
        locale  => 'en',
    );
    my $strp_std = new DateTime::Format::Strptime(
        pattern => '%A %B %e, %Y',
        locale  => 'en',
    );
    my $strp_pretty = new DateTime::Format::Strptime(
        pattern => '%A the %e',
        locale  => 'en',
    );

    for my $meeting (@$meetings)
    {
        $meeting->{epoch} ||= str2time( $meeting->{event_date}, 'PST' );