view release on metacpan or  search on metacpan

examples/digits/deep_digits.pl  view on Meta::CPAN

#!/usr/bin/perl

use Modern::Perl;
use PDL;
use PDL::NiceSlice;
use PDL::IO::FITS;
use PDL::Constants 'E';
use lib 'lib';

 view release on metacpan or  search on metacpan

lib/API/DirectAdmin.pm  view on Meta::CPAN

package API::DirectAdmin;

use Modern::Perl '2010';
use LWP::UserAgent;
use HTTP::Request;
use Data::Dumper;
use Carp;
use URI;

lib/API/DirectAdmin.pm  view on Meta::CPAN

   make install

=head1 DEPENDENCIES

This module requires these other modules and libraries:
  Modern::Perl
  LWP::UserAgent
  HTTP::Request
  URI
  Carp 
  Data::Dumper

 view release on metacpan or  search on metacpan

API/Intis/lib/API/Intis.pm  view on Meta::CPAN

package API::Intis;
use Modern::Perl;
use utf8;

BEGIN {
    use Exporter ();
    use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "Algorithm::LeakyBucket" : "0",
            "Modern::Perl" : "0",
            "Moose" : "0"
         }
      }
   },
   "provides" : {

 view release on metacpan or  search on metacpan

lib/Acme/Be/Modern.pm  view on Meta::CPAN

package Acme::Be::Modern;

use Modern::Perl;

use Filter::Util::Call;

=encoding utf-8

lib/Acme/Be/Modern.pm  view on Meta::CPAN

=head1 SYNOPSIS

This is a thin (and stupid) wrapper (actually a source filter) around
L<Modern::Perl>. It makes it possible to write 'be modern' instead of
'use Modern::Perl' - like this:

    use Acme::Be::Modern;

    be modern; # all lowercase is actually postmodern :-/
    ...

lib/Acme/Be/Modern.pm  view on Meta::CPAN

=head2 filter

The actual filter. Will receive source lines by calling
filter_read(). Any occurrence (and I mean any) of 'be modern' will be
replace with 'use Modern::Perl'.

=cut

sub filter {
    my ($self) = @_;
    my ($status);
    s/be modern/use Modern::Perl/g if ($status = filter_read()) > 0;
    $status;
}

=head1 AUTHOR

lib/Acme/Be/Modern.pm  view on Meta::CPAN

=head1 BUGS

Yes! This is buggy. It's a source filter, and it's really stupid. Any
text in your source matching 'be modern' will be replaced with 'use
Modern::Perl'.

Please report any bugs or feature requests to C<bug-acme-be-modern at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Acme-Be-Modern>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules/ModernPreambles.pm  view on Meta::CPAN

to the beginning of your code. But some people say that's not enough, and they
develop modules/pragmas that bundle the above incantation plus some additional
stuffs. For example:

    use Modern::Perl '2018';

is equivalent to:

    use strict;
    use warnings;
    use feature ':5.26';
    mro::set_mro( scalar caller(), 'c3' );

I think <pm:Modern::Perl> is one of the first to popularize this modern preamble
concept and a bunch of similar preambles emerged. This list catalogs them.

Meanwhile, you can also use:

    use v5.12; # enables strict and warnings, as well as all 5.12 features (see <pm:feature> for more details on new features of each perl release)

lib/Acme/CPANModules/ModernPreambles.pm  view on Meta::CPAN

_
    entries => [
        {module=>'Alt::common::sense::TOBYINK'},
        {module=>'common::sense'},
        {module=>'latest'},
        {module=>'Modern::Perl'},
        {module=>'nonsense'},
        {module=>'perl5'},
        {module=>'perl5i'},
    ],
};

lib/Acme/CPANModules/ModernPreambles.pm  view on Meta::CPAN

to the beginning of your code. But some people say that's not enough, and they
develop modules/pragmas that bundle the above incantation plus some additional
stuffs. For example:

 use Modern::Perl '2018';

is equivalent to:

 use strict;
 use warnings;
 use feature ':5.26';
 mro::set_mro( scalar caller(), 'c3' );

I think L<Modern::Perl> is one of the first to popularize this modern preamble
concept and a bunch of similar preambles emerged. This list catalogs them.

