App-SpreadRevolutionaryDate
view release on metacpan or search on metacpan
bin/spread-revolutionary-date view on Meta::CPAN
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use 5.014;
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
# PODNAME: spread-revolutionary-date
# ABSTRACT: Spread date and time from Revolutionary (Republican) Calendar
use App::SpreadRevolutionaryDate;
App::SpreadRevolutionaryDate->new->spread;
__END__
=pod
lib/App/SpreadRevolutionaryDate.pm view on Meta::CPAN
# ABSTRACT: Spread date and time from Revolutionary (Republican) Calendar on Bluesky, Twitter, Mastodon, Freenode and Liberachat.
use Moose;
use App::SpreadRevolutionaryDate::Config;
use Class::Load ':all';
use Locale::TextDomain 'App-SpreadRevolutionaryDate';
use Locale::Messages qw(bind_textdomain_filter);
use Encode;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
bind_textdomain_filter 'App-SpreadRevolutionaryDate' => \&Encode::decode_utf8, Encode::FB_DEFAULT;
}
use namespace::autoclean;
has 'config' => (
is => 'ro',
isa => 'App::SpreadRevolutionaryDate::Config',
required => 1,
);
lib/App/SpreadRevolutionaryDate/MsgMaker.pm view on Meta::CPAN
required => 1,
default => 'en',
trigger => sub {
# Set locale to $val, see https://metacpan.org/pod/Locale::TextDomain::FAQ#How-do-I-switch-languages-or-force-a-certain-language-independently-from-user-settings-read-from-the-environment?
my ( $self, $val, $old_val ) = @_;
if ($val) {
Locale::Messages->select_package('gettext_pp');
set_locale(LC_ALL, $val, undef, 'utf-8');
nl_putenv("LANGUAGE=$val");
nl_putenv("LANG=$val");
nl_putenv("OUTPUT_CHARSET=utf-8");
}
},
);
has special_birthday_name => (
is => 'ro',
isa => 'Str',
default => '',
);
t/bluesky.t view on Meta::CPAN
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
use open qw(:std :encoding(UTF-8));
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 2;
use Test::NoWarnings;
use Test::Output;
use File::HomeDir;
use App::SpreadRevolutionaryDate;
t/command_line.t view on Meta::CPAN
# This file is part of App-SpreadRevolutionaryDate
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
use Test::More tests => 32;
use Test::NoWarnings;
use Test::Trap;
use App::SpreadRevolutionaryDate;
use FindBin;
my $conf_file = $FindBin::Bin . '/../etc/sample-spread-revolutionary-date.conf';
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 42;
use Test::NoWarnings;
use App::SpreadRevolutionaryDate;
@ARGV = ('--test');
my $data_start = tell DATA;
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
use open qw(:std :encoding(UTF-8));
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 6;
use Test::Output;
use Test::NoWarnings;
use App::SpreadRevolutionaryDate;
t/mastodon.t view on Meta::CPAN
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
use open qw(:std :encoding(UTF-8));
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 2;
use Test::NoWarnings;
use Test::Output;
use File::HomeDir;
use App::SpreadRevolutionaryDate;
t/new_target.t view on Meta::CPAN
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 5;
use Test::Output;
use Test::NoWarnings;
package App::SpreadRevolutionaryDate::Target::Ezln;
use Moose;
with 'App::SpreadRevolutionaryDate::Target' => {worker => 'Bool'};
t/objects.t view on Meta::CPAN
# This file is part of App-SpreadRevolutionaryDate
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 14;
use Test::NoWarnings;
use App::SpreadRevolutionaryDate;
my $spread_revolutionary_date = App::SpreadRevolutionaryDate->new(\*DATA);
t/promptuser.t view on Meta::CPAN
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use 5.014;
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
use open qw(:std :encoding(UTF-8));
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 7;
use Test::NoWarnings;
use Test::Output;
use File::HomeDir;
t/telechat.t view on Meta::CPAN
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use 5.014;
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
use open qw(:std :encoding(UTF-8));
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 2;
use Test::NoWarnings;
use Test::Output;
use File::HomeDir;
t/twitter.t view on Meta::CPAN
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
use open qw(:std :encoding(UTF-8));
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 2;
use Test::NoWarnings;
use Test::Output;
use File::HomeDir;
use App::SpreadRevolutionaryDate;
t/wikipedia.t view on Meta::CPAN
#
# This software is Copyright (c) 2019-2025 by Gérald Sédrati.
#
# This is free software, licensed under:
#
# The GNU General Public License, Version 3, June 2007
#
use utf8;
BEGIN {
$ENV{OUTPUT_CHARSET} = 'UTF-8';
}
use open qw(:std :encoding(UTF-8));
binmode(DATA, ":encoding(UTF-8)");
use Test::More tests => 3;
use Test::NoWarnings;
use Test::Output;
use File::HomeDir;
use App::SpreadRevolutionaryDate;
( run in 0.624 second using v1.01-cache-2.11-cpan-c6e0e5ac2a7 )