with 'MooseX::Emulate::Class::Accessor::Fast';
# Change Catalyst/Devel.pm also
-our $VERSION = '1.33';
+our $VERSION = '1.41';
my %cache;
}
my $file = file( $dist_dir, @filename);
Carp::confess("Cannot find $file") unless -r $file;
- my $contents = $file->slurp;
+ my $contents = $file->slurp(iomode => "<:raw");
return $contents;
}
# Do not touch this method, *EVER*, it is needed for back compat.
## addendum: we had to split this method so we could have backwards
-## compatability. otherwise, we'd have no way to pass stuff from __DATA__
+## compatibility. otherwise, we'd have no way to pass stuff from __DATA__
sub render_file {
my ( $self, $file, $path, $vars, $perms ) = @_;
sub _mk_makefile {
my $self = shift;
- $self->{path} = dir( 'lib', split( '::', $self->{name} ) );
+ $self->{path} = join('/', 'lib', split( '::', $self->{name} ) );
$self->{path} .= '.pm';
my $dir = $self->{dir};
$self->render_sharedir_file( 'Makefile.PL.tt', file($dir, "Makefile.PL") );
=head2 render_file ($file, $path, $vars, $perms)
Render and create a file from a template in DATA using Template
-Toolkit. $file is the relevent chunk of the __DATA__ section, $path is
+Toolkit. $file is the relevant chunk of the __DATA__ section, $path is
the path to the file, $vars is the hashref as expected by
L<Template Toolkit|Template> and $perms are desired permissions (or system
defaults if not set).