modify backcompat test for proxy

Author: xdg

META.json

@@ -44,6 +44,7 @@
          "requires" : {
             "Data::Dumper" : "0",
             "Test::Builder" : "0",
+            "base" : "0",
             "perl" : "5.006",
             "strict" : "0",
             "warnings" : "0"
@@ -72,6 +73,14 @@
          "file" : "lib/Log/Any/Adapter/Test.pm",
          "version" : "0.16"
       },
+      "Log::Any::Proxy" : {
+         "file" : "lib/Log/Any/Proxy.pm",
+         "version" : "0.16"
+      },
+      "Log::Any::Proxy::Test" : {
+         "file" : "lib/Log/Any/Proxy/Test.pm",
+         "version" : "0.16"
+      },
       "Log::Any::Test" : {
          "file" : "lib/Log/Any/Test.pm",
          "version" : "0.16"

lib/Log/Any/Proxy.pm

@@ -34,6 +34,8 @@ sub new {
 
 sub init { }
 
+sub adapter { return shift->{adapter} }
+
 my %aliases = Log::Any->log_level_aliases;
 
 # Set up methods/aliases and detection methods/aliases

xt/release/backcompat.t

@@ -6,8 +6,8 @@ use strict;
 use warnings;
 use Test::More tests => 2;
 
-use Log::Any qw($log);
+use Log::Any qw($log), proxy_class => 'Test';
 Log::Any->set_adapter('Test', dummy_param => 1);
 $log->error("bleah");
 $log->contains_ok( qr/bleah/ );
-is ( $log->{dummy_param}, 1, "adapter parameters set" );
+is ( $log->adapter->{dummy_param}, 1, "adapter parameters set" );