module-starter
module-starter copied to clipboard
Attempt to bless into a reference / breaks cas-starter cgiapp-starter [rt.cpan.org #71734]
https://rt.cpan.org/Ticket/Display.html?id=71734
These two don't work with the newest Module::Starter
cgiapp-starter Module::Starter::Plugin::CGIApp
cas-starter CGI::Application::Structured::Tools
the last working version is PETDANCE/Module-Starter-1.54.tar.gz
if I go ahead and fix all these error message i get "No modules
specified." for "cgiapp-starter --module=MyCGIAppApp --author=author
--email=email"
please take a look
--- lib/Module/Starter/Simple.pm~ 2011-07-02 05:59:32.000000000 -0700
+++ lib/Module/Starter/Simple.pm 2011-10-14 01:49:55.578125000 -0700
@@ -49,7 +49,7 @@
sub new {
my $class = shift;
- return bless { @_ } => $class;
+ return bless { @_ } => ref($class) || $class;
}
=head1 OBJECT METHODS
--- lib/Module/Starter/BuilderSet.pm~ 2011-07-02
05:59:32.000000000 -0700
+++ lib/Module/Starter/BuilderSet.pm 2011-10-14
02:01:57.812500000 -0700
@@ -53,7 +53,7 @@
sub new {
my $class = shift;
-
+ $class = ref($class) || $class;
my $self =
{
'Module::Build' =>
--- lib/Module/Starter/Plugin/Template.pm~ 2011-07-02
05:59:37.000000000 -0700
+++ lib/Module/Starter/Plugin/Template.pm 2011-10-14
02:03:53.921875000 -0700
@@ -43,6 +43,7 @@
sub new {
my $class = shift;
+ $class = ref($class) || $class;
my $self = $class->SUPER::new(@_);
$self->{templates} = { $self->templates };
$self->{renderer} = $self->renderer;
--- lib/Module/Starter/Plugin/CGIApp.pm~ 2010-03-06
19:01:02.000000000 -0800
+++ lib/Module/Starter/Plugin/CGIApp.pm 2011-10-14
02:05:09.515625000 -0700
@@ -64,6 +64,7 @@
sub new {
my ( $class, @opts ) = @_;
+ $class = ref($class) || $class;
my $self = $class->SUPER::new(@opts);
$self->{templates} = { $self->templates };