Meanwhile, you can also use:

 use v5.12; # enables strict and warnings, as well as all 5.12 features (see L<feature> for more details on new features of each perl release)

lib/Acme/CPANModules/ModernPreambles.pm  view on Meta::CPAN

=item L<latest>

Author: L<ANDYA|https://metacpan.org/author/ANDYA>

=item L<Modern::Perl>

Author: L<CHROMATIC|https://metacpan.org/author/CHROMATIC>

=item L<nonsense>

 view release on metacpan or  search on metacpan

lib/Acme/DependOnEverything.pm  view on Meta::CPAN

use Acme::Test::Weather;
use Acme::TextLayout;
use Acme::Text::Rhombus;
use Acme::Text::Shorten::ForTwitter;
use Acme::this;
use Acme::Thoroughly::Modern::Perl::v;
use Acme::Throw;
use Acme::Tie::Eleet;
use Acme::Tie::Formatted;
use Acme::Time::Asparagus;
use Acme::Time::Baby;

lib/Acme/DependOnEverything.pm  view on Meta::CPAN

use Acme::use::strict::with::pride;
use Acme::USIG;
use Acme::UTOPIA::Utils;
use Acme::VarMess;
use Acme::Version::Hex;
use Acme::Very::Modern::Perl;
use Acme::VerySign;
use Acme::Void;
use Acme::Voodoo;
use Acme::VOYAGEGROUP::ConferenceRoom;
use Acme::Vuvuzela;

 view release on metacpan or  search on metacpan

lib/Acme/Futuristic/Perl.pm  view on Meta::CPAN

=encoding utf-8

=head1 NAME

Acme::Futuristic::Perl - because Modern::Perl is too old

=head1 SYNOPSIS

	use Acme::Futuristic::Perl;

 view release on metacpan or  search on metacpan

lib/Acme/Perl/Consensual.pm  view on Meta::CPAN

Acme::Perl::Consensual - check that your version of Perl is old enough to consent

=head1 DESCRIPTION

This module checks that your version of Perl is old enough to consent to
sexual activity. It could be considered a counterpart for L<Modern::Perl>.

=head2 Constructor

=over

lib/Acme/Perl/Consensual.pm  view on Meta::CPAN

		require Acme::Perl::Consensual;
		Acme::Perl::Consensual->new()->perl_can()
			or die "Perl $] failed age of consent check, died";
	}

That is, it's the opposite of C<< use Modern::Perl >>. It requires your
version of Perl to be past the age of consent in your locale.

=head1 CAVEATS

Most jurisdictions have legal subtleties that this module cannot take into

 view release on metacpan or  search on metacpan

lib/Acme/Postmodern/Perl.pm  view on Meta::CPAN

=back

=head1 SEE ALSO

L<Acme::Very::Modern::Perl>.

=head1 COPYRIGHT & LICENSE

Copyright 2009, 2010, 2011, 2012, 2013, 2014, 2020 Frank Wiegand L<mailto:fwie@cpan.org>.

 view release on metacpan or  search on metacpan

lib/Acme/Thoroughly/Modern/Perl.pm  view on Meta::CPAN

package Acme::Thoroughly::Modern::Perl;

use strict;
use warnings;

our $VERSION = 'v0.4.1';

lib/Acme/Thoroughly/Modern/Perl.pm  view on Meta::CPAN

__END__
=pod

=head1 NAME

Acme::Thoroughly::Modern::Perl - Go where no Perl has gone before!

=head1 SYNOPSIS

  
  use Acme::Thoroughly::Modern::Perl;
  

=head1 DESCRIPTION

This module allows one to not only be on the bleeding edge of Perl, but to

 view release on metacpan or  search on metacpan

lib/Acme/URL.pm  view on Meta::CPAN

=head1 SYNOPSIS

URL without any strings attached performing a HTTP request returning the content:

    use Modern::Perl;
    use JSON qw(decode_json);
    use Acme::URL;

    # print the json
    say http://twitter.com/statuses/show/6592721580.json;

 view release on metacpan or  search on metacpan

lib/Acme/Very/Modern/Perl.pm  view on Meta::CPAN

