From 74f6f94b23609e1709c652d157ff54e01ba8d898 Mon Sep 17 00:00:00 2001
From: Lars Dieckow <ldieckow@sipwise.com>
Date: Thu, 29 Aug 2013 14:14:03 +0200
Subject: [PATCH] non-static features not shared across invocations

bug caught by Zefram at YAPC::Europe 2013
---
 lib/Sipwise/Base.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lib/Sipwise/Base.pm b/lib/Sipwise/Base.pm
index 48a65b6..eb27ebd 100644
--- a/lib/Sipwise/Base.pm
+++ b/lib/Sipwise/Base.pm
@@ -4,15 +4,15 @@ use utf8;
 use Module::Runtime qw(use_module);
 use parent 'autodie';
 
-our %features = (
-    perl5i => q(use perl5i::2 -skip => [qw(Signatures Try::Tiny)];),
-    Moose => q(use Moose qw(after augment before extends has inner override super with);),
-    'MooseX::Method::Signatures' => q(use MooseX::Method::Signatures;),
-    TryCatch => q(use TryCatch;),
-);
-
 sub import {
     my ($class, %param) = @_;
+    my %features = (
+        perl5i => q(use perl5i::2 -skip => [qw(Signatures Try::Tiny autodie)];),
+        Moose => q(use Moose qw(after augment before extends has inner override super with);),
+        'MooseX::Method::Signatures' => q(use MooseX::Method::Signatures;),
+        TryCatch => q(use TryCatch;),
+    );
+
     if ($param{-skip}) {
         for my $feature (@{ $param{-skip} }) {
             delete $features{$feature};