File Coverage

blib/lib/App/MyPerl.pm

Criterion	Covered	Total	%
statement	6	10	60.0
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	16	50.0

package App::MyPerl;

use Moo;
use IO::All;

our $VERSION = '0.003000';

with 'App::MyPerl::Role::Script';

sub run {
  my @perl_options = @{$_[0]->perl_options};
  print "@perl_options . \n" if $_[0]->_env_value('DEBUG');
  exec($^X, @perl_options, @ARGV);
}

1;

=head1 NAME

App::MyPerl - Your very own set of perl defaults, on a global or per
project basis

=head1 SYNOPSIS

  # .myperl/modules
  v5.14
  strictures
  autodie=:all

  $ myperl bin/some-script

Runs some-script with the following already loaded

  use v5.14;
  use strictures;
  use autodie qw(:all);

and through the magic of L, C and C
are already in C<@INC> but files loaded from there will behave as if they
had those lines in them, too.

It is possible to add global defaults, to all scripts and all C
projects with C<~/.myperl/defaults/modules> and C<~/.myperl/always/modules>

=head1 DESCRIPTION

A C<.pm or .pl> file usually requires some preamble to get some defaults right.

  # important ones
  use strict;
  use warnings;

  # good
  use autodie qw(:all);

  # better exceptions
  use Try::Tiny;
  use Carp;

On top of that you might find L, L useful all over
your code.

C allows you define this boilerplate once and for all, while
B with existing code.

=head1 TUTORIAL

If there is no C, C<~/.myperl> is by
default read for global defaults.

  # ~/.myperl/always/modules
  strictures
  autodie=:all

  # ~/.myperl/defaults/modules
  v5.14

  # ~/some_scripts/script.pl
  say "Hello World"

The syntax for the modules file is,

=over

=item *

C -- # comment

=item *

C

=item *

C -- This translates to C

=item *

C<-Foo=bar,qux,baz> -- This translates to C

=back

Now,

  $ myperl ~/some_scripts/script.pl

will print C.

Let's say you are working on a typical Perl module like,

  .myperl/
  lib/
  t/
  bin/
  README
  LICENSE
  Makefile.PL
  ...

Now,

  $ cd $project_dir; myperl bin/app.pl

will configure perl in such a way that C and C, will all
have the preamble defined in C<.myperl/modules> and
C<~/.myperl/always/modules> thanks to the import hooks in
L.

If you don't have a C<.myperl/modules>, myperl will use
C<~/.myperl/defaults/modules> in place of it.

You can configure the directory C<$project_dir/.myperl> with
C.

Running tests,

  $ myprove t/foo.t

And in your C -

  sub MY::postamble {
    q{distdir: myperl_rewrite
  myperl_rewrite: create_distdir
  	myperl-rewrite $(DISTVNAME)
  };
  }

(warning: this is make - so the indent for the C line needs
to be a hard tab)

to have the defaults added to the top of C<.pm, .t and bin/*> files in your
dist when it's built for CPAN.

Sometimes though, you want a module to be used during development,
B. A good case
for this is C.

For this, add C<-indirect> in C<$project_dir/.myperl/dev-modules>.

To specify modules loaded only into the top level script, prepend C
to the file name - so C<$project_dir/.myperl/script-modules> specifies
modules only used for the top level script, and C
the same but not rewritten onto scripts when myperl-rewrite is invoked.

And lastly, you can add C in
C<$MYPERL_HOME/defaults/script-dev-modules> for having
C conveniently preloaded for  oneliners
- see L for how this behaves in detail.

=head1 AUTHOR

mst - Matt S. Trout (cpan:MSTROUT)

=head1 CONTRIBUTORS

mucker - (cpan:MUCKER)

=head1 COPYRIGHT

Copyright (c) 2013 the App::MyPerl L and L
as listed above.

=head1 LICENSE

This library is free software and may be distributed under the same terms
as perl itself.

=cut