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 {
view release on metacpan or search on metacpan
foo.db matches 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 {
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
script/update_constant_values.pl view on Meta::CPAN
#
# hard coded to run from top directory and uses only data/PhysicalConstants.xml
use strict;
use autodie;
use Modern::Perl;
use XML::LibXML;
use LWP::Simple;
use List::Util qw/shuffle/;
use HTML::Parser;
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
lib/Audio/Nama.pm view on Meta::CPAN
package Audio::Nama;
use vars qw($VERSION);
$VERSION = "1.307";
use Modern::Perl '2020';
#use Carp::Always;
no warnings qw(uninitialized syntax);
########## External dependencies ##########
view release on metacpan or search on metacpan
bin/compress-db.pl view on Meta::CPAN
#!/usr/bin/env perl
# PODNAME: compress-db.pl
# ABSTRACT: Post-process assembler for transcript enrichment using 42
use Modern::Perl '2011';
use autodie;
use Getopt::Euclid qw(:vars);
use Path::Class qw(file dir);