view release on metacpan or search on metacpan
lib/EZID.pm view on Meta::CPAN
package EZID;
use Modern::Perl;
use Encode;
use HTTP::Request::Common;
use LWP::UserAgent;
use URI::Escape;
view release on metacpan or search on metacpan
lib/EveOnline/SSO.pm view on Meta::CPAN
=cut
package EveOnline::SSO;
use 5.008001;
use utf8;
use Modern::Perl;
use JSON::XS;
use URI::Escape;
use MIME::Base64;
use URI::URL;
view release on metacpan or search on metacpan
.perlcriticrc view on Meta::CPAN
severity = 5
# for signatures
[-Subroutines::ProhibitSubroutinePrototypes]
# We use Mojo::Base and Modern::Perl
[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Evo
[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Evo
view release on metacpan or search on metacpan
eg/run_1.pl view on Meta::CPAN
use Modern::Perl;
use System::Command;
use File::Which;
use Mojo::IOLoop;
my $cmd;
view release on metacpan or search on metacpan
bin/gen_rand_files.pl view on Meta::CPAN
# PODNAME:
# ABSTRACT:
###### PACKAGES ######
use Modern::Perl;
use Getopt::Long;
use File::RandomGenerator;
###### CONSTANTS ######
###### GLOBAL VARIABLES ######
view release on metacpan or search on metacpan
made; it isn't a single module file anymore. This does NOT affect the
end user. To the user, this change is completely transparent and does
not affect their programs or libraries that use File::Util.
This change is a step forward in the stated goal of File::Util to bring
a more "modern" (as in Modern::Perl) interface to the user while
preserving compatibility with current syntax.
Also in this release we move to auto-versioning a la Dist::Zilla plugins
PkgVersion and AutoVersion (thank you to the authors of those plugins)
view release on metacpan or search on metacpan
lib/File/Utils.pm view on Meta::CPAN
package File::Utils;
use Modern::Perl;
use Carp;
use PerlIO::gzip;
use Exporter;
our $VERSION = '0.0.5'; # VERSION
view release on metacpan or search on metacpan
use Modern::Perl;
use DateTime;
use lib './lib';
use Finance::Bank::SentinelBenefits::Csv401kConverter;
use Finance::Bank::SentinelBenefits::Csv401kConverter::SymbolMap;
view release on metacpan or search on metacpan
author/benchmark.pl view on Meta::CPAN
use Modern::Perl;
use Benchmark ':all';
use CGI;
use FormValidator::Lite qw/Email Date/;
use FormValidator::Simple;
view release on metacpan or search on metacpan
lib/Full.pm view on Meta::CPAN
There are many modules which provide similar functionality. Here are a few examples, in no particular
order:
=over 4
=item * L<Modern::Perl>
=item * L<common::sense>
=back
view release on metacpan or search on metacpan
Revision history for Perl extension Function::Composition
0.0.2 Thu Apr 25 05:26:55 CST 2013
- no require Modern::Perl in test cases
0.0.1 Tue Apr 23 04:03:14 CST 2013
- original version
view release on metacpan or search on metacpan
lib/Game/CharacterSheetGenerator.pm view on Meta::CPAN
package Game::CharacterSheetGenerator;
our $VERSION = 1.03;
use Modern::Perl;
use Game::CharacterSheetGenerator::ElfNames qw(elf_name);
use Game::CharacterSheetGenerator::DwarfNames qw(dwarf_name);
use Game::CharacterSheetGenerator::HalflingNames qw(halfling_name);
use Game::CharacterSheetGenerator::HumanNames qw(human_name);
use Mojolicious::Lite;
view release on metacpan or search on metacpan
lib/Game/FaceGenerator.pm view on Meta::CPAN
package Game::FaceGenerator;
our $VERSION = 1.03;
use Modern::Perl;
use Mojolicious::Lite;
use File::ShareDir 'dist_dir';
use Game::FaceGenerator::Core qw(
dir no_flip all_artists random_components all_components
all_elements render_components move);
view release on metacpan or search on metacpan
lib/Game/HexDescribe.pm view on Meta::CPAN
package Game::HexDescribe;
our $VERSION = 1.03;
use Modern::Perl;
use Mojolicious::Lite;
use Mojo::UserAgent;
use Mojo::Util qw(html_unescape);
use Mojo::ByteStream;
use Game::HexDescribe::Utils qw(init describe_text parse_table load_table
view release on metacpan or search on metacpan
lib/Game/TextMapper.pm view on Meta::CPAN
use Game::TextMapper::Schroeder::Island;
use Game::TextMapper::Traveller;
use Game::TextMapper::Folkesten;
use Game::TextMapper::Solo;
use Modern::Perl '2018';
use Mojolicious::Lite;
use Mojo::DOM;
use Mojo::Util qw(url_escape xml_escape);
use File::ShareDir 'dist_dir';
use Pod::Simple::HTML;
view release on metacpan or search on metacpan
lib/Gearman/JobScheduler.pm view on Meta::CPAN
$VERSION = '0.16';
use strict;
use warnings;
use Modern::Perl "2012";
use Gearman::JobScheduler::Configuration;
use Gearman::XS qw(:constants);
use Gearman::XS::Client;
view release on metacpan or search on metacpan
lib/GenOO.pm view on Meta::CPAN
# Let the code begin...
package GenOO;
$GenOO::VERSION = '1.5.2';
use Modern::Perl;
1;
view release on metacpan or search on metacpan
lib/GenOOx/Data/File/SAMbwa.pm view on Meta::CPAN
$GenOOx::Data::File::SAMbwa::VERSION = '0.0.5';
#######################################################################
####################### Load External modules #####################
#######################################################################
use Modern::Perl;
1;
view release on metacpan or search on metacpan
lib/GenOOx/Data/File/SAMstar.pm view on Meta::CPAN
$GenOOx::Data::File::SAMstar::VERSION = '0.0.3';
#######################################################################
####################### Load External modules #####################
#######################################################################
use Modern::Perl;
1;
view release on metacpan or search on metacpan
parse-for-doxygen.pl view on Meta::CPAN
use strict;
use warnings;
use Modern::Perl;
my @pm = qw(lib/Geo/GDAL.pm lib/Geo/OGR.pm lib/Geo/OSR.pm lib/Geo/GDAL/Const.pm lib/Geo/GNM.pm);
my %internal_methods = map {$_=>1} qw/TIEHASH CLEAR FIRSTKEY NEXTKEY FETCH STORE
DESTROY DISOWN ACQUIRE RELEASE_PARENTS
view release on metacpan or search on metacpan
lib/Geo/OGC/Service/Filter.pm view on Meta::CPAN
package Geo::OGC::Service::Filter;
use Modern::Perl;
use Carp;
use Data::Dumper;
use Geo::OGC::Service;
use vars qw(@ISA);
push @ISA, qw(Geo::OGC::Service::Common);
view release on metacpan or search on metacpan
lib/Geo/OGC/Service/WMTS.pm view on Meta::CPAN
use 5.010000; # say // and //=
use feature "switch";
use Carp;
use File::Basename;
use Modern::Perl;
use JSON;
use Geo::GDAL;
use Cwd;
use Math::Trig;
use HTTP::Date;
view release on metacpan or search on metacpan
lib/Geo/OGC/Service.pm view on Meta::CPAN
package Geo::OGC::Service;
use 5.010000; # say // and //=
use Carp;
use Modern::Perl;
use Encode qw(decode encode);
use Plack::Request;
use Plack::Builder;
use JSON;
use XML::LibXML;
lib/Geo/OGC/Service.pm view on Meta::CPAN
=head2 METHODS
=cut
package Geo::OGC::Service::Common;
use Modern::Perl;
=pod
=head3 CORS
lib/Geo/OGC/Service.pm view on Meta::CPAN
If $attribute{$key} is undefined the attribute is not written at all.
=cut
package Geo::OGC::Service::XMLWriter;
use Modern::Perl;
use Encode qw(decode encode is_utf8);
use Carp;
sub element {
my $self = shift;
lib/Geo/OGC/Service.pm view on Meta::CPAN
encoding="UTF-8"?>'.
=cut
package Geo::OGC::Service::XMLWriter::Streaming;
use Modern::Perl;
our @ISA = qw(Geo::OGC::Service::XMLWriter Plack::Util::Prototype); # can't use parent since Plack is not yet
sub new {
my ($class, $responder, $headers, $declaration) = @_;
lib/Geo/OGC/Service.pm view on Meta::CPAN
Geo::OGC::Service::XMLWriter::Streaming.
=cut
package Geo::OGC::Service::XMLWriter::Caching;
use Modern::Perl;
use Encode qw(decode encode is_utf8);
our @ISA = qw(Geo::OGC::Service::XMLWriter);
sub new {
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
- add blank line for dist:zilla PkgVersion
0.12 2016-08-31
- use File::Slurper
- fix tests on FreeBSD
- remove dependency to Modern::Perl (use strictures)
0.11 2016-05-02
- Some more release fixes
0.10 2016-05-02
view release on metacpan or search on metacpan
lib/GoogleApps.pm view on Meta::CPAN
package GoogleApps;
use Moose;
use Modern::Perl;
use VUser::Google::ApiProtocol::V2_0;
use VUser::Google::Provisioning::V2_0;
use Config::Auto;
extends qw(MooseX::App::Cmd);
# ABSTRACT: Base class for all commands
view release on metacpan or search on metacpan
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Base package for operators
#####################################################################
package Grammar::Formal::Pattern;
use Modern::Perl;
use Moose;
use MooseX::SetOnce;
has 'parent' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Base package for unary operators
#####################################################################
package Grammar::Formal::Unary;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'p' => (
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Base package for binary operators
#####################################################################
package Grammar::Formal::Binary;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'p1' => (
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Group
#####################################################################
package Grammar::Formal::Group;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Binary';
#####################################################################
# Choice
#####################################################################
package Grammar::Formal::Choice;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Binary';
#####################################################################
# OrderedChoice
#####################################################################
package Grammar::Formal::OrderedChoice;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Binary';
#####################################################################
# Conjunction
#####################################################################
package Grammar::Formal::Conjunction;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Binary';
#####################################################################
# OrderedConjunction
#####################################################################
package Grammar::Formal::OrderedConjunction;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Binary';
#####################################################################
# Subtraction
#####################################################################
package Grammar::Formal::Subtraction;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Binary';
#####################################################################
# Empty
#####################################################################
package Grammar::Formal::Empty;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
#####################################################################
# NotAllowed
#####################################################################
package Grammar::Formal::NotAllowed;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
#####################################################################
# ZeroOrMore
#####################################################################
package Grammar::Formal::ZeroOrMore;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Unary';
#####################################################################
# OneOrMore
#####################################################################
package Grammar::Formal::OneOrMore;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Unary';
#####################################################################
# SomeOrMore
#####################################################################
package Grammar::Formal::SomeOrMore;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Unary';
has 'min' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# BoundedRepetition
#####################################################################
package Grammar::Formal::BoundedRepetition;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Unary';
has 'min' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Reference
#####################################################################
package Grammar::Formal::Reference;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'name' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Rule
#####################################################################
package Grammar::Formal::Rule;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Unary';
has 'name' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Grammar
#####################################################################
package Grammar::Formal::Grammar;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'start' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# CaseSensitiveString
#####################################################################
package Grammar::Formal::CaseSensitiveString;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'value' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# ASCII-Insensitive string
#####################################################################
package Grammar::Formal::AsciiInsensitiveString;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'value' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# prose values
#####################################################################
package Grammar::Formal::ProseValue;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'value' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Range
#####################################################################
package Grammar::Formal::Range;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'min' => (
is => 'ro',
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Character class
#####################################################################
package Grammar::Formal::CharClass;
use Modern::Perl;
use Set::IntSpan;
use Moose;
extends 'Grammar::Formal::Pattern';
has 'spans' => (
lib/Grammar/Formal.pm view on Meta::CPAN
#####################################################################
# Grammar::Formal
#####################################################################
package Grammar::Formal;
use 5.012000;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Grammar';
our $VERSION = '0.20';
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
PREREQ_PM => {
'Test::More' => 0,
'Graph' => 0,
'Grammar::Formal' => 0,
'Grammar::Graph' => 0,
'Modern::Perl' => 0,
'Moose' => 0,
'List::UtilsBy' => 0,
'List::MoreUtils' => 0,
'List::Util' => 0,
'Storable' => 0,
view release on metacpan or search on metacpan
lib/Grammar/Graph.pm view on Meta::CPAN
#####################################################################
# Types
#####################################################################
package Grammar::Graph::Types;
use Modern::Perl;
use parent qw/Type::Library/;
use Type::Utils;
use Types::Standard qw/Int/;
declare 'Vertex',
lib/Grammar/Graph.pm view on Meta::CPAN
#####################################################################
# Role for non-terminal names
#####################################################################
package Grammar::Graph::Named;
use Modern::Perl;
use Moose::Role;
has 'name' => (
is => 'ro',
required => 1,
lib/Grammar/Graph.pm view on Meta::CPAN
#####################################################################
# Role for coupled vertices
#####################################################################
package Grammar::Graph::Coupled;
use Modern::Perl;
use Moose::Role;
has 'partner' => (
is => 'ro',
required => 1,
lib/Grammar/Graph.pm view on Meta::CPAN
#####################################################################
# Start
#####################################################################
package Grammar::Graph::Start;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Empty';
with 'Grammar::Graph::Coupled',
'Grammar::Graph::Named';
#####################################################################
# Final
#####################################################################
package Grammar::Graph::Final;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Empty';
with 'Grammar::Graph::Coupled',
'Grammar::Graph::Named';
#####################################################################
# Conditionals
#####################################################################
package Grammar::Graph::Conditional;
use Modern::Perl;
use Moose;
extends qw/Grammar::Formal::Empty/;
with qw/Grammar::Graph::Coupled/;
lib/Grammar/Graph.pm view on Meta::CPAN
#####################################################################
# If (start of conditional)
#####################################################################
package Grammar::Graph::If;
use Modern::Perl;
use Moose;
extends 'Grammar::Graph::Conditional';
#####################################################################
# Fi (end of conditional)
#####################################################################
package Grammar::Graph::Fi;
use Modern::Perl;
use Moose;
extends 'Grammar::Graph::Conditional';
#####################################################################
# Operands
#####################################################################
package Grammar::Graph::Operand;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::Empty';
with qw/Grammar::Graph::Coupled/;
#####################################################################
# Prelude (character before any other)
#####################################################################
package Grammar::Graph::Prelude;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::CharClass';
with qw/Grammar::Graph::Coupled/;
has '+spans' => (
lib/Grammar/Graph.pm view on Meta::CPAN
#####################################################################
# Postlude (character after any other)
#####################################################################
package Grammar::Graph::Postlude;
use Modern::Perl;
use Moose;
extends 'Grammar::Formal::CharClass';
with qw/Grammar::Graph::Coupled/;
has '+spans' => (
lib/Grammar/Graph.pm view on Meta::CPAN
#####################################################################
# Grammar::Graph
#####################################################################
package Grammar::Graph;
use 5.012000;
use Modern::Perl;
use Grammar::Formal;
use List::UtilsBy qw/partition_by/;
use List::MoreUtils qw/uniq/;
use List::Util qw/shuffle sum max/;
use Storable qw/freeze thaw/;
view release on metacpan or search on metacpan
lib/Graph/Undirected/Hamiltonicity.pm view on Meta::CPAN
Ashwin Dixit, C<< <ashwin at CPAN dot org> >>
=cut
use Modern::Perl;
use lib 'local/lib/perl5';
package Graph::Undirected::Hamiltonicity;
# ABSTRACT: decide whether a given Graph::Undirected contains a Hamiltonian Cycle.