view release on metacpan or search on metacpan
Change: eefbcf38f14e894ceaf3124b802ea4ea94150c0c
Author: faraco <skelic3@gmail.com>
Date : 2017-05-19 13:03:11 +0000
- added Modern::Perl module
Change: 9e2e49c4685c74d31d3dea4ef59db3fd45d7b8bc
Author: faraco <skelic3@gmail.com>
Date : 2017-04-16 01:34:33 +0000
view release on metacpan or search on metacpan
bin/hpgl2cadsoft.pl view on Meta::CPAN
#! /usr/bin/env perl
use strict;
use Modern::Perl;
use App::HPGL2Cadsoft;
use Getopt::Long;
use Pod::Usage;
view release on metacpan or search on metacpan
lib/App/JobLog/Command.pm view on Meta::CPAN
package App::JobLog::Command;
$App::JobLog::Command::VERSION = '1.042';
# ABSTRACT: common functionality of App::JobLog commands
use App::Cmd::Setup -command;
use Modern::Perl;
use App::JobLog::Config qw(columns);
sub opt_spec {
my ( $class, $app ) = @_;
view release on metacpan or search on metacpan
lib/App/Jup.pm view on Meta::CPAN
package App::Jup;
$App::Jup::VERSION = '1.01';
use Modern::Perl;
use App::Cmd::Setup -app;
# ABSTRACT: Global Jup options
sub global_opt_spec {
view release on metacpan or search on metacpan
bin/kamstrup-kem-split.pl view on Meta::CPAN
#! /usr/bin/env perl
# PODNAME: kamstrup-kem-split.pl
# ABSTRACT: Split encrypted KEM file input from the Kamstrup backend into separate XML files with device information
our $VERSION = '0.007'; # VERSION
use Modern::Perl '2022';
use App::KamstrupKemSplit;
use Log::Log4perl qw(:easy);
use XML::Simple;
use Getopt::Long;
use Pod::Usage;
view release on metacpan or search on metacpan
lib/App/LDAP.pm view on Meta::CPAN
package App::LDAP;
our $VERSION = '0.1.2';
use Modern::Perl;
use Moose;
use MooseX::Singleton;
use App::LDAP::Command;
view release on metacpan or search on metacpan
t/010_submit_invalid.t view on Meta::CPAN
use Test::Most tests => 3;
use Modern::Perl;
use lib 't/lib';
use App::Mimosa::Test;
use Test::DBIx::Class;
view release on metacpan or search on metacpan
lib/App/MultiModule/Tasks/HTTPClient.pm view on Meta::CPAN
use 5.006;
use strict;
use warnings FATAL => 'all';
use POE qw(Component::Client::HTTP);
use HTTP::Request;
use Modern::Perl;
use Data::Dumper;
use Storable;
use parent 'App::MultiModule::Task';
view release on metacpan or search on metacpan
Look at P9Y::ProcessTable
Yah, this looks good:
#!/usr/local/toolsx/bin/perl
use Modern::Perl;
use Data::Dumper;
use P9Y::ProcessTable;
my @process_table = P9Y::ProcessTable->table;
view release on metacpan or search on metacpan
lib/App/Nag.pm view on Meta::CPAN
}
# ABSTRACT: send yourself a reminder
use Modern::Perl;
use Getopt::Long::Descriptive qw(describe_options prog_name);
# some icon specs
use constant PHRASE => [qw(psst hey HEY !!!)];
use constant STROKE => [qw(0000ff 0000ff ff0000 ff0000)];
view release on metacpan or search on metacpan
lib/App/Office/CMS/Database.pm view on Meta::CPAN
$self -> dbh(DBI -> connect($$config{dsn}, $$config{username}, $$config{password}, $attr) );
=pod
use Modern::Perl;
use DBI;
use Exception::Class::DBI;
my $dbh = DBI->connect('DBI:mysql:test', 'user', pass, {
PrintError => 0,
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
used for the web:
# tested by t/example-footer2.t
package App::Phoebe;
use App::Phoebe::Web;
use Modern::Perl;
our (@footer); # HTML only
push(@footer, sub { '=> https://alexschroeder.ch/wiki/Contact Contact' });
# footer sub is Gemini only
no warnings qw(redefine);
sub footer {
lib/App/Phoebe.pm view on Meta::CPAN
Perl code.
# tested by t/example-route.t
our @config = (<<'EOT');
use App::Phoebe qw(@extensions @main_menu port host_regex success);
use Modern::Perl;
push(@main_menu, "=> /do/test Test");
push(@extensions, \&serve_test);
sub serve_test {
my $stream = shift;
my $url = shift;
lib/App/Phoebe.pm view on Meta::CPAN
Here's a more elaborate example to add a new action the main menu and a handler
for it, for Gemini only:
# tested by t/example-new-action.t
package App::Phoebe;
use Modern::Perl;
our (@extensions, @main_menu);
push(@main_menu, "=> gemini://localhost/do/test Test");
push(@extensions, \&serve_test);
sub serve_test {
my $stream = shift;
lib/App/Phoebe.pm view on Meta::CPAN
1;
=cut
package App::Phoebe;
use Modern::Perl '2018';
use File::Slurper qw(read_text read_binary read_dir write_text write_binary);
use Encode qw(encode_utf8 decode_utf8);
use Net::IDN::Encode qw(domain_to_ascii);
use Socket qw(:addrinfo SOCK_RAW);
use List::Util qw(first min any);
view release on metacpan or search on metacpan
"Cwd" : "0",
"DateTime" : "0.37",
"File::Find::Rule" : "0",
"IO::All" : "0",
"List::MoreUtils" : "0",
"Modern::Perl" : "0",
"Term::ANSIColor" : "0",
"Term::ReadKey" : "0",
"perl" : "5.022",
"strict" : "0",
"warnings" : "0"
view release on metacpan or search on metacpan
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.
use Modern::Perl;
use Mojo::Server::Daemon;
use File::Slurper qw(write_binary);
do './script/jupiter';
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"File::MimeInfo" : "0",
"File::Slurper" : "0",
"IO::Socket::SSL" : "0",
"Modern::Perl" : "1.20180701",
"Mojolicious" : "8.12",
"URI::Escape" : "0",
"perl" : "5.026000",
"strict" : "0",
"warnings" : "0"
view release on metacpan or search on metacpan
lib/App/news.pm view on Meta::CPAN
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
package App::news;
use Modern::Perl '2018';
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(wrap html_unwrap ranges sranges);
view release on metacpan or search on metacpan
script/perlall view on Meta::CPAN
if ($cmd eq 'init') {
$c->config->{cpan} = 'cpan';
# DBD::Gofer on linux needs Clone but does not check for it
$c->config->{'init-modules'} = 'YAML Clone DBI DBD::SQLite CPAN::SQLite Devel::Platform::Info'
.' Params::Util Bundle::CPANReporter2 Math::Round Params::Classify Bundle::CygwinVendor'
.' YAML::XS List::MoreUtils DBIx::Class SQL::Abstract Module::Find Mouse MouseX::Types Modern::Perl'
.' Task::Kensho';
if (basename(Cwd::getcwd) =~/^B-C/ and -f "t/top100") {
_auto_use("File::Slurp");
$c->config->{'init-modules'} .= " "
.join(" ",File::Slurp::read_file("t/top100"));
view release on metacpan or search on metacpan
lib/App/perlimports/Document.pm view on Meta::CPAN
'Filter::Simple' => 1,
'Git::Sub' => 1,
'HTTP::Message::PSGI' => 1, # HTTP::Request::(to|from)_psgi
'Import::Into' => 1,
'MLDBM' => 1,
'Modern::Perl' => 1,
'Mojo::Base' => 1,
'Mojo::Date' => 1,
'Mojolicious::Lite' => 1,
'Moo' => 1,
'Moo::Role' => 1,
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
used for the web:
# tested by t/example-footer2.t
package App::Phoebe;
use App::Phoebe::Web;
use Modern::Perl;
our (@footer); # HTML only
push(@footer, sub { '=> https://alexschroeder.ch/wiki/Contact Contact' });
# footer sub is Gemini only
no warnings qw(redefine);
sub footer {
lib/App/Phoebe.pm view on Meta::CPAN
Perl code.
# tested by t/example-route.t
our @config = (<<'EOT');
use App::Phoebe qw(@extensions @main_menu port host_regex success);
use Modern::Perl;
push(@main_menu, "=> /do/test Test");
push(@extensions, \&serve_test);
sub serve_test {
my $stream = shift;
my $url = shift;
lib/App/Phoebe.pm view on Meta::CPAN
Here's a more elaborate example to add a new action the main menu and a handler
for it, for Gemini only:
# tested by t/example-new-action.t
package App::Phoebe;
use Modern::Perl;
our (@extensions, @main_menu);
push(@main_menu, "=> gemini://localhost/do/test Test");
push(@extensions, \&serve_test);
sub serve_test {
my $stream = shift;
lib/App/Phoebe.pm view on Meta::CPAN
1;
=cut
package App::Phoebe;
use Modern::Perl '2018';
use File::Slurper qw(read_text read_binary read_lines read_dir write_text write_binary);
use Encode qw(encode_utf8 decode_utf8);
use Net::IDN::Encode qw(domain_to_ascii);
use Socket qw(:addrinfo SOCK_RAW);
use List::Util qw(first min any);
view release on metacpan or search on metacpan
"File::ShareDir" : "0",
"File::Slurper" : "0",
"File::Symlink::Relative" : "0",
"Image::ExifTool" : "0",
"JSON::Tiny" : "0",
"Modern::Perl" : "1.20180701",
"Time::Progress" : "0",
"perl" : "5.026000"
}
},
"test" : {
view release on metacpan or search on metacpan
lib/Traveller/Util.pm view on Meta::CPAN
#
# You should have received a copy of the GNU General Public License along with
# this program. If not, see <http://www.gnu.org/licenses/>.
package Traveller::Util;
use Modern::Perl;
require Exporter;
use POSIX qw(ceil);
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(in distance nearby flush d);
view release on metacpan or search on metacpan
lib/App/wrapspeak.pm view on Meta::CPAN
package App::wrapspeak;
use Exporter 'import';
@EXPORT_OK = qw(run);
use Modern::Perl;
use IPC::Open3;
use Term::TermKey;
use File::Slurp qw/read_file/;
use Time::HiRes qw( alarm );
use IO::Select;
view release on metacpan or search on metacpan
#!/usr/bin/env perl
use Modern::Perl;
say `curl -s cip.cc`;
view release on metacpan or search on metacpan
lib/Async/Simple/Pool.pm view on Meta::CPAN
# Task::Pool - wery similar, uses tasks, results represented as a spream
# Task::Queue - low level code
# Proc::Simple - wery similar byt not flexible enough
use Modern::Perl;
use Moose;
use namespace::autoclean;
use Class::Load;
use Clone;
use JSON::XS;
view release on metacpan or search on metacpan
perlcriticrc view on Meta::CPAN
[-RegularExpressions::RequireLineBoundaryMatching]
[-InputOutput::RequireCheckedSyscalls]
[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl
[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl
# [-Documentation::PodSpelling]
[Subroutines::ProhibitUnusedPrivateSubroutines]
private_name_regex = _(?!build|trigger_)\w+
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
ExtUtils::MakeMaker 0
perl 5.006
Modern-Perl-1.20200211
pathname: C/CH/CHROMATIC/Modern-Perl-1.20200211.tar.gz
provides:
Modern::Perl 1.20200211
odern::Perl 1.20200211
requirements:
ExtUtils::MakeMaker 0
IO::File 0
IO::Handle 0
cpanfile.snapshot view on Meta::CPAN
pathname: M/MA/MANWAR/Regexp-Common-time-0.16.tar.gz
provides:
Regexp::Common::time 0.16
requirements:
ExtUtils::MakeMaker 0
Modern::Perl 0
Regexp::Common 0
Test::More 0.40
perl 5.006
Role-Tiny-2.001004
pathname: H/HA/HAARG/Role-Tiny-2.001004.tar.gz
view release on metacpan or search on metacpan
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
package Backup::Duplicity::YADW;
$Backup::Duplicity::YADW::VERSION = '0.12';
$Backup::Duplicity::YADW::VERSION = '0.11';
use Modern::Perl;
use Moose;
use namespace::autoclean;
use warnings FATAL => 'all';
use Smart::Args;
use Carp;