view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

          git.  Did my best to list but apologies if I missed your patch.
        - Use absolute path for do $file in t/generated_app.t
        - Add . to @INC in Makefile.PL
        - Typo fixes. RT#87103
        - Catalyst::Restarter::Forking: clear watcher in child process.
          RT#119830

1.39 2013-06-14 12:44:17
        - Write =encoding utf8 into generated Pod files so that things
          work as expected for people with utf-8 characters in their unix
          username as returned by getpwuid (RT#84613)
        - Fix unbalanced parenthesis in comptest.tt (RT#85661)

1.38 2013-04-11 20:54:00
        - Remove all PAR based deployment options, as they're unsupported
          and don't even pretend to work on 5.9 RT#83936

1.37 2012-05-19 11:19:00
        - Add x_authority metadata to the distribution for PAUSE.

        - Fix restarter regex to apply to files being created/changed,

lib/Catalyst/Helper.pm  view on Meta::CPAN

    $self->{name            } = $name;
    $self->{script          } = dir( $self->{dir}, 'script' );
    $self->{appprefix       } = Catalyst::Utils::appprefix($name);
    $self->{appenv          } = Catalyst::Utils::class2env($name);
    $self->{startperl       } = -r '/usr/bin/env'
                                ? '#!/usr/bin/env perl'
                                : "#!$Config{perlpath}";
    $self->{scriptgen       } = $Catalyst::Devel::CATALYST_SCRIPT_GEN;
    $self->{catalyst_version} = $Catalyst::VERSION;
    $self->{author          } ||= $ENV{'AUTHOR'}
      || eval { @{ [ getpwuid($<) ] }[6] }
      || 'Catalyst developer';

    my $gen_scripts  = ( $self->{makefile} ) ? 0 : 1;
    my $gen_makefile = ( $self->{scripts} )  ? 0 : 1;
    my $gen_app = ( $self->{scripts} || $self->{makefile} ) ? 0 : 1;

    if ($gen_app) {
        for ( qw/ _mk_dirs _mk_config _mk_psgi _mk_appclass _mk_rootclass
              _mk_readme _mk_changes _mk_apptest _mk_podtest _mk_podcoveragetest
              _mk_images _mk_favicon/ ) {

lib/Catalyst/Helper.pm  view on Meta::CPAN

    return $self->{dir};
}

## not much of this can really be changed, mk_compclass must be left for
## backcompat
sub mk_component {
    my $self = shift;
    my $app  = shift;
    $self->{app} = $app;
    $self->{author} = $self->{author} = $ENV{'AUTHOR'}
      || eval { @{ [ getpwuid($<) ] }[6] }
      || 'A clever guy';
    $self->{base} ||= dir( $FindBin::Bin, '..' );
    unless ( $_[0] =~ /^(?:model|view|controller)$/i ) {
        my $helper = shift;
        my @args   = @_;
        my $class  = "Catalyst::Helper::$helper";
        eval "require $class";

        if ($@) {
            Catalyst::Exception->throw(