removed NEXT stuff
Devin Austin [Wed, 24 Feb 2010 22:10:48 +0000 (15:10 -0700)]
lib/Catalyst/Plugin/ConfigLoader/Environment.pm
t/01-live.t

index 4faef4a..1ab65a0 100644 (file)
@@ -3,7 +3,7 @@ package Catalyst::Plugin::ConfigLoader::Environment;
 use warnings;
 use strict;
 use JSON::Any;
-
+use MRO::Compat;
 =head1 NAME
 
 Catalyst::Plugin::ConfigLoader::Environment - Configure your
@@ -15,7 +15,7 @@ Version 0.05
 
 =cut
 
-our $VERSION = '0.05';
+our $VERSION = '0.06';
 
 =head1 SYNOPSIS
 
@@ -120,7 +120,7 @@ Overriding Catalyst' setup routine.
 =cut
 
 sub setup {
-    my $c = shift;
+    my $c    = shift;
     my $prefix = Catalyst::Utils::class2env($c);
     my %env;
     grep { /^${prefix}[_](.+)$/ && ($env{$1}=$ENV{$_})} keys %ENV;
@@ -149,7 +149,7 @@ sub setup {
         $c->config( $var => $val );
     }
     
-    return $c->NEXT::setup(@_);
+    return $c->maybe::next::method(@_);
 }
 
 
index 7214660..af88fd5 100644 (file)
@@ -48,6 +48,7 @@ my $model_attributes = eval $r->content;
 is_deeply($model_attributes,
           {
               foo => 'bar', # From __PACKAGE__ default config
-              bar => 'baz', # Merged from my environment hash
+              bar => 'baz', # Merged from my environment hash,
+              catalyst_component_name => 'TestApp::Model::TestModel',
           },
           'JSON for top-level :: param with hash merge');