package Acme::Very::Modern::Perl;

use warnings;
use strict;

=head1 NAME

Acme::Very::Modern::Perl - Use the most modern of Perl!

=head1 VERSION

Version 0.05;

=cut

our $VERSION = '0.05';

use Modern::Perl;
use Toolkit;
use latest;
use uni::perl;
use common::sense;
use perl5i::latest;

lib/Acme/Very/Modern/Perl.pm  view on Meta::CPAN

2;
__END__

=head1 SYNOPSIS

    use Acme::Very::Modern::Perl;

=head1 DESCRIPTION

Using this module, you'll get L<Modern::Perl>, L<Toolkit>, L<latest>, L<uni::perl>,
L<perl5i>, and L<common::sense> with just one simple line.

=head1 AUTHOR

Frank Wiegand, C<< <frank.wiegand at gmail.com> >>

lib/Acme/Very/Modern/Perl.pm  view on Meta::CPAN

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Acme::Very::Modern::Perl

You can also look for information at:

=over 4

lib/Acme/Very/Modern/Perl.pm  view on Meta::CPAN

=back

=head1 SEE ALSO

L<Modern::Perl>, L<Toolkit>, L<latest>, L<uni::perl>, L<common::sense>, L<perl5i>.

=head1 COPYRIGHT & LICENSE

Copyright 2009, 2010 Frank Wiegand.

 view release on metacpan or  search on metacpan

perlcritic.rc  view on Meta::CPAN

include = CodeLayout::ProhibitSpaceIndentation CodeLayout::ProhibitTrailingWhitespace CodeLayout::RequireConsistentNewlines CodeLayout::TabIndentSpaceAlign

[-Subroutines::ProhibitSubroutinePrototypes]

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

# vim: ft=dosini

 view release on metacpan or  search on metacpan

perlcritic.rc  view on Meta::CPAN

theme = ( core + pbp + security + maintenance ) * bugs
include = CodeLayout::ProhibitSpaceIndentation CodeLayout::ProhibitTrailingWhitespace CodeLayout::RequireConsistentNewlines CodeLayout::TabIndentSpaceAlign

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

# vim: ft=dosini

 view release on metacpan or  search on metacpan

perlcritic.rc  view on Meta::CPAN

include = CodeLayout::ProhibitSpaceIndentation CodeLayout::ProhibitTrailingWhitespace CodeLayout::RequireConsistentNewlines CodeLayout::TabIndentSpaceAlign

[-Subroutines::ProhibitSubroutinePrototypes]

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

# vim: ft=dosini

 view release on metacpan or  search on metacpan

perlcritic.rc  view on Meta::CPAN

theme = ( core + pbp + security + maintenance ) * bugs
include = CodeLayout::ProhibitSpaceIndentation CodeLayout::ProhibitTrailingWhitespace CodeLayout::RequireConsistentNewlines CodeLayout::TabIndentSpaceAlign

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

# vim: ft=dosini

 view release on metacpan or  search on metacpan

perlcritic.rc  view on Meta::CPAN

theme = ( core + pbp + security + maintenance ) * bugs
include = CodeLayout::ProhibitSpaceIndentation CodeLayout::ProhibitTrailingWhitespace CodeLayout::RequireConsistentNewlines CodeLayout::TabIndentSpaceAlign

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

# vim: ft=dosini

 view release on metacpan or  search on metacpan

perlcritic.rc  view on Meta::CPAN

include = CodeLayout::ProhibitSpaceIndentation CodeLayout::ProhibitTrailingWhitespace CodeLayout::RequireConsistentNewlines CodeLayout::TabIndentSpaceAlign

[-Subroutines::ProhibitSubroutinePrototypes]

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

# vim: ft=dosini

 view release on metacpan or  search on metacpan

perlcritic.rc  view on Meta::CPAN

theme = ( core + pbp + security + maintenance ) * bugs
include = CodeLayout::ProhibitSpaceIndentation CodeLayout::ProhibitTrailingWhitespace CodeLayout::RequireConsistentNewlines CodeLayout::TabIndentSpaceAlign

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

# vim: ft=dosini

 view release on metacpan or  search on metacpan

lib/Alt/common/sense/TOBYINK.pm  view on Meta::CPAN

=head1 SEE ALSO

L<Alt>, L<common::sense>.

Similar:
L<Modern::Perl>,
L<strictures>.

=head1 AUTHOR

Toby Inkster E<lt>tobyink@cpan.orgE<gt>.

 view release on metacpan or  search on metacpan

lib/Ansible/Util.pm  view on Meta::CPAN

package Ansible::Util;
$Ansible::Util::VERSION = '0.001';
use Modern::Perl;
use Moose;
use namespace::autoclean;
use Kavorka 'method';
use Data::Printer alias => 'pdump';
use Ansible::Util::Run;

 view release on metacpan or  search on metacpan

lib/AnyEvent/Processor.pm  view on Meta::CPAN

package AnyEvent::Processor;
#ABSTRACT: Base class to define an event-driven (AnyEvent) task that could periodically be interrupted by a watcher
$AnyEvent::Processor::VERSION = '0.006';
use Moose;
use Modern::Perl;
use AnyEvent;
use Glib;
use AnyEvent::Processor::Watcher;

with 'AnyEvent::Processor::WatchableTask';

 view release on metacpan or  search on metacpan

lib/AnyEvent/SlackBot.pm  view on Meta::CPAN

package AnyEvent::SlackBot;

use Modern::Perl;
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
use namespace::clean;
use Data::Dumper;
use LWP::UserAgent;

lib/AnyEvent/SlackBot.pm  view on Meta::CPAN

AnyEvent::SlackBot - AnyEvent Driven Slack Bot Interface

=head1 SYNOPSIS

  use Modern::Perl;
  use Data::Dumper;
  use AnyEvent::SlackBot;
  use AnyEvent::Loop;

  $|=1;

 view release on metacpan or  search on metacpan

lib/AnyEvent/HTTP/Spark.pm  view on Meta::CPAN

package AnyEvent::HTTP::Spark;

use Modern::Perl;
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
use Data::Dumper;
use JSON qw(to_json from_json);
use HTTP::Request::Common qw(POST);

 view release on metacpan or  search on metacpan

lib/App/Addex/AddressBook/LDAP.pm  view on Meta::CPAN

use Modern::Perl;

package App::Addex::AddressBook::LDAP;
BEGIN {
  $App::Addex::AddressBook::LDAP::VERSION = '0.001';
}

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "ExtUtils::MakeMaker" : "6.52"
         }
      },
      "runtime" : {
         "requires" : {
            "Modern::Perl" : "1.20180701",
            "perl" : "5.026000"
         }
      }
   },
   "release_status" : "stable",

 view release on metacpan or  search on metacpan

cheats.txt  view on Meta::CPAN

# Persistent cache using Memoize::Storable


#############################################################
## Perl Modules - Modern::Perl
#############################################################

# Modern::Perl defaults to v5.12 (bug!?)
perl -E 'say $^V'
v5.36.0
perl -Modern::Perl -e 'say Modern::Perl::validate_date(2022)'
:5.34
perl -Modern::Perl -e 'say Modern::Perl::validate_date()'
:5.12
perl                    -E 'sub abc ($n) {$n}'
perl -Modern::Perl=2022 -e 'sub abc ($n) {$n}'
perl -Modern::Perl      -e 'sub abc ($n) {$n}'
Illegal character in prototype for main::abc : $n at -e line 1.
Global symbol "$n" requires explicit package name (did you forget to declare "my $n"?) at -e line 1.
Execution of -e aborted due to compilation errors.

 view release on metacpan or  search on metacpan

lib/App/DBCritic.pm  view on Meta::CPAN

#pod
#pod =cut

use strict;
use utf8;
use Modern::Perl '2011';    ## no critic (Modules::ProhibitUseQuotedVersion)

our $VERSION = '0.023';     # VERSION
use Carp;
use English '-no_match_vars';
use List::Util 1.33 'any';

 view release on metacpan or  search on metacpan

lib/App/FileSummoner/Register/t/Rules.t  view on Meta::CPAN

use Modern::Perl;
use Test::Spec;

use App::FileSummoner::Register;
use App::FileSummoner::Register::Rules;