Result:
found more than 290 distributions - search limited to the first 2001 files matching your query
( run in 0.831 )
App-genpw-base58
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
# clone_and_clean_json
# );
#
#sub new {
# my ($class, %opts) = @_;
# $opts{DateTime} //= [call_method => 'epoch'];
# $opts{'Time::Moment'} //= [call_method => 'epoch'];
# $opts{'Math::BigInt'} //= [call_method => 'bstr'];
# $opts{Regexp} //= ['stringify'];
# $opts{version} //= ['stringify'];
#
App-genpw-base64
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
# clone_and_clean_json
# );
#
#sub new {
# my ($class, %opts) = @_;
# $opts{DateTime} //= [call_method => 'epoch'];
# $opts{'Time::Moment'} //= [call_method => 'epoch'];
# $opts{'Math::BigInt'} //= [call_method => 'bstr'];
# $opts{Regexp} //= ['stringify'];
# $opts{version} //= ['stringify'];
#
App-genpw-id
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
# my $act = $self->$meth($cd, \@args);
# if ($opts->{'!debug'}) { $add_stmt->('stmt', 'print "DEBUG: main cleaner: ref=$ref, " . {{var}} . "\n"'); }
# $add_new_if->('$ref && $refs{ {{var}} }++', $act);
# }
#
# # catch object of specified classes (e.g. DateTime, etc)
# for my $on (grep {/\A\w*(::\w+)*\z/} sort keys %$opts) {
# my $o = $opts->{$on};
# next unless $o;
# my $meth = "command_$o->[0]";
# die "Can't handle command $o->[0] for option '$on'" unless $self->can($meth);
script/_genpw-id view on Meta::CPAN
#
# use Data::Clean;
#
# my $cleanser = Data::Clean->new(
# # specify how to deal with specific classes
# 'DateTime' => [call_method => 'epoch'], # replace object with its epoch
# 'Time::Moment' => [call_method => 'epoch'], # replace object with its epoch
# 'Regexp' => ['stringify'], # replace $obj with "$obj"
#
# # specify how to deal with all scalar refs
# SCALAR => ['deref_scalar'], # replace \1 with 1
script/_genpw-id view on Meta::CPAN
#This will replace a reference like C<{}> with I<STR>.
#
#=item * ['call_method' => STR]
#
#This will call a method named I<STR> and use its return as the replacement. For
#example: C<< DateTime->from_epoch(epoch=>1000) >> when processed with C<<
#[call_method => 'epoch'] >> will become 1000.
#
#=item * ['call_func', STR]
#
#This will call a function named I<STR> with value as argument and use its return
script/_genpw-id view on Meta::CPAN
# if (!%opts && !$creating_singleton) {
# warn "You are creating a new ".__PACKAGE__." object without customizing options. ".
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{DateTime} //= [call_method => 'epoch'];
# $opts{'Time::Moment'} //= [call_method => 'epoch'];
# $opts{'Math::BigInt'} //= [call_method => 'bstr'];
# $opts{Regexp} //= ['stringify'];
# $opts{version} //= ['stringify'];
#
script/_genpw-id view on Meta::CPAN
#JSON. This includes coderefs, globs, and so on. Here's what it will do by
#default:
#
#=over
#
#=item * Change DateTime and Time::Moment object to its epoch value
#
#=item * Change Regexp and version object to its string value
#
#=item * Change scalar references (e.g. \1) to its scalar value (e.g. 1)
#
App-genpw-ind
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
# my $act = $self->$meth($cd, \@args);
# if ($opts->{'!debug'}) { $add_stmt->('stmt', 'print "DEBUG: main cleaner: ref=$ref, " . {{var}} . "\n"'); }
# $add_new_if->('$ref && $refs{ {{var}} }++', $act);
# }
#
# # catch object of specified classes (e.g. DateTime, etc)
# for my $on (grep {/\A\w*(::\w+)*\z/} sort keys %$opts) {
# my $o = $opts->{$on};
# next unless $o;
# my $meth = "command_$o->[0]";
# die "Can't handle command $o->[0] for option '$on'" unless $self->can($meth);
script/_genpw-ind view on Meta::CPAN
#
# use Data::Clean;
#
# my $cleanser = Data::Clean->new(
# # specify how to deal with specific classes
# 'DateTime' => [call_method => 'epoch'], # replace object with its epoch
# 'Time::Moment' => [call_method => 'epoch'], # replace object with its epoch
# 'Regexp' => ['stringify'], # replace $obj with "$obj"
#
# # specify how to deal with all scalar refs
# SCALAR => ['deref_scalar'], # replace \1 with 1
script/_genpw-ind view on Meta::CPAN
#This will replace a reference like C<{}> with I<STR>.
#
#=item * ['call_method' => STR]
#
#This will call a method named I<STR> and use its return as the replacement. For
#example: C<< DateTime->from_epoch(epoch=>1000) >> when processed with C<<
#[call_method => 'epoch'] >> will become 1000.
#
#=item * ['call_func', STR]
#
#This will call a function named I<STR> with value as argument and use its return
script/_genpw-ind view on Meta::CPAN
# if (!%opts && !$creating_singleton) {
# warn "You are creating a new ".__PACKAGE__." object without customizing options. ".
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{DateTime} //= [call_method => 'epoch'];
# $opts{'Time::Moment'} //= [call_method => 'epoch'];
# $opts{'Math::BigInt'} //= [call_method => 'bstr'];
# $opts{Regexp} //= ['stringify'];
# $opts{version} //= ['stringify'];
#
script/_genpw-ind view on Meta::CPAN
#JSON. This includes coderefs, globs, and so on. Here's what it will do by
#default:
#
#=over
#
#=item * Change DateTime and Time::Moment object to its epoch value
#
#=item * Change Regexp and version object to its string value
#
#=item * Change scalar references (e.g. \1) to its scalar value (e.g. 1)
#
App-grepdate
view release on metacpan or search on metacpan
}
},
"runtime" : {
"recommends" : {
"Date::Extract::ID" : "0",
"DateTime::Format::Alami::EN" : "0.13",
"DateTime::Format::Alami::ID" : "0.13"
},
"requires" : {
"Date::Extract::PERLANCAR" : "0",
"Getopt::Long" : "0",
"perl" : "5.010001",
App-hr
view release on metacpan or search on metacpan
# my $act = $self->$meth($cd, \@args);
# if ($opts->{'!debug'}) { $add_stmt->('stmt', 'print "DEBUG: main cleaner: ref=$ref, " . {{var}} . "\n"'); }
# $add_new_if->('$ref && $refs{ {{var}} }++', $act);
# }
#
# # catch object of specified classes (e.g. DateTime, etc)
# for my $on (grep {/\A\w*(::\w+)*\z/} sort keys %$opts) {
# my $o = $opts->{$on};
# next unless $o;
# my $meth = "command_$o->[0]";
# die "Can't handle command $o->[0] for option '$on'" unless $self->can($meth);
#
# use Data::Clean;
#
# my $cleanser = Data::Clean->new(
# # specify how to deal with specific classes
# 'DateTime' => [call_method => 'epoch'], # replace object with its epoch
# 'Time::Moment' => [call_method => 'epoch'], # replace object with its epoch
# 'Regexp' => ['stringify'], # replace $obj with "$obj"
#
# # specify how to deal with all scalar refs
# SCALAR => ['deref_scalar'], # replace \1 with 1
#This will replace a reference like C<{}> with I<STR>.
#
#=item * ['call_method' => STR]
#
#This will call a method named I<STR> and use its return as the replacement. For
#example: C<< DateTime->from_epoch(epoch=>1000) >> when processed with C<<
#[call_method => 'epoch'] >> will become 1000.
#
#=item * ['call_func', STR]
#
#This will call a function named I<STR> with value as argument and use its return
# if (!%opts && !$creating_singleton) {
# warn "You are creating a new ".__PACKAGE__." object without customizing options. ".
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{DateTime} //= [call_method => 'epoch'];
# $opts{'Time::Moment'} //= [call_method => 'epoch'];
# $opts{'Math::BigInt'} //= [call_method => 'bstr'];
# $opts{Regexp} //= ['stringify'];
# $opts{version} //= ['stringify'];
#
#JSON. This includes coderefs, globs, and so on. Here's what it will do by
#default:
#
#=over
#
#=item * Change DateTime and Time::Moment object to its epoch value
#
#=item * Change Regexp and version object to its string value
#
#=item * Change scalar references (e.g. \1) to its scalar value (e.g. 1)
#
App-iTan
view release on metacpan or search on metacpan
lib/App/iTan/Utils.pm view on Meta::CPAN
use File::HomeDir;
use Term::ReadKey;
use DBI;
use Crypt::Twofish;
use DateTime;
=head1 NAME
App::iTan::Utils - Utility methods role
lib/App/iTan/Utils.pm view on Meta::CPAN
(?<hour>\d{1,2})
:
(?<minute>\d{1,2})
$/x;
return DateTime->new(
year => $+{year},
month => $+{month},
day => $+{day},
hour => $+{hour},
minute => $+{minute},
lib/App/iTan/Utils.pm view on Meta::CPAN
$tan =~ s/\s+//g;
return $tan;
}
sub _date {
return DateTime->now->format_cldr('yyyy/MM/dd HH:mm');
}
sub _get_password {
my $password;
App-idxdb
view release on metacpan or search on metacpan
lib/App/idxdb.pm view on Meta::CPAN
},
);
our %argsopt_filter_date = (
date_start => {
schema => ['date*', 'x.perl.coerce_to' => 'DateTime', 'x.perl.coerce_rules'=>['From_str::natural']],
tags => ['category:filtering'],
default => ($today - 30*86400),
cmdline_aliases => {
'week' => {is_flag=>1, code=>sub {$_[0]{date_start} = $today- 7*86400; $_[0]{date_end} = $today}},
'1week' => {is_flag=>1, code=>sub {$_[0]{date_start} = $today- 7*86400; $_[0]{date_end} = $today}},
lib/App/idxdb.pm view on Meta::CPAN
'5year' => {is_flag=>1, code=>sub {$_[0]{date_start} = $today- 5*365*86400; $_[0]{date_end} = $today}},
'10year' => {is_flag=>1, code=>sub {$_[0]{date_start} = $today-10*365*86400; $_[0]{date_end} = $today}},
},
},
date_end => {
schema => ['date*', 'x.perl.coerce_to' => 'DateTime', 'x.perl.coerce_rules'=>['From_str::natural']],
tags => ['category:filtering'],
default => $today,
},
);
lib/App/idxdb.pm view on Meta::CPAN
req => 1,
},
},
};
sub update {
require DateTime;
require DBIx::Util::Schema;
require JSON::MaybeXS;
my %args = @_;
my $gd_path = $args{gudangdata_path};
my $state = _init(\%args, 'rw');
my $dbh = $state->{dbh};
my $now = DateTime->now;
UPDATE_META:
{
my $table_exists = DBIx::Util::Schema::table_exists($dbh, 'meta');
last if $table_exists;
App-indodax
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"App::cryp::Exchange::indodax" : "0.006",
"Data::Sah::Coerce::perl::date::float_epoch" : "0.025",
"Data::Sah::Coerce::perl::date::obj_DateTime" : "0.025",
"Data::Sah::Coerce::perl::date::obj_TimeMoment" : "0.025",
"Data::Sah::Coerce::perl::date::str_iso8601" : "0.025",
"Data::Sah::Compiler::perl::TH::bool" : "0",
"Data::Sah::Compiler::perl::TH::date" : "0",
"Data::Sah::Compiler::perl::TH::float" : "0",
App-ipchgmon
view release on metacpan or search on metacpan
lib/App/ipchgmon.pm view on Meta::CPAN
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use DateTime;
use DateTime::Format::Strptime;
use Data::Dumper;
use Data::Validate::Email qw(is_email);
use Data::Validate::IP;
use Email::Sender::Transport::SMTP;
use Email::Stuffer;
lib/App/ipchgmon.pm view on Meta::CPAN
use Text::CSV qw(csv);
use feature 'say';
our $VERSION = '1.0.7';
my $TIMEFORMAT = '%FT%T%z';
my $strp = DateTime::Format::Strptime->new(on_error => 'croak',
pattern => $TIMEFORMAT,
);
our ($opt_help, $opt_man, $opt_versions,
$opt_debug, $opt_singleemail, $opt_4, $opt_6,
lib/App/ipchgmon.pm view on Meta::CPAN
}
}
if ($lastip eq $ip) {
# This is the latest IP address of its type
$opt_leeway //= 0;
my $dt = DateTime->now;
my $overdue = $dt->epoch > ($lasttime->epoch + $opt_leeway);
return 1, $overdue;
} else {
return 0, 0;
}
lib/App/ipchgmon.pm view on Meta::CPAN
sub new_ip {
my ($ip) = @_;
open my $fh, '>>:encoding(utf8)', $opt_file
or die "Unable to append to $opt_file: $!";
my $dt = DateTime->now;
my $timestamp = $dt->rfc3339;
my $csv = Text::CSV->new();
my @fields = ($ip, $timestamp);
$csv->say($fh, \@fields);
close $fh or die "Unable to close $opt_file: $!";
lib/App/ipchgmon.pm view on Meta::CPAN
" Getopt::Long $Getopt::Long::VERSION\n",
" Pod::Usage $Pod::Usage::VERSION\n",
" Data::Dumper $Data::Dumper::VERSION\n",
" Data::Validate::Email $Data::Validate::Email::VERSION\n",
" Data::Validate::IP $Data::Validate::IP::VERSION\n",
" DateTime $DateTime::VERSION\n",
" DateTime::Format::Strptime $DateTime::Format::Strptime::VERSION\n",
" Email::Sender::Transport::SMTP $Email::Sender::Transport::SMTP::VERSION\n",
" Email::Stuffer $Email::Stuffer::VERSION\n",
" LWP::Online $LWP::Online::VERSION\n",
" LWP::UserAgent $LWP::UserAgent::VERSION\n",
" Socket $Socket::VERSION\n",
App-jupiter
view release on metacpan or search on metacpan
"File::ShareDir::Install" : "0"
}
},
"runtime" : {
"requires" : {
"DateTime" : "0",
"DateTime::Format::ISO8601" : "0",
"DateTime::Format::Mail" : "0",
"Encode::Locale" : "0",
"File::ShareDir" : "0",
"File::Slurper" : "0",
"Modern::Perl" : "1.20180701",
"Mojo::JSON" : "0",
App-lcpan
view release on metacpan or search on metacpan
lib/App/lcpan.pm view on Meta::CPAN
for my $member (@members) {
# skip directory/symlinks
next if $member->{isSymbolicLink} || $member->{fileName} =~ m!/\z!;
my $now = time();
$sth_ins_content->execute(
$file->{id}, $member->{fileName}, $member->{lastModFileDateTime}, $member->{uncompressedSize},
$now,$now);
my $content_id = $dbh->last_insert_id("","","","");
my ($script_name) = $code_is_script->($member->{fileName});
if (defined $script_name) {
unless ($script_names{$script_name}++) {
App-loggrep
view release on metacpan or search on metacpan
bin/loggrep view on Meta::CPAN
Likewise, if a line matches any of the exclusion expressions, it will be excluded.
@{[prog_name()]} uses Date::Parse to convert a timestamp into a Unix timestap (a number of
seconds since time zero). Date::Parse is pretty clever, but if it doesn't understand your
timestamps you'll have to use the --time option. If you want to use a particular module,
like Date::Parse or DateTime, in your --time code, you'll have to use or require it inside
your code or load it in with the --module option like so
-M Date::Parse --time '(\$m=shift)=~s/(.*?) foo/\$1/;\$m eq "bar" ? 1 : str2time \$m'
END
App-madeye
view release on metacpan or search on metacpan
lib/App/MadEye/Plugin/Notify/Email.pm view on Meta::CPAN
use strict;
use warnings;
use base qw/App::MadEye::Plugin::Base/;
use Params::Validate;
use MIME::Lite;
use DateTime;
sub notify : Hook {
my ($self, $context, $args) = @_;
my $conf = $self->{config}->{config};
App-metasyn
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
# my $act = $self->$meth($cd, \@args);
# if ($opts->{'!debug'}) { $add_stmt->('stmt', 'print "DEBUG: main cleaner: ref=$ref, " . {{var}} . "\n"'); }
# $add_new_if->('$ref && $refs{ {{var}} }++', $act);
# }
#
# # catch object of specified classes (e.g. DateTime, etc)
# for my $on (grep {/\A\w*(::\w+)*\z/} sort keys %$opts) {
# my $o = $opts->{$on};
# next unless $o;
# my $meth = "command_$o->[0]";
# die "Can't handle command $o->[0] for option '$on'" unless $self->can($meth);
script/_metasyn view on Meta::CPAN
#
# use Data::Clean;
#
# my $cleanser = Data::Clean->new(
# # specify how to deal with specific classes
# 'DateTime' => [call_method => 'epoch'], # replace object with its epoch
# 'Time::Moment' => [call_method => 'epoch'], # replace object with its epoch
# 'Regexp' => ['stringify'], # replace $obj with "$obj"
#
# # specify how to deal with all scalar refs
# SCALAR => ['deref_scalar'], # replace \1 with 1
script/_metasyn view on Meta::CPAN
#This will replace a reference like C<{}> with I<STR>.
#
#=item * ['call_method' => STR]
#
#This will call a method named I<STR> and use its return as the replacement. For
#example: C<< DateTime->from_epoch(epoch=>1000) >> when processed with C<<
#[call_method => 'epoch'] >> will become 1000.
#
#=item * ['call_func', STR]
#
#This will call a function named I<STR> with value as argument and use its return
script/_metasyn view on Meta::CPAN
# if (!%opts && !$creating_singleton) {
# warn "You are creating a new ".__PACKAGE__." object without customizing options. ".
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{DateTime} //= [call_method => 'epoch'];
# $opts{'Time::Moment'} //= [call_method => 'epoch'];
# $opts{'Math::BigInt'} //= [call_method => 'bstr'];
# $opts{Regexp} //= ['stringify'];
# $opts{version} //= ['stringify'];
#
script/_metasyn view on Meta::CPAN
#JSON. This includes coderefs, globs, and so on. Here's what it will do by
#default:
#
#=over
#
#=item * Change DateTime and Time::Moment object to its epoch value
#
#=item * Change Regexp and version object to its string value
#
#=item * Change scalar references (e.g. \1) to its scalar value (e.g. 1)
#
App-mqtt2job
view release on metacpan or search on metacpan
lib/App/mqtt2job.pm view on Meta::CPAN
use strict;
use warnings;
use Net::MQTT::Simple;
use DateTime;
use JSON;
use Capture::Tiny ':all';
my $dt_start = DateTime->now();
my $mqtt = Net::MQTT::Simple->new("[% mqtt_server %]:[% mqtt_port %]");
$mqtt->retain("[% base_topic %]/status/" . "[% task || "unknown" %]", encode_json({ status => "initiated", dt => "$dt_start", msg => "[% cmd %]" }) );
my $real_cmd = "[% job_dir %]/[% cmd %]";
my $real_args = "[% args %]";
lib/App/mqtt2job.pm view on Meta::CPAN
system($real_cmd, @args);
};
my $msg = ($exit == 0) ? "ok" : "failed";
my $dt_end = DateTime->now();
my $dt_elapsed_obj = $dt_end - $dt_start;
my $dt_elapsed = $dt_elapsed_obj->in_units("seconds");
my @split_output = split("\n", $output);
my $last_line = $split_output[$#split_output];
App-news
view release on metacpan or search on metacpan
"ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
"DateTime::Format::Mail" : "0",
"Modern::Perl" : "1.20180701",
"Mojolicious" : "9",
"perl" : "5.026000"
}
}
App-olson
view release on metacpan or search on metacpan
lib/App/olson.pm view on Meta::CPAN
{ use 5.006; }
use warnings;
use strict;
use Date::ISO8601 0.000 qw(ymd_to_cjdn present_ymd);
use DateTime::TimeZone::Olson 0.003 qw(
olson_version olson_all_names olson_canonical_names olson_links
olson_country_selection olson_tz
);
use DateTime::TimeZone::SystemV 0.002 ();
use DateTime::TimeZone::Tzfile 0.007 ();
use Params::Classify 0.000 qw(is_string);
use Time::OlsonTZ::Data 0.201012 ();
use Time::Unix 1.02 qw(time);
our $VERSION = "0.000";
lib/App/olson.pm view on Meta::CPAN
die $err;
}
}
{
package App::olson::UtcDateTime;
sub new {
my($class, $rdns) = @_;
return bless({ rdn => $rdns->[0], sod => $rdns->[1] }, $class);
}
sub utc_rd_values { ($_[0]->{rdn}, $_[0]->{sod}, 0) }
lib/App/olson.pm view on Meta::CPAN
return _handle_exception($_[0],
qr/time [-:TZ0-9]+ is not represented/, $_[1]);
}
{
package App::olson::LocalDateTime;
sub new {
my($class, $rdns) = @_;
return bless({ rdn => $rdns->[0], sod => $rdns->[1] }, $class);
}
sub local_rd_values { ($_[0]->{rdn}, $_[0]->{sod}, 0) }
lib/App/olson.pm view on Meta::CPAN
type => "offset",
cost => 10,
get_needs => { z=>undef },
curry_get => sub {
my($when) = $_[0]->{"\@"};
my $whendt = App::olson::UtcDateTime->new($when);
return sub {
my $zone = olson_tz($_[0]->{z});
return _handle_forward_exception(eval {
local $SIG{__DIE__};
0+$zone->offset_for_datetime($whendt);
lib/App/olson.pm view on Meta::CPAN
type => "initialism",
cost => 10,
get_needs => { z=>undef },
curry_get => sub {
my($when) = $_[0]->{"\@"};
my $whendt = App::olson::UtcDateTime->new($when);
return sub {
my $zone = olson_tz($_[0]->{z});
return _handle_forward_exception(eval {
local $SIG{__DIE__};
$zone->short_name_for_datetime($whendt);
lib/App/olson.pm view on Meta::CPAN
type => "truth",
cost => 10,
get_needs => { z=>undef },
curry_get => sub {
my($when) = $_[0]->{"\@"};
my $whendt = App::olson::UtcDateTime->new($when);
return sub {
my $zone = olson_tz($_[0]->{z});
return _handle_forward_exception(eval {
local $SIG{__DIE__};
$zone->is_dst_for_datetime($whendt) ? 1 : 0;
lib/App/olson.pm view on Meta::CPAN
$command{version} = sub {
die "bad arguments\n" if @_;
print "modules:\n";
foreach my $mod (qw(
App::olson
DateTime::TimeZone::Olson
DateTime::TimeZone::SystemV
DateTime::TimeZone::Tzfile
Time::OlsonTZ::Data
)) {
no strict "refs";
print " $mod ${qq(${mod}::VERSION)}\n";
}
lib/App/olson.pm view on Meta::CPAN
($command{$cmd} || sub { die "unrecognised subcommand\n" })->(@_);
}
=head1 SEE ALSO
L<DateTime::TimeZone::Olson>,
L<Time::OlsonTZ::Data>,
L<olson>
=head1 AUTHOR
App-p
view release on metacpan or search on metacpan
Thanks Stanislaw Pusep! (https://github.com/creaktive)
0.0303 2012-12-28
Made a huge performance boost to improve startup time. Modules such as
File::Slurp, JSON, YAML and LWP are only loaded if needed.
Use L instead of Class::Autouse to fix issue with loading DateTime.
This used to not work: p 'S DateTime->today'
Thanks Stanislaw Pusep! (https://github.com/creaktive)
0.0302 2012-09-13
Converted README.pod to markdown. This prevents installation of
App::README.
App-padconsole
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Browser::Open" : "0",
"Config::YAML" : "0",
"DateTime" : "0",
"Etherpad" : "v1.2.13.1",
"Term::ReadLine" : "0",
"URI::Escape" : "0"
}
}
App-pause
view release on metacpan or search on metacpan
0.28 2015-04-15 Released-By: PERLANCAR
- No functional changes.
- [Build] Tweak fatten settings: reactivate stripper=1, no longer
exclude_prereq DateTime because new Data-Sah no longer depends on it.
0.27 2015-04-15 Released-By: PERLANCAR
- No functional changes.
App-perlimports
view release on metacpan or search on metacpan
test-data/datetime.pl view on Meta::CPAN
use strict;
use warnings;
use DateTime;
my $dt = DateTime->now;
App-phoebe
view release on metacpan or search on metacpan
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
use Modern::Perl;
use MIME::Base64;
use URI::Escape;
use List::Util qw(uniq);
use Encode qw(encode_utf8 decode_utf8);
use DateTime::Format::ISO8601;
use utf8; # the source contains UTF-8 encoded strings
no warnings 'redefine';
# Oddmuse Wiki
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
($ns, $title) = split(/:/, $title);
}
# timestamp from 2020-07-22T20:59Z back to a number
my $ts = $data->{"last-modified"};
$ts =~ s/Z/:00Z/; # apparently seconds are mandatory?
$ts = DateTime::Format::ISO8601->parse_datetime($ts)->epoch();
# author from some string back to a bogus hash: [0-7]{4}
my $author = $data->{generator};
$author = bogus_hash($stream, encode_utf8($author)) unless $author =~ /^[0-7]{4}$/;
push(@$log, [
$ts,
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
foreach my $entry (@entries) {
my $data = parse_data($entry);
# timestamp from 2020-07-22T20:59Z back to a number
my $ts = $data->{"last-modified"};
$ts =~ s/Z/:00Z/; # apparently seconds are mandatory?
$ts = DateTime::Format::ISO8601->parse_datetime($ts)->epoch();
# author from some string back to a bogus hash: [0-7]{4}
my $author = $data->{generator};
$author = bogus_hash($stream, encode_utf8($author)) unless $author =~ /^[0-7]{4}$/;
push(@$log, [
$ts,
lib/App/Phoebe/Oddmuse.pm view on Meta::CPAN
my $summary = quote_html(oddmuse_gemini_text($stream, $host, $space, $data->{description}));
$stream->write(encode_utf8 "<description>$summary</description>\n") if $summary;
# timestamp from 2020-07-22T20:59Z back to a number
my $ts = $data->{"last-modified"};
$ts =~ s/Z/:00Z/; # apparently seconds are mandatory?
$ts = DateTime::Format::ISO8601->parse_datetime($ts)->epoch();
my ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime($ts); # Sat, 07 Sep 2002 00:00:01 GMT
$stream->write("<pubDate>"
. sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT", qw(Sun Mon Tue Wed Thu Fri Sat)[$wday], $mday,
qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[$mon], $year + 1900, $hour, $min, $sec)
. "</pubDate>\n");
App-pmodinfo
view release on metacpan or search on metacpan
lib/App/pmodinfo.pm view on Meta::CPAN
use strict;
use warnings;
use Getopt::Long ();
use File::stat;
use DateTime;
use Config;
use Parse::CPAN::Meta;
use LWP::Simple;
use ExtUtils::Installed;
use File::Which qw(which);
lib/App/pmodinfo.pm view on Meta::CPAN
}
sub format_date {
my ( $self, $epoch ) = @_;
return '' unless $epoch;
my $dt = DateTime->from_epoch( epoch => $epoch );
return join( ' ', $dt->ymd, $dt->hms );
}
sub run {
my $self = shift;
App-ppgrep
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
# my $act = $self->$meth($cd, \@args);
# #$add_stmt->('stmt', 'say "ref=$ref, " . {{var}}'); # DEBUG
# $add_new_if->('$ref && $refs{ {{var}} }++', $act);
# }
#
# # catch object of specified classes (e.g. DateTime, etc)
# for my $on (grep {/\A\w*(::\w+)*\z/} sort keys %$opts) {
# my $o = $opts->{$on};
# next unless $o;
# my $meth = "command_$o->[0]";
# die "Can't handle command $o->[0] for option '$on'" unless $self->can($meth);
script/_ppgrep view on Meta::CPAN
#
# use Data::Clean;
#
# my $cleanser = Data::Clean->new(
# # specify how to deal with specific classes
# 'DateTime' => [call_method => 'epoch'], # replace object with its epoch
# 'Time::Moment' => [call_method => 'epoch'], # replace object with its epoch
# 'Regexp' => ['stringify'], # replace $obj with "$obj"
#
# # specify how to deal with all scalar refs
# SCALAR => ['deref_scalar'], # replace \1 with 1
script/_ppgrep view on Meta::CPAN
#This will replace a reference like C<{}> with I<STR>.
#
#=item * ['call_method' => STR]
#
#This will call a method named I<STR> and use its return as the replacement. For
#example: C<< DateTime->from_epoch(epoch=>1000) >> when processed with C<<
#[call_method => 'epoch'] >> will become 1000.
#
#=item * ['call_func', STR]
#
#This will call a function named I<STR> with value as argument and use its return
script/_ppgrep view on Meta::CPAN
# if (!%opts && !$creating_singleton) {
# warn "You are creating a new ".__PACKAGE__." object without customizing options. ".
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{DateTime} //= [call_method => 'epoch'];
# $opts{'Time::Moment'} //= [call_method => 'epoch'];
# $opts{'Math::BigInt'} //= [call_method => 'bstr'];
# $opts{Regexp} //= ['stringify'];
# $opts{version} //= ['stringify'];
#
script/_ppgrep view on Meta::CPAN
#JSON. This includes coderefs, globs, and so on. Here's what it will do by
#default:
#
#=over
#
#=item * Change DateTime and Time::Moment object to its epoch value
#
#=item * Change Regexp and version object to its string value
#
#=item * Change scalar references (e.g. \1) to its scalar value (e.g. 1)
#
App-ppll
view release on metacpan or search on metacpan
lib/App/ppll.pm view on Meta::CPAN
use utf8::all;
use v5.20;
use warnings;
use Carp;
use DateTime;
use Digest::MD5 qw( md5 );
use English qw( -no_match_vars );
use Getopt::Long;
use List::Flatten qw( flat );
use List::Util qw( max shuffle );
lib/App/ppll.pm view on Meta::CPAN
if defined $prefix
and $self->{prefix};
push @subs, sub {
$self->_coloured(
DateTime->from_epoch(
epoch => time,
time_zone => 'local',
)->strftime( $self->{timestamp_format} ),
'reverse faint',
);
App-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
require=function e(t,a,r){function s(i,l){if(!a[i]){if(!t[i]){var o="function"==typeof require&&require;if(!l&&o)return o(i,!0);if(n)return n(i,!0);var c=new Error("Cannot find module '"+i+"'");throw c.code="MODULE_NOT_FOUND",c}var d=a[i]={exports:{}...
a.relevance>r.relevance&&(s=r,r=a)}),s.language&&(r.second_best=s),r}function u(e){return N.tabReplace||N.useBR?e.replace(x,function(e,t){return N.useBR&&"\n"===e?"<br>":N.tabReplace?t.replace(/\t/g,N.tabReplace):void 0}):e}function h(e,t,a){var r=t?...
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
App-repeat
view release on metacpan or search on metacpan
twice, 2times.
0.005 2024-12-06 Released-By: PERLANCAR; Urgency: low
- Make dependency to DateTime::Format::Natural optional.
0.004 2024-12-06 Released-By: PERLANCAR; Urgency: medium; Backward-Incompatible: yes
- [incompatible change] Rename --until to --until-time, --bail to
App-reposdb
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
# my $act = $self->$meth($cd, \@args);
# if ($opts->{'!debug'}) { $add_stmt->('stmt', 'print "DEBUG: main cleaner: ref=$ref, " . {{var}} . "\n"'); }
# $add_new_if->('$ref && $refs{ {{var}} }++', $act);
# }
#
# # catch object of specified classes (e.g. DateTime, etc)
# for my $on (grep {/\A\w*(::\w+)*\z/} sort keys %$opts) {
# my $o = $opts->{$on};
# next unless $o;
# my $meth = "command_$o->[0]";
# die "Can't handle command $o->[0] for option '$on'" unless $self->can($meth);
script/_reposdb-inline view on Meta::CPAN
#
# use Data::Clean;
#
# my $cleanser = Data::Clean->new(
# # specify how to deal with specific classes
# 'DateTime' => [call_method => 'epoch'], # replace object with its epoch
# 'Time::Moment' => [call_method => 'epoch'], # replace object with its epoch
# 'Regexp' => ['stringify'], # replace $obj with "$obj"
#
# # specify how to deal with all scalar refs
# SCALAR => ['deref_scalar'], # replace \1 with 1
script/_reposdb-inline view on Meta::CPAN
#This will replace a reference like C<{}> with I<STR>.
#
#=item * ['call_method' => STR]
#
#This will call a method named I<STR> and use its return as the replacement. For
#example: C<< DateTime->from_epoch(epoch=>1000) >> when processed with C<<
#[call_method => 'epoch'] >> will become 1000.
#
#=item * ['call_func', STR]
#
#This will call a function named I<STR> with value as argument and use its return
script/_reposdb-inline view on Meta::CPAN
# if (!%opts && !$creating_singleton) {
# warn "You are creating a new ".__PACKAGE__." object without customizing options. ".
# "You probably want to call get_cleanser() yet to get a singleton instead?";
# }
#
# $opts{DateTime} //= [call_method => 'epoch'];
# $opts{'Time::Moment'} //= [call_method => 'epoch'];
# $opts{'Math::BigInt'} //= [call_method => 'bstr'];
# $opts{Regexp} //= ['stringify'];
# $opts{version} //= ['stringify'];
#
script/_reposdb-inline view on Meta::CPAN
#JSON. This includes coderefs, globs, and so on. Here's what it will do by
#default:
#
#=over
#
#=item * Change DateTime and Time::Moment object to its epoch value
#
#=item * Change Regexp and version object to its string value
#
#=item * Change scalar references (e.g. \1) to its scalar value (e.g. 1)
#
App-revealup
view release on metacpan or search on metacpan
share/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(t){return(e="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e})(t)}function t(e,t){if(!(...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
var of={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:rf,init:function(e){var t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,t....
( run in 0.831 second using v1.01-cache-2.11-cpan-05444aca049